Bildschirm opitmieren
09.02.2007 19:51:54
selma
ich habe immer wieder Probleme, dass meine Anwendung optimal auf den Bildschirm
passt.
Teilweise habe ich das X für Schließen nicht im Sichtbereich des Bildschirms,
oder z. B. das sichtbare Bild aus der Anwendung beginnt ca. 1 cm unterhalb
der möglichen Bildschirmansicht.
Bisher verwende ich folgenden Code:
Private Sub UserForm_Activate()
Set objForm = New clsUserform
With objForm
.MaxButton = False
.MinButton = True
.BorderStyle = xlAenderbar
.Create Hauptmenü
Application.WindowState = xlMinimized
Application.WindowState = xlMaximized
End With
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub
WEr kann mir hier weiterhelfen?
Viele Grüsse
selma