Viele fragen sich: "Wie kann ich ein Fenster bewegen das keine Form mehr hat, indem ich es irgendwo festhalte"
Hier die Antwort:
Einfach i-wo reinhauen, und das Problem ist gelößtCode:Private CurrentPosition As New System.Drawing.Point Private MouseButton As System.Windows.Forms.MouseButtons = Nothing Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown MyClass.MouseButton = e.Button() With MyClass.CurrentPosition .X = e.X() .Y = e.Y() End With End Sub Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Select Case MouseButton Case Is = Windows.Forms.MouseButtons.Left MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y() MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X() Case Is = Nothing Exit Sub End Select End Sub Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp MyClass.MouseButton = Nothing End Sub
MFG
Montaxx



 
			
			 [VB.Net] Fenster bewegen mit festhalten
 [VB.Net] Fenster bewegen mit festhalten
				

 
					
					
					
						 Zitieren
  Zitieren 
			