[VB] Form verschieben Formboarderstyle = None

[.Mars]

Wie lautet der code zum verschieben einer Form,
wenn Formboarderstyle = None ist?
Habe eine Imagebox als Form, da meine Form transparent ist.
Kennt jemand den Code? Es ist auf jedenfall nicht der
gleiche, wie als wenn man einfach nur formboarderstyle auf "none" setzt.

[Al Kappaccino]

Vielleicht mal Google usen?

Dim Point As New System.Drawing.Point()
Dim X, Y As Integer

    Private Sub Main_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (X)
            Point.Y = Point.Y - (Y)
            Me.Location = Point
        End If
    End Sub


    Private Sub Main_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

[.Mars]

Nein, der Code geht nicht.

[Al Kappaccino]

Natürlich tut er das...

[.Mars]

Nein, bei mir nicht.

[Al Kappaccino]

Weis ja nicht was du falsch machst, aber ich kann den Code einfach C&P'en und er funzt direkt <.<

Btw. Schreibt er das auch in den Eventhanlder der Form rein? Wenn nicht, wie wäre es mit manuel eintragen ;o

Edit: Sehe gerade erst, dassu ja anscheinend eine PictureBox über die ganze Form gelegt hast und nicht einfach nur das Backgroundimage verändert hast, in dem Fall muss der Code natürlich in das Event von der PictureBox, weil sonst die Mausbefehle gar nicht ankommen <.<

[.Mars]

Hab dich mal skype geaddet (:

[Kraizy​]

Nicht mal C&P-Codes kann man heutzutage anwenden..

[.Mars]

Lol.
Ich habe es ganz anders gemacht, du hast keine Ahnung xKraizy ;D
Habe es aber jetzt.

[.Yuzuru]

I don't understand clearly.
Do you need a code moving the form with the noborder style?

[Al Kappaccino]

Originally Posted by .Yuzuru

I don't understand clearly.
Do you need a code moving the form with the noborder style?

Yeah, because as u might know, the windowform can't be moved directly with the mouse while there is no WindowStyle. But his problem is solved

[vdd]

Funktioniert 100%ig

PHP Code:

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            Label1.Capture = False
            Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))


        Else : End If
    End Sub 


Besser wäre es wenn du statt einem Label ein Panel nimmst:

PHP Code:

    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            Panel1.Capture = False
            Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))


        Else : End If
    End Sub