19-11-12, 05:39 PM
[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))