[المبرمج علي نوري]

[COLOR="#FF0000"]السلام عليكم

من المنتدى القديم - تحريك الفورم من اي مكان ( للاخ omar2205 )
[/COLOR]
-----------------------------------------

بسم الله الرحمن الرحيم

تحريك اى فورم بدون اى مشاكل ان شاء الله

الكود بسيط جداً وممكن يستخدم لتحريك اي اداة

لتحريك الفورم :

كود :

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        CType(sender, Control).Capture = False
        WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
    End Sub

وادناه كود لتحريك panal

[HTML] Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
CType(sender, Control).Capture = False
WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
End Sub[/HTML]



الكود يجبان يوضع في الحدث MouseDown في اي اداة او فورم

وهذا الكود بدون ان يضاف لاي اداة

كود :

CType(sender, Control).Capture = False
        WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))