Form skalierbar machen (FormBorderStyle=None) & Form umherziehbar machen

Fanalys · 9. Mai 2013, 12:57

Hallo liebe VBler,

ich habe mir eine Form erstellt, die bis jetzt folgendermaßen aussieht:

So weit, so gut. Die Buttons (Panel umfunktioniert) funtkionieren soweit. Allerdings kann ich die Form weder an meiner TitleBar umherziehen, noch skalieren (an den Ecken). Wie kann ich das beheben?

MfG

Bluespide · 9. Mai 2013, 13:04

[VB 2005] Resize bei Form ohne Border?

Verschieben

VB.NET-Quellcode

Protected Overrides Sub WndProc(ByRef m As Message)
If (m.Msg = &H84) Then
m.Result = &H2
Else
MyBase.WndProc(m)
End If
End Sub

Fanalys · 9. Mai 2013, 13:14

Bluespide schrieb:

[VB 2005] Resize bei Form ohne Border?

Verschieben

VB.NET-Quellcode

Protected Overrides Sub WndProc(ByRef m As Message)

If (m.Msg = &H84) Then

m.Result = &H2

Else

MyBase.WndProc(m)

End If

End Sub

Danke, aber wie kann ich das Verschieben anwenden?

MfG

Bluespide · 9. Mai 2013, 13:24

"Verschieben anwenden?" Wie meinst du das? Wenn ich den Code in die Form kopiere, dann kann ich mit gedrückter Maustaste das Fenster verschieben.

Derfuhr · 9. Mai 2013, 13:25

Hallo,

so kann man das machen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll")> _
Private Shared Function ReleaseCapture() As Boolean
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Private Sub moving() Handles Panel1.MouseDown
ReleaseCapture()
SendMessage(Handle, WM_NCLBUTTONDOWN, CType(HTCAPTION, IntPtr), CType(2, IntPtr))
End Sub
End Class

wenn Panel1 Mousedown ist kann du die Form verschieben

mfG

Derfuhr

Fanalys · 9. Mai 2013, 13:31

Bluespide schrieb:

"Verschieben anwenden?" Wie meinst du das? Wenn ich den Code in die Form kopiere, dann kann ich mit gedrückter Maustaste das Fenster verschieben.

Tut mir leid, ich hatte den Code nicht verstanden, konnte ihn aber auch nicht teste und habe vorschnell geantwortet ...

MfG

Gather · 9. Mai 2013, 13:42

VB.NET-Quellcode

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If (e.Button = Windows.Forms.MouseButtons.Left) Then
Me.Capture = False
Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
End If
'Dieser Code ist dafür da, dass man die Form auch wenn sie im BorderStyle None ist bewegen kann.
End Sub

DAmit kann man sie verschieben

Gonger96 · 9. Mai 2013, 14:25

Guck dir auchma das an Größenänderung bei Forms mit Borderstyle = None

Form skalierbar machen (FormBorderStyle=None) & Form umherziehbar machen

Form skalierbar machen (FormBorderStyle=None) & Form umherziehbar machen

VB.NET-Quellcode

Bluespide schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Bluespide schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben