1. ホーム
  2. vb.net

[解決済み] VB.netでの遅延

2022-02-16 14:20:07

質問

私の問題は、ボタンが押された後、それをチェックする前に3-4秒待つ必要があることです。以下は、button1_clickの下にある私のコードです。

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

        PictureBox1.Load(LastCap)

私はVBを勉強している最中なので、何か説明があると助かります!私は本当に単純なことを間違ってやっていると思います。

~ありがとうございます。

解決方法は?

もし、ファイルを作成するために待つ必要があるのであれば、このように FileSystemWatcher に対応し Created Changed この方法では、任意の時間を待つのではなく、イベントに対応することができます。

のようなものです。

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