Frazione di tempo tra due comandi...non funzia

[Adrix]

Ciao a tutti io ho un problema, con un timer sto cercando di inserire un intervallo di tempo tra l'esecuzione di due shell, ma non ci riesco, questo è il codice che inserisco:

Private Sub Timer1_Timer()
Timer1.Enabled = False
End Sub

Private Sub cmdshell_Click()
Shell "1programma ecc...

Timer1.Interval = 2000 ' 2 sec's
Timer1.Enabled = True
While Timer1.Enabled = True
Wend

Shell "2programma ecc...
End Sub

Purtroppo inserendo questo codice ad un certo punto il programma si blocca con la clessidra...dov'è il problema?
Grazie

[Kylnas]

Originariamente inviato da Adrix
Ciao a tutti io ho un problema, con un timer sto cercando di inserire un intervallo di tempo tra l'esecuzione di due shell, ma non ci riesco, questo è il codice che inserisco:

Private Sub Timer1_Timer()
Timer1.Enabled = False
End Sub

Private Sub cmdshell_Click()
Shell "1programma ecc...

Timer1.Interval = 2000 ' 2 sec's
Timer1.Enabled = True
While Timer1.Enabled = True
Wend

Shell "2programma ecc...
End Sub

Purtroppo inserendo questo codice ad un certo punto il programma si blocca con la clessidra...dov'è il problema?
Grazie

Prova con un "DoEvents" nel ciclo while.

[ans]

se devi solo inserire una pausa usa la Sleep.

Shell.......
Sleep 2000 'millisecondi
DoEvents
Shell.......


la dichiarazione:
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

[Adrix]

ti ringrazio molto! Con lo sleep ci sono riuscito...ora purtroppo ho un altro problema...prima dei due shell ho inserito un comando, ma inserendo questo comando non mi esegue più il secondo shell..

FileBmp = App.Path & Combo4.List(Combo1.ListIndex)
SavePicture Picture1.Picture, FileBmp

Shell
Sleep 5000 'millisecondi
DoEvents
Shell

Il comando è Filebmp ecc..come mai dà questo problema? Come posso risolverlo?

Ancora grazie attendo risposta!!

[iguana13]

Originariamente inviato da Adrix
FileBmp = App.Path & Combo4.List(Combo1.ListIndex)

Prova con:

FileBmp = App.Path & "\" & Combo4.List(Combo1.ListIndex)

[Adrix]

non è questo il problema...il problema è che mi annulla la seconda shell se metto il comando FileBmp...

aiutoooo!!! :'(

[jabjoint]

a cosa la usi la shell a ar partire il file bmp?

[Adrix]

no la uso x un programma Dos esterno...

[BOYROMA1]

dove va dichiarata la sleep?? (