[VB.NET] Form bewegen

P00w · 09/10/2011, 02:55

Hey Leute,
Ihr kennt ja wenn man FormBoderStyle auf "None" setzt
Das man die Form1 wenn sie gestartet ist nicht mehr hin und her schieben kann
Weil ja der Rahmen weg ist

Aber ich habe ein Code für euch damit ihr die Form dann noch immer "hin und her" schieben könnt.
(Jeder der sich gut mit VB auskennt kann das ja eh aber das ist jetzt für die Leute die es noch nicht so gut können)

Code:

    Private Sub Sticky_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Capture = False
            Const WM_NCLBUTTONDOWN As Integer = &HA1S
            Const HTCAPTION As Integer = 2
            Dim msg As Message = Message.Create(Me.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
            Me.WndProc(msg)
        End If
    End Sub

.KeRo · 09/10/2011, 18:10

Ty klappt ganz gut

.SkyneT. · 09/10/2011, 21:10

Bekommst ein Thx, hab früher mal ne Zeit lang nach sowas gesucht, dann
hab ichs aber doch noch selber hinbekommen...

(Nur war mein Code viel länger und die einzigen Sachen die gleich sind wie hier
sind :

Code:

    Private Sub Sticky_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then

P00w · 09/10/2011, 21:52

Es gibt einige möglichkeiten es zu machen

Kraizy · 09/18/2011, 17:48

Quote:

Originally Posted by -_HackGamer

Nice das hat keiner gefunden kriegst ein thanks

gefunden?^^

P00w · 09/19/2011, 07:22

er hats schon editiert^^

Er meinte wohl was anderes

Benhero · 10/17/2011, 16:54

Gibt es auch eine Möglichkeit die Form über ein Element. In meinem Fall ein Bild zu bewegen? Also ich klicke bild an und bewege die maus und form bewegt sich mit?

Wäre nett wenn jemand ne idee hat wies geht

Mfg. Benhero

Demon-777 · 10/17/2011, 17:47

@Benhero: Let just say you want to use it with a picturebox. So declare an MouseDown event for you picturebox and write following code in there:

Code:

private void samplePicBox_MouseDown(object sender, MouseEventArgs e)
{
    const int WmNclButtonDown = 0xA1;
    const int HtCaption = 0x2;

    if (e.Button == MouseButtons.Left)
    {
        ReleaseCapture();
        SendMessage(this.Handle, WmNclButtonDown, HtCaption, 0);
    }
}

but you should also add System.Runtime.InteropServices class to your imports and declare 2 winapi functions.

Code:

[DllImportAttribute("user32.dll")]
public static extern int SendMessage(IntPtr handle, int message, int wParam, int lParam);

[DllImportAttribute("user32.dll")] 
public static extern bool ReleaseCapture();

well it's in C# but I hope you are smart enough to rewrite it with VB.NET or at least use code translator (look at google).

Benhero · 10/17/2011, 18:27

i´ve just startet with Vb.NET... so i can´t translate it.. and the most Online Translater i hate

....
But thank you very mutch..

Code:

[DllImportAttribute("user32.dll")]
public static extern int SendMessage(IntPtr handle, int message, int wParam, int lParam);

[DllImportAttribute("user32.dll")] 
public static extern bool ReleaseCapture();

Must be

Code:

Import System

Or?

Mfg.

Kraizy · 10/17/2011, 18:30

Aus dem Kopf, muss nicht richtig übersetzt sein:

PHP Code:


			
Private Sub samplePicBox_MouseDown(sender As Object, e As MouseEventArgs) Handles samplePicBox.MouseDown
     Const WmNclButtonDown As Integer = &HA1
     Const HtCaption As Integer = &H2

     If e.Button = MouseButtons.Left Then
          ReleaseCapture()
          SendMessage(samplePicBox.Handle, WmNclButtonDown, HtCaption, 0)
     End If
End Sub

Ansonsten:

Benhero · 10/17/2011, 19:11

geht leider nicht.

Code:

ReleaseCapture
SendMessage

Nicht Deklariert..

Mfg.

Kraizy · 10/17/2011, 19:15

Quote:
Originally Posted by Benhero
geht leider nicht.
Code:
ReleaseCapture
SendMessage
Nicht Deklariert..

Mfg.

Bitte Grundlagen lernen..
Diese musste ja auch erstmal deklarieren.
Post von Demon-777:

Quote:

[DllImportAttribute("user32.dll")]
public static extern int SendMessage(IntPtr handle, int message, int wParam, int lParam);

[DllImportAttribute("user32.dll")]
public static extern bool ReleaseCapture();

Benutz die Seite, die ich dir gegeben habe und lass es nach VB.NET übersetzen.

Benhero · 10/17/2011, 19:23

Problem soweit gelöst...

Weiteres Problem.. Er verschiebt zwar das Bild. Aber die Form nicht mit :/
Ist dies irgendwie möglich?

Mfg.

##### EDIT

Code:

Imports System.Runtime.InteropServices

war erforderlich &

Code:

SendMessage(PictureBox1.Handle, WmNclButtonDown, HtCaption, 0)

Durch:

Code:

 SendMessage(Me.Handle, WmNclButtonDown, HtCaption, 0)

ersetzen

Danke für eure Hilfe!!!

Kraizy · 10/17/2011, 19:53

Achso, dachte du willst die PicBox bewegen, und nicht über diese die komplette Form. Naja dann ist ja logisch, dass du das Handle der Form selbst nehmen musst.^^

Sedrika · 07/26/2012, 03:37

Ist zwar etwas her aber das hier ist die beste Methode find ich:

PHP Code:


			
    Private ptMouseDownLocation As Point
    Private Sub f_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ptMouseDownLocation = e.Location
        End If
    End Sub
    Private Sub f_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location = e.Location - ptMouseDownLocation + Me.Location
        End If
    End Sub