Userform maximized größe lässt sich nicht ändern

Hallo guten morgen VBA profis,
habe ein problem bei dem ich alleine nicht weiter komme.
Ich habe eine Userform.Diese kann ich durch klicken auf das Maximieren symbol oben rechts, links neben dem "X" Maximieren.Das klappt auch nur ich möchte wenn jemand die Form verändert also die größe das die größe width als beispiel nur maximal 300 ist und height auch 300.
Ich habe es dann so ähnlich versucht.


Private Sub UserForm_Resize()
Me.Width = 300
Me.Height = 300
End Sub

Aber wenn ich die form Maximiere kommt immer der Laufzeitfehler 384
"Das Formular kann nicht verschoben oder in der größe verändert werden,während es minimiert oder maximiert ist.
Wie kann ich erreichen das man meine Form nicht größer ziehen kann also z.b 300
Vielen Dank für eure Hilfe !!
gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer danke für deine schnelle Antwort.
Aber das Problem ist das ich möchte gerne das der minimieren button oben ist und den bekomme ich mit meinem klassenmodul so wie ich das sehe nicht ausgeblendet.
wenn das gehen würde wäre supppeeer !
Vielen Dank hier ist mein Klassenmodul code:
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow _
Lib "user32" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar _
Lib "user32" _
(ByVal nWnd As Long) As Long
Private Declare Function SetFocus _
Lib "user32" _
(ByVal hwnd As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Dim objMinMaxUF As Object
Public Property Set formular(objUF As Object)
Dim lngUFHandle As Long
Dim lngFensterStil As Long
Set objMinMaxUF = objUF
lngUFHandle = FindWindow(vbNullString, objMinMaxUF.Caption)
lngFensterStil = GetWindowLong(lngUFHandle, GWL_STYLE)
lngFensterStil = lngFensterStil Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngUFHandle, GWL_STYLE, lngFensterStil
lngFensterStil = GetWindowLong(lngUFHandle, GWL_EXSTYLE)
lngFensterStil = lngFensterStil Or WS_EX_APPWINDOW
SetWindowLong lngUFHandle, GWL_EXSTYLE, lngFensterStil
ShowWindow lngUFHandle, SW_HIDE
DrawMenuBar lngUFHandle
ShowWindow lngUFHandle, SW_SHOW
SetFocus lngUFHandle
End Property
und so rufe ich es auf beim start der Form.


Private Sub UserForm_Activate()
Set objDieseUF.formular = Me
End Sub

Danke schon für die Hilfe

Beliebteste Forumthreads (12 Monate)

Userform maximized größe lässt sich nicht ändern

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform maximized größe lässt sich nicht ändern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread