[boty]

(02-02-14, 10:51 PM)أسامة كتب : يمكنك باستخدام Checkbox
أولآ اجعل خاصيه
FormBorderStyle = None
من الخصائص
او بى هذا الكود

كود :

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

ثم هذا الكود لى تحريك الفرم او لا

كود :

Dim Chck As Integer
    Dim mouseMovx As Integer
    Dim mouseMovy As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Chck = True
        mouseMovx = Windows.Forms.Cursor.Position.X - Me.Left
        mouseMovy = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If Chck = True And CheckBox1.Checked = True Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mouseMovy
            Me.Left = Windows.Forms.Cursor.Position.X - mouseMovx
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Chck = False
    End Sub

جاري التجربة وشكرا

---

أخي الكريم اشكرك على هذا الكود

لكن الكود يعمل من حيث التحريك

لكن اخي كنت اقصد ان يتم وضع الفورم على الديسك توب

بحيث انه لا يتنقل بين النوافذ مثل الساعة المرفقة في الأعلى حيث لا تنتقل من على الديسك توب لكن يمكنها التحرك من موضع على الديسك توب الى موضع اخر على الديسك توب

و اعيد شكري لك للمساعدة