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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة من طرف السنى في الأربعاء مايو 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
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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