Hallo zusammen,
ich habe eine Automatische Bildschirmanpassung für mein UserForm.
Jetzt habe ich aber noch das Problem das er die Inhalte nicht automatisch der Größe anordnet.
Kann mir da jemand bitte weiterhelfen.
Hier mein Code für die Bildschrimauflösung [der kann auch gerne verschwinden wenn es einen schöneren gibt : ) ]
'Bildschirmauflösung
Private Declare Function GetSystemMetrics Lib _
"user32" (ByVal nIndex As Long) As Long
Private Const SM_CYSCREEN As Long = 1
Private Const SM_CXSCREEN As Long = 0
'Position
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd _
As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal bRepaint As Long) As Long
'Starten einer Userform im Vollbildmodus
Private Sub UserForm_Activate()
BildschirmBreite = GetSystemMetrics(SM_CXSCREEN)
BildschirmHöhe = GetSystemMetrics(SM_CYSCREEN)
wHandle = FindWindow(vbNullString, Me.Caption)
MoveWindow wHandle, 0, 0, BildschirmBreite, BildschirmHöhe, 1
End Sub
Danke für eure Bemühen
Gruß Beachy |