Moderatori: Anthony47, Flash30005
Dim MyTim As Single
Private Sub startTempo1_Click()
MyTim = Timer
Range("E22:E23").ClearContents
End Sub
Private Sub stopTempo1_Click()
If MyTim > 0 Then
Range("E22").Value = Timer - MyTim
Range("E23").Value = "Scostamento (sec): " & Format([E22] - 60, "0.0")
Range("E23").HorizontalAlignment = xlRight
MyTim = 0
End If
End Sub
ricky53 ha scritto:Ciao,
nel file che hai inserito nel link il filmato non c'è.
Anthony47 ha scritto:Se vuoi riprodurre un suono
WindowsMediaPlayer1.URL = "C:\Users\User1\Documents\MyMovies\MVI_6250.AVI" '<<< Il tuo filmato
WindowsMediaPlayer1.URL = ""
quella sì che sarebbe una fregatura: no, si vede solo il cursoreAnthony47 ha scritto:PS: ma mediaplayer non mostra i secondi di avanzamento filmato?
Torna a Applicazioni Office Windows
Stimare tempo tot di lavoro e medio per data Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 8 |
Visitano il forum: Nessuno e 25 ospiti