تحويل الفورم إلى متاجوب في الفيجوال ستوديو | Dragable Window/Form for VB.net - iN4sser

تحويل الفورم إلى متاجوب في الفيجوال ستوديو | Dragable Window/Form for VB.net

تحويل الفورم إلى متاجوب في الفيجوال ستوديو | Dragable Window/Form for VB.net iN4sser 5من 5
بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هل تريد جعل الـ Form يتجاوب مع الضغط والسحب في الـ Visual Studio ? قم بإ...
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته



هل تريد جعل الـ Form يتجاوب مع الضغط والسحب في الـ Visual Studio ?
قم بإضافة هذا الكود داخل الـ Form
Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
        If IsFormBeingDragged Then
            Dim temp As Point = New Point()
            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
End If
    End Sub
.

www.iN4sser.com

تعليقات ديسكس

ليست هناك تعليقات:

إرسال تعليق