Sie möchten wissen, wie lange Ihr Programm läuft? Hierzu müssen Sie die Zeit des Starts ermitteln und dann die laufende Zeit hinzuaddieren. Das Ganze sieht dann so aus: Starten Sie ein neues Projekt und setzen auf die Form ein Timer-Control sowie ein Label zur Anzeige der Zeit. Dann noch diesen Code: ' Variable, die die Zeit des Programmstarts beinhaltet Public dProgStart As Date Private Sub Form_Load() ' ermitteln der Zeit bei Programmstart dProgStart = CDate(CStr(Date) & " 00:00:00") ' Timer-Intervall auf 1000 ms = 1 Sekunde setzen Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Static lSekTimer As Long Dim n As Date ' sekundenweise hochzählen lSekTimer = lSekTimer + 1 ' zu bereits vergangener Zeit die Sekunden hinzuzählen n = DateAdd("s", lSekTimer, dProgStart) ' auf dem Label aktuell die vergangene Zeit seit Programmstart anzeigen Label1.Caption = Format(n, "hh:mm:ss") End Sub Wenn Sie jetzt ihr Programm starten, wird Ihnen im Label die seit Programmstart vergangene Zeit angezeigt. Diese Seite wurde bereits 11.045 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |