[VB6] Refresh applicazione per rieseguire controlli

[Tuning]

Ciao a tutti,,

domanda banale ma......

ho un form in VB6 che esegue all'avvio dei check (dimensioni di una serie di DIR) e vorrei
far si che ogni 10'' il form si aggiorni ripetendo i check, ho tentato con :

Private Sub Timer1_Timer()
Form1.Refresh
End Sub


Idee? dove sbaglio?

Grazie a tutti

[MdE2005]

Linguaggio nel titolo, e dettagli maggiori.

Per inciso, un Refresh non ha tempo..

[Tuning]

aggiornato spero sia più chiaro

[LeleFT]

Originariamente inviato da Tuning
aggiornato spero sia più chiaro

Sì, è chiaro che sei nel forum sbagliato.

Sposto nel forum "Visual Basic e .NET Framework".

In futuro, scrivi dei titoli più significativi e posta il codice all'interno degli appositi tag CODE.
(tutto scritto nel regolamento interno).


Sistemo io.


Ciao.

[Tuning]

Grazie, ecco un codice test

Public link1a As String
Public size1a As String

Private Sub Form_Load()

Set fso = CreateObject("Scripting.FileSystemObject")
Set fd1 = CreateObject("Scripting.FileSystemObject")
Dim c1

link1a = "D:\#TIMedia\1"

' calcola la dimensione della dir
Set fd1a = fso.GetFolder(link1a)
c1 = fd1a.Size
size1a = Format(fd1a.Size / 1024 / 1024, "#0")
Set fd1a = Nothing
Set fso1 = Nothing
Set c1 = Nothing

Label1.Caption = size1a

End Sub

Private Sub Timer1_Timer()
Form1.Refresh
End Sub

[gibra]

Ehm... Guarda che

Form1.Refresh

ha solo un effetto grafico, non c'entra proprio niente con il tuo check.


Il codice che stai eseguendo nell'evento Form_Load() lo devi spostare in una nuova routine, es.

Private Sub ControllaDir()
    ' metti qui tutto il tuo codice dell'evento Form_Load()
End Sub

Poi chiamerai la routine dove e quando ti occorre, cioè:

Private Sub Form_Load()
    Call ControllaDir()
End Sub

Private Sub Timer1_Timer()
    Call ControllaDir()
End Sub

[Tuning]

Grazie mille

[gibra]

Originariamente inviato da Tuning
Grazie mille

Prego.