جابجایی فرم فرعی بدون کادر اطراف ...

[tam2145]

سلام
من داخل برنامه یک فرم برای سرچ ایجاد کردم و کادر فرم را حذف کردم ...
می خواهم با کلیک بر روی یک پیکچر باکس و کشیدن آن به اطراف ، فرم سرچ هم ، مناسب با حرکت و هم جهت با آن ، تغییر مکان دهید و جابجا شود ....
یا با کلیک و کشیدن GroupPanel فرم سرچ جابجا شود ...
لطفا کمک کنید ...

[JaVa]

این سورس برای جابجا کردن فرم با کلیک بر روی PictureBox هست:



Public Class Form1
Private IsMouseDown As Boolean = False
Private MouseOffset As Point
Private ClientOffset As Size

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If e.Button = MouseButtons.Left Then
IsMouseDown = True
MouseOffset.X = e.X
MouseOffset.Y = e.Y
End If
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If IsMouseDown Then
Me.Location = New Point( _
Me.Location.X + e.X - MouseOffset.X, _
Me.Location.Y + e.Y - MouseOffset.Y)
End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
IsMouseDown = False
End Sub
End Class

[JaVa]

معرفی تایپیک:

جابجايي و حركت دادن فرمي كه TitleBar ندارد (http://barnamenevis.org/showthread.php?349795-%D8%AC%D8%A7%D8%A8%D8%AC%D8%A7%D9%8A%D9%8A-%D9%88-%D8%AD%D8%B1%D9%83%D8%AA-%D8%AF%D8%A7%D8%AF%D9%86-%D9%81%D8%B1%D9%85%D9%8A-%D9%83%D9%87-TitleBar-%D9%86%D8%AF%D8%A7%D8%B1%D8%AF)