| |
Visual-Basic EinsteigerWie war das noch: Steuerelement zum Aktualisierren nach Zeit | | | Autor: raymound | Datum: 27.11.12 12:11 |
| Hallo,
es ist bei mir schon zu lange her...
Jetzt will ich ein Prog verändern.
Auf frm1.frm soll der Code:
Private Sub cmdRefresh_Click()
On Error Resume Next
Form1.lbMB1.Caption = DiskFreeSpace("" & Drive1)
Form1.lbGB1.Caption = DiskFreeSpace("" & Drive1, True, True) 'gerundet
Form1.lbMB2.Caption = DiskFreeSpace("" & Drive2)
Form1.lbGB2.Caption = DiskFreeSpace("" & Drive2, True, True) 'gerundet
End Sub
alle 2 Minuten automatisch ausgeführt werden.
Das gab da doch ein Steuerelement, wenn ich mich recht erinnere, welches und wie baue ich das ein?
Viele Grüße aus HH, diesig, kalt 6 Grad... | |
Re: Wie war das noch: Steuerelement zum Aktualisierren nach Zeit | | | Autor: Zardoz | Datum: 27.11.12 13:49 |
| Hallo raymound,
eine Möglichkeit ist das Timer-Control. Um auf ein
Intervall von 2 Min. zu kommen, muss noch ein Zähler
eingebaut werden.
Gruss,
Zardoz | |
Re: Wie war das noch: Steuerelement zum Aktualisierren nach Zeit | | | Autor: raymound | Datum: 27.11.12 13:56 |
| HI,
es funzt so:
Private Sub Timer1_Timer()
On Error Resume Next
Form1.lbMB1.Caption = DiskFreeSpace("" & Drive1)
Form1.lbGB1.Caption = DiskFreeSpace("" & Drive1, True, True) 'gerundet
Form1.lbMB2.Caption = DiskFreeSpace("" & Drive2)
Form1.lbGB2.Caption = DiskFreeSpace("" & Drive2, True, True) 'gerundet
Form1.lbMB3.Caption = DiskFreeSpace("" & Drive3)
Form1.lbGB3.Caption = DiskFreeSpace("" & Drive3, True, True) 'gerundet
Form1.lbMB4.Caption = DiskFreeSpace("" & Drive4)
Form1.lbGB4.Caption = DiskFreeSpace("" & Drive4, True, True) 'gerundet
lbPrfDate.Caption = Date
lbPrfTime.Caption = Time
End Sub
Wie aber kann ich einen Zähler einbauen, damit obiges nur alle 5 Minuten aktualisiert wird?
Gruss Ray | |
Re: Wie war das noch: Steuerelement zum Aktualisierren nach Zeit | | | Autor: Zardoz | Datum: 27.11.12 14:10 |
| Hallo raymound,
zum Posten von Code bitte den VB-Code-Button verwenden. Alle 5 min.
ein Aufruf geht so:
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static Z1 As Long
Z1 = Z1 + 1
If Z1 < 5 Then Exit Sub
Z1 = 0
' Dein Code
' ...
End Sub Gruss,
Zardoz | |
Vielen vielen Dank mGruss oT | | | Autor: raymound | Datum: 27.11.12 14:58 |
| p | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevZIP40 Pro DLL
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
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.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|