۲۷-اسفند-۱۳۸۶, ۰۸:۵۵:۴۰
با عرض معذرت تا دیدم یه تایمر دیگه اضافه کردی برنامه رو بستم.
توجه کردی اگه با راست کلیک یا وسط کلیک «دوبار کلیک» کنی مشکل نداره.
مشکل مال وقتیه که با کلیک چپ «دوبار کلیک» می کنی و چون تو روال MouseDown میشه Button=1 تایمر غیر فعال میشه و باید هنگام نمایش فرم تایمر رو فعال کنی.
توجه کردی اگه با راست کلیک یا وسط کلیک «دوبار کلیک» کنی مشکل نداره.
مشکل مال وقتیه که با کلیک چپ «دوبار کلیک» می کنی و چون تو روال MouseDown میشه Button=1 تایمر غیر فعال میشه و باید هنگام نمایش فرم تایمر رو فعال کنی.
کد:
Private Sub ProcessMessages()
Dim Message As Msg
Do While Not Isnot
WaitMessage
If PeekMessage...
Form1.Show
'______________'
Timer1 = True
'______________'
End If
DoEvents
Loop
End Sub