Per Code erstellte Form bewegen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von sebbe232.

    Per Code erstellte Form bewegen

    Hey...

    Ich habe eine Form per Code erstellt die erscheint wenn ich auf einen Button klicke...

    Der Formborderstyle ist auf None gesetzt...

    Wie bekomme ich es jetzt hin das ich die form per Maus bewege ?


    hier mal mein Code ^^


    VB.NET-Quellcode

    1. Dim form As Form
    2. For i As Integer = 1 To 1
    3. form = New Form()
    4. form.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    5. form.Width = 150
    6. form.Height = 150
    7. form.StartPosition = FormStartPosition.CenterScreen
    8. form.Show()
    9. Next



    Hoffe auf Hilfe ^^

    VB.NET-Quellcode

    1. Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As _
    2. System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    3. MyClass.MouseButton = e.Button()
    4. With MyClass.CurrentPosition
    5. .X = e.X()
    6. .Y = e.Y()
    7. End With
    8. End Sub
    10. Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As _
    11. System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    12. MyClass.MouseButton = Nothing
    13. End Sub
    15. Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As _
    16. System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    17. Select Case MyClass.MouseButton
    18. Case Is = MouseButtons.Left
    19. MyClass.Top = MyClass.Cursor.Position.Y() - _
    20. MyClass.CurrentPosition.Y()
    21. MyClass.Left = MyClass.Cursor.Position.X() - _
    22. MyClass.CurrentPosition.X()
    23. Case Is = Nothing
    24. Exit Sub
    25. End Select
    26. End Sub
    Meine Projekte:

    WizSearch: 100%
    Ansehen

    VB.NET-Quellcode

    1. Private CurrentPosition As New System.Drawing.Point
    2. Private MouseButton As System.Windows.Forms.MouseButtons = Nothing
    4. Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    5. MyClass.MouseButton = e.Button()
    6. With MyClass.CurrentPosition
    7. .X = e.X()
    8. .Y = e.Y()
    9. End With
    10. End Sub
    12. Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    13. Select Case MouseButton
    14. Case Is = Windows.Forms.MouseButtons.Left
    15. MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
    16. MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
    17. Case Is = Nothing
    18. Exit Sub
    19. End Select
    20. End Sub
    22. Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    23. MyClass.MouseButton = Nothing
    24. End Sub

    Weis jetzt nicht wie ich es sagen soll :D

    Bei einer normalen Form(die nicht per Code gemacht wurde) gibt es ja die Events Mouse_Down und Mouse_Move


    VB.NET-Quellcode

    1. Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    3. End Sub
    5. Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    7. End Sub


    aber bei der selbst gemachten sag ich jetzt mal gibt es die ja nicht(verbessert mich wenn doch ^^) darum helfen mir die Codes so nicht :/

    Brauche halt auch diese Event´s aber weiß nicht wie ich die mache...

    Das kannst du mit AddHandler machen. Dann übergibst du beispielsweise eine anonyme Funktion. Hier mal ein Beispiel:

    VB.NET-Quellcode

    1. Public Sub ShowForm()
    2. Dim frm As New Form
    3. AddHandler frm.FormClosing, Sub(sender As Object, e As FormClosingEventArgs)
    4. If MessageBox.Show("Wollen sie das Fenster wirklich schließen?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
    5. e.Cancel = True
    6. End If
    7. End Sub
    8. frm.Show()
    9. End Sub

    Hier habe ich eine Sub ShowForm, diese führt alles aus. Dort deklariere ich erstmal unsere Form, dann rufe ich AddHandler auf. Was das Ding macht ist: Es weist dem Event FormClosing unserer erstellten Form eine anonyme Sub zu, die hinter dem Komma. Diese hat die Signatur sender As Object, e As FormClosingEventArgs, diese entspricht der Signatur des Events. Die Signatur für MouseDown beispielsweise ist sender As Object, e As System.Windows.Forms.MouseEventArgs. Gehen wir aber weiter im Code. Diese Sub wird also nun aufgerufen, sobald das Event FormClosing auftritt, jetzt können wir noch unseren Code einfügen: Da ich in meinem Beispiel fragen möchte, ob sich das Fenster wirklich schließen soll, zeige ich eine MessageBox, prüfe, was das Ergebnis ist und schaue dann, ob die Form wirklich geschlossen werden soll.
    Das ist zwar nicht genau das, was du wolltest, aber wenn du es dir mal anschaust, wirst du sicher herausfinden, wie du den Code von Jonas Jelonek in mein System einfügen kannst :).
    MfG Stefan

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Dim form As Form
    5. For i As Integer = 1 To 1 'Auch wenn ich den Sinn der Schleife nicht ganz nachvollziehen kann
    6. form = New Form()
    7. form.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    8. form.Width = 150
    9. form.Height = 150
    10. form.StartPosition = FormStartPosition.CenterScreen
    11. form.Show()
    12. Next
    13. End Sub
    15. End Class
    16. Public Class Form
    17. Inherits Windows.Forms.Form
    18. Protected Overrides Sub WndProc(ByRef m As Message)
    19. If m.Msg = &H84 Then
    20. m.Result = New IntPtr(2)
    21. Else
    22. MyBase.WndProc(m)
    23. End If
    24. End Sub
    25. End Class


    Events bekommst du übrigens entweder mit Addhandler (siehe oben) oder indem du ausserhalb der Sub die Form deklarierst und ein withevents miteinfügst.

    Ist doch dasselbe, stattdessen erstellt er halt ein Object von der Klasse Form, anstatt einer Form und wenn er eine Form mit VS erstellen würde, würde er trotzdem auf das gleiche Problem stoßen. Ausserdem ginge das hier auch:

    VB.NET-Quellcode

    1. e.Cancel = MessageBox.Show("Wollen sie das Fenster wirklich schließen?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No


    statt vorher abzufragen.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RushDen“ ()

    Dass das auch geht ist mir klar, ich mache bei kleineren Projekten extrem oft Einzeiler. Jedoch ist das so übersichtlicher und ich denke mal, dass der TE noch nicht so viel Erfahrung mit VB hat.

    Hey...

    Zuerst mal Danke für die viele Hilfe ^^

    alsoooo ich hab es fast hinbekommen nur das sich nicht die erstellte Form bewegt sondern die Form die,die Form per Button erstellen soll...


    VB.NET-Quellcode

    1. Public Sub ShowForm()
    2. Dim form As New Form
    5. form = New Form()
    6. form.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    7. form.StartPosition = FormStartPosition.CenterScreen
    8. form.Width = 150
    9. form.Height = 150
    10. form.Show()
    11. picbox()
    12. form.Show()
    13. Me.Close()
    14. For i As Integer = 1 To 1
    15. AddHandler form.MouseDown, Sub(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    17. X = Control.MousePosition.X - Me.Location.X
    18. Y = Control.MousePosition.Y - Me.Location.Y
    20. End Sub
    22. AddHandler form.MouseMove, Sub(sender As Object, e As System.Windows.Forms.MouseEventArgs)
    24. If e.Button = Windows.Forms.MouseButtons.Left Then
    25. NewPoint = Control.MousePosition
    26. NewPoint.X -= (X)
    27. NewPoint.Y -= (Y)
    28. Me.Location = NewPoint
    29. End If
    30. End Sub
    32. Next
    33. End Sub


    bitte noch einmal um Hilfe :S

    Was soll der ganze Ranz? Erstell Dir eine Form im Designer, leg die Properties (FormBorderStyle usw.) fest und implementiere die Funktionalität in dieser Klasse.

    VB.NET-Quellcode

    1. Public Class Form2
    2. Private _drag As Boolean = False
    3. Private _pos As Point
    5. Private Sub Form2_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    6. If e.Button = Windows.Forms.MouseButtons.Left Then
    7. _drag = True
    8. _pos = e.Location
    9. End If
    10. End Sub
    12. Private Sub Form2_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
    13. If _drag Then
    14. Me.Location = New Point(Me.Location.X + e.X - _pos.X, Me.Location.Y + e.Y - _pos.Y)
    15. End If
    16. End Sub
    18. Private Sub Form2_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
    19. If _drag AndAlso e.Button = Windows.Forms.MouseButtons.Left Then
    20. _drag = False
    21. End If
    22. End Sub
    23. End Class


    Aus dem "Hauptprogramm" erstellst Du einfach so viele Instanzen, wie es Dir beliebt.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Dim f2 As New Form2
    4. f2.Show()
    5. End Sub
    6. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

Facebook
Telefonspende