Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
Sub Sleep()
Sleep(1000) 'Implements a 1 second delay
End Sub
แล้วเวลาเรียกใช้ก็
Code (VB.NET)
Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
PictureBox1.Image = Global.project.My.Resources.Resources.banana <<โชว์ภาพขึ้นมา
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
if( ถ้ามันเจอ2อันแล้วจะให้มัน visible = false)
Sleep() << delay ตรงนี้อะคับคือมันไม่ยอมเรียกภาพขึ้นมาแล้วดีเลย์ แต่มันดันไป ดีเลย์ก่อน แล้วเรียกภาพ
จึงทำให้ดูภาพไม่ทันอีกอะคับ ท่านหมีแพนด้าช่วยด้วยนะคับ T_T
End If
END sub แต่ทีนี้