Visual Basic formborderstyle none iken formu hareket ettirme.

spyscorpio dedi: ↑

Normalde formborderstyle none iken hiçbişi olmaz ama bu kodu Form1 in altına yapıştırırsanız hareket ettirebilirsiniz. Dikkat edin Form1_Load değil Form1 in altına!

Dim IsDraggingForm As Boolean = False
    Private MousePos As New System.Drawing.Point(0, 0)

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = MouseButtons.Left Then
            IsDraggingForm = True
            MousePos = e.Location
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
        If e.Button = MouseButtons.Left Then IsDraggingForm = False
     End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
        If IsDraggingForm Then
            Dim temp As Point = New Point(Me.Location + (e.Location - MousePos))
            Me.Location = temp
            temp = Nothing
        End If
    End Sub

Eğer arka plan olarak picturebox kullancaksanız picturebox'un enabled özelliğini false yapın.