Revizyon Notu : Sorun cozuldu, bir kod grubu gozumden kacmış, eksik yazmışım..........
Kod:
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown drag = True mousex = Windows.Forms.Cursor.Position.X - Me.Left mousey = Windows.Forms.Cursor.Position.Y - Me.Top End Sub
------------------------------------------------------------------------------------


Formun "FormBorderStyle" ozelliğini "None" yaptığım icin, programın calışması esnasında, formu surukleyebilmek icin, formun "Mouse_Down" ve "Mouse_Up" prosedurlerine formu surukleyebilmek icin yazılacak kodları bir yerden buldum ve yazdım.

Şu anda form sadece, forma ait herhangi bir noktadan tutarsam surukleniyor. Ancak form uzerindeki diğer objelerden de tutarak suruklemek istediğimde, aynı kodlar diğer objeler icin calışmadı.

Form icin drag kodları aşağıda.

Ben orneğin; form uzerindeki GrupBox, PictureBox, TextBox, Label gibi objelerin uzerine mousedown yaptığımda da surukleyebilmek istiyorum. Bu objeler icin kodlar uzerinde ne gibi değişiklikler yapmalıyım ?
Kod:
Public Class Form1 Dim drag As Boolean Dim mousex As Integer Dim mousey As Integer Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If drag Then Me.Top = Windows.Forms.Cursor.Position.Y - mousey Me.Left = Windows.Forms.Cursor.Position.X - mousex End If End Sub Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp drag = False End Sub End Class

__________________