تحريك النافذة التى بدون شريط عنوان

اذهب الى الأسفل

تحريك النافذة التى بدون شريط عنوان  Empty تحريك النافذة التى بدون شريط عنوان

مُساهمة من طرف السنى في الأربعاء مايو 15, 2013 8:46 pm

أهلا بكم


من المعروف أذا قمت بإنشاء نافذة بدون شريط عنوان ....أى جعلت الخاصية border style=0 أنك لا تستطيع تحريكها .....لذلك اقدم لكم هذا الكود لكيفية تحريك النافذة تلك .....


الكود:

Dim xx As Single
Dim yy As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    xx = X
    yy = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        With Me
            .Left = .Left - (xx - X)
            .Top = .Top - (yy - Y)
        End With
    End If
End Sub


السنى
السنى
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 223
النقاط : 420
التقيم : 23
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى