| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | AMB 2024 |
|
Autor
|
Thema: Prozessbalken anzeigen lassen (638 / mal gelesen)
|
Pete85
Mitglied
   Beiträge: 156
Registriert: 09.05.2016
|
erstellt am: 31. Mai. 2021 15:21  <-- editieren / zitieren -->   Unities abgeben:          
Hall zusammen, ist es möglich in einem Makro einen Prozessbalken auszuführen ich möchte das in diesem Programm unterbringen [URL=https://ww3.cad.de/foren/ubb/Forum2/HTML/033469.shtml][/URL] gibt es da einen Baustein. in meinem Fall Zähle ich erst alle Komponenten und lasse dann einen zweiten Zähler im Prozess bis beide Variablen den gleichen Wert haben hoch zählen. geht das denn? Danke und Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210
Mitglied
staatl. geprüfter Holztechniker
Beiträge: 1358
Registriert: 24.07.2002 AutoCAD ACA 2019
Solidworks 2021 Sp5.1
Enterprise PDM 2021 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell T3620
Intel Core i7-7700K
16 GB Arbeitsspeicher
2x Dell Ultrasharp U2415
Dell M4800
|
erstellt am: 31. Mai. 2021 15:34 <-- editieren / zitieren --> Unities abgeben: Nur für Pete85 
|
Christian_W
Ehrenmitglied V.I.P. h.c.
Konstrukteur (Dipl-Ing)
Beiträge: 3189
Registriert: 04.04.2001 CSWP 12/2015<P>SWX2021sp5 Win10/11
(SWX2016, SWX2012)
proAlpha6.2e00/calinkV9
(Tactonworks)
(Medusa7, NesCAD2010,
solidEdge19)
|
erstellt am: 31. Mai. 2021 20:12 <-- editieren / zitieren --> Unities abgeben: Nur für Pete85
Na super, und ich hab mir den vor kurzem noch mit 2 übereinanderliegenden Buttons generiert, von denen 1 in der Breite verändert wird. Eigentlich nicht besonders kompliziert und geht dann auch in excel ... im eigenen Userform halt. aber für SWX  merk ich mir das jetzt auch  Gruß, Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Pete85
Mitglied
Beiträge: 156
Registriert: 09.05.2016
|
erstellt am: 14. Jun. 2021 12:07 <-- editieren / zitieren --> Unities abgeben:
|
| | Konstrukteur / Entwickler (m/w/d) Mobile Feuerlöschanlagen und Feuerlöschgeräte | Ein Job, in dem Sie sicher sind und Sicherheit bieten? Den finden Sie bei uns! Minimax Mobile Services ist eines der führenden Brandschutzunternehmen in Deutschland und Österreich. Wir haben die besten Köpfe der Branche versammelt. Rund 600 Mitarbeiter sind in regionalen Teams für die Sicherheit unserer Kunden im Einsatz, mit qualitativ hochwertigen Dienstleistungen und Produkten ?Made in Germany?.... | | Anzeige ansehen | Entwicklung |
|
Pete85
Mitglied
Beiträge: 156
Registriert: 09.05.2016
|
erstellt am: 16. Jun. 2021 07:41 <-- editieren / zitieren --> Unities abgeben:
ich hab mal noch den weiteren Ansatz von Christian_W verfolgt. fündig bin ich unter [URL=https://www.wallstreetmojo.com/vba-progress-bar/][/URL] geworden. den Code habe ich mir angepasst und läuft super Code:
main()
UFProgressBar.Show
ProgressBar_Chart ges 'ges= Anzahl max -> 100% Unload UFProgressBar End Sub
Function ProgressBar_Chart(gesamt As Integer, comp As String) ' userform Process bar
Dim ink As Double
Dim CurrentUFProgressBar As Double
Dim UFProgressBarPercentage As Double
Dim BarWidth As Long ink = 250 / ges CurrentUFProgressBar = i * ink
'BarWidth = UFProgressBar.MainProgressLabel.Width * CurrentUFProgressBar
UFProgressBarPercentage = Round((CurrentUFProgressBar * 100) / 250, 0)
UFProgressBar.MainProgressLabel.Width = UFProgressBarPercentage
UFProgressBar.MainProgressLabel.Width = CurrentUFProgressBar
UFProgressBar.ProgessLabel.Caption = UFProgressBarPercentage & "% Complete" DoEvents End Function
Gruß Pete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
