Die Verzögerung in VB.net

mein Problem ist ich muss warten Sie 3-4 Sekunden, nachdem eine Taste gedrückt wurde, bevor ich suchen kann, hier ist mein code unter "button1_click":

        While Not File.Exists(LastCap)
            Application.DoEvents()
            MsgBox("testtestetstets")
        End While

        PictureBox1.Load(LastCap)

Ich denke, ich mache etwas, das wirklich einfach falsch, ich bin nicht der beste in VB wie ich bin nur zu lernen, so dass jede Erklärung wäre toll!

~Dank

Warum willst du noch warten?
Warum Sie nicht verwenden ein Timer? mit Interval = 3000ms. Auf tick-stop-Timer und tun, was Sie brauchen

InformationsquelleAutor Reece Tilley | 2012-11-22

  1. 3

    Wenn der Grund, warum Sie brauchen, um zu warten, ist für die Datei erstellt werden, versuchen Sie es mit einem FileSystemWatcher und reagieren auf die Erstellt und Geändert Ereignisse, die Art, wie du auf ein Ereignis reagieren, anstatt willkürlich zu warten, wählen Sie Zeitraum.

    Etwas wie:

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    FileSystemWatcher1.Path = 'Your Path Here
    FileSystemWatcher1.EnableRaisingEvents = True
   'Do what you need to todo to initiate the file creation
End Sub

Private Sub FileSystemWatcher1_Created(sender As Object, e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created, FileSystemWatcher1.Changed
    If e.Name = LastCap Then
        If (System.IO.File.Exists(e.FullPath)) Then
            FileSystemWatcher1.EnableRaisingEvents = False
            PictureBox1.Load(e.FullPath)
        End If
    End If
End Sub
    Vielen Dank Mann, genau das, was ich brauchte!
    Sie sind herzlich willkommen, ich bin froh, dass es funktionierte

    InformationsquelleAutor Mark Hall

  2. 5

    Wenn Sie möchten, dass Ihre form weiter zu funktionieren, während die 3 Sekunden vergehen, können Sie fügen Sie eine Timer-Steuerung statt, mit code wie diesem:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' set the timer
    Timer1.Interval = 3000 'ms
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Timer1.Stop()
    'add delayed code here
    '...
    '...
    MessageBox.Show("Delayed message...")
End Sub

    Drag-and-drop ein Timer-Steuerelement aus der toolbox auf Ihr Formular. Es ist zur Laufzeit nicht angezeigt

    InformationsquelleAutor Derek Tomes

  3. 4

    Können Sie verwenden, obwohl nicht empfohlen:

    Threading.Thread.Sleep(3000) 'ms

    Diese wird, warten Sie 3 Sekunden, aber auch der block alles andere die auf dem gleichen thread. Wenn Sie diesen in form Ihrer Benutzer-interface wird nicht Antwort, bis das warten vorbei ist.

    nur als Anmerkung: die Verwendung MessageBox.Show("My message") statt MsgBox (letztere aus alten VB).

    InformationsquelleAutor

  4. 2

    oder noch besser: machen eine wait-Funktion mit stop-Uhr, diese wird nicht den Prozess zu stoppen in dem gleichen thread wie Faden Schlaf

     ' Loops for a specificied period of time (milliseconds)
Private Sub wait(ByVal interval As Integer)
    Dim sw As New Stopwatch
    sw.Start()
    Do While sw.ElapsedMilliseconds < interval
        ' Allows UI to remain responsive
        Application.DoEvents()
    Loop
    sw.Stop()
End Sub

    Nutzung

    wait(3000)

    für 3 Sekunden Verzögerung

    InformationsquelleAutor Joe Dabones

  5. 1

    Können Sie diese

    Public Sub BeLazy()
    For i = 1 To 30
        Threading.Thread.Sleep(100)
        Application.DoEvents()
    Next
End Sub

    Wird die Verzögerung für 3 Sekunden.

    InformationsquelleAutor Joe Dabones

Schreibe einen Kommentar