Laufzeitfehler 384 - Minimieren/Maximieren
19.04.2007 19:36:00
selma
ich bekommen den Fehler
Laufzeitfehler 384
Das Formular kann nicht verschoben oder in der Größe geändert werden, während es minimiert oder maximiert ist.
Folgenden Code benütze ich beim Minimieren/Maximieren:
Private Sub UserForm_Activate()
On Error Resume Next
Set objForm = New clsUserform
With objForm
.MaxButton = True
.MinButton = True
.BorderStyle = 1
.Create Me
End With
Application.WindowState = xlMinimized
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
frmHaupt.Left = ((Me.Width) - frmHaupt.Width) / 2
frmHaupt.Top = ((Me.Height) - frmHaupt.Height) / 2
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or _
_
SWP_NOSIZE)
End Sub
Was bedeutet diese Fehlermeldung?
Wer kann mir hier Tipps geben?
viele grüsse
selma