Just nu i M3-nätverket
Gå till innehåll

Problem med Timer funktionen i Visual Basic!


greenboy

Rekommendera Poster

Timer funktionen fungerar inte med denna kod, fast allt verkar vara ok enligt mig. Är det nån, som ser något fel i koden?

   If CheckDir = True Then
            Timer1.Enabled = True
            Timer1.Start()
            LabelText.Text = "Bilderna kopieras, vänt en stund!"
            ButtonCopy.Enabled = False
            MkDir(Namedir)
            My.Computer.FileSystem.CopyDirectory("W:\DCIM\100OLYMP", Namedir, True)
            LabelText.Text = "Bilderna har kopierats."
            ButtonCopy.Enabled = True
            CheckStripMenuItem1.Enabled = True
            Timer1.Stop()
            Timer1.Enabled = False
            If TimeCount2 >= 1 Then
                LabelText4.Text = "Utförandet tog " + TimeCount.ToString + " sekunder."
            Else
                LabelText4.Text = "Utförandet tog " + TimeCount2.ToString + " minut(er) " + TimeCount.ToString + " sekunder."
            End If
            ProgressBarShow.Value = 0
        End If
Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...