ايران ويج

نسخه‌ی کامل: حرکت فرم همراه با حرکت ماوس
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3
با عرض معذرت تا دیدم یه تایمر دیگه اضافه کردی برنامه رو بستم.
توجه کردی اگه با راست کلیک یا وسط کلیک «دوبار کلیک» کنی مشکل نداره.
مشکل مال وقتیه که با کلیک چپ «دوبار کلیک» می کنی و چون تو روال 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
صفحه‌ها: 1 2 3