| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | myCADtools , eine App
|
|
Autor
|
Thema: Prozessbalken anzeigen lassen (753 / 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: 1362
Registriert: 24.07.2002 AutoCAD ACA 2024
Solidworks 2022 Sp5
Enterprise PDM 2022 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell Precision 3660
Intel Core i9-12900K
32 GB Arbeitsspeicher
2x Dell U2415
|
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: 3374
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:
|
| |
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
