Form Stili NONE Dayken Hareket Ettirme

[JomAngeeel]

Form1_Load değil Form1 in altına
Kod:

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

 

[ScriptHub001]

o nasıl çalışır ? bana öğretebilirmisin ?

 

[Stef17]

I don't understand how does this help, I'm new to this topic, but can you explain what does this code do?

 

[JomAngeeel]

I don't understand how does this help, I'm new to this topic, but can you explain what does this code do?

This code allows you to move your form style when it's not present.

Post automatically merged: 5 Eyl 2020

o nasıl çalışır ? bana öğretebilirmisin ?

o nasıl çalışır ? bana öğretebilirmisin ?

Visual studio yu Türkçe kullanıyorsan Bu kod senin form un sitili Hiçbiri(None) iken hareket etmesini sağlıyor

 

[LastByte CheatZ]

bu kodlarla uğraşmak yerine (amacım reklam yapmak değildir) GunaDragControl sayesinde kolayca hareket ettirebilirsiniz

 

[falikhg]

o nasıl çalışır ?

 

[GTYUSUF]

nasıl çalıştığını anlatır mısın reis yaaa

 

[mythhh5252]

nasıl çalıştırabilirim ?