#1 28. August 2010 Borderless Form move Hallo Board, ich bin gerade dabei einen eigenen Webrowser zu erstellen. (Bin Anfänger in VB) Folgenden Code habe ich bereits: Spoiler Code: Public Class Form1 Dim NewPoint As New System.Drawing.Point Dim X, Y As Integer Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown X = Control.MousePosition.X = Me.Location.X Y = Control.MousePosition.Y = Me.Location.Y End Sub Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then NewPoint = Control.MousePosition NewPoint.X -= (X) NewPoint.Y -= (Y) Me.Location = NewPoint End If End Sub End Class Aber sobald ich das Programm ausführe, setzt sich mein Cursor direkt an die obere linke Ecke. Wie verhindere ich das? Gruß, Lunatic44 + Multi-Zitat Zitieren
#2 28. August 2010 AW: Borderless Form move Das sieht mir irgendwie mehr nach .NET aus. Was willst du da überhaupt machen? + Multi-Zitat Zitieren
#3 29. August 2010 AW: Borderless Form move Hat sich erledigt. Der Fehler lag in der 6-7 Zeile. Code: Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown X = Control.MousePosition.X [COLOR="Red"]=[/COLOR] Me.Location.X Y = Control.MousePosition.Y [COLOR="Red"]=[/COLOR] Me.Location.Y End Sub Das " = " muss durch " - " ersetzt werden. Damit ist es möglich, Form1 mit Panel1 zu steuern. Aber noch eine andere Frage: Ich bin mit dem Projekt nun fertig, allerdings stört mich noch etwas. Ich kann den eigenen WebBrowser nicht maximieren. Die einzelnen Panels und Pics passen sich nicht automatisch an. Wie löst man das Proplem? Edit: Hier könnt ihr euch das teil mal ansehn -> Link zum Prog + Multi-Zitat Zitieren