Grösse der UserForm!
27.11.2005 15:53:27
Gerhard
Bekomme das mit der Grösse der UserForm auf verschiedenen Bildschirmen nicht hin.
Habe jetzt folgende Codes in VBA:
Im Modul 1:
Option Explicit
Public Const SM_CXSCREEN = 0
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10
In der UserForm :
Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub
Private Function Resulution() As String
Resulution = GetDeviceCaps(GetDC(GetDesktopWindow), HORZRES) & "x" & GetDeviceCaps(GetDC(GetDesktopWindow), VERTRES)
End Function
Private Sub UserForm_Initialize()
Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / 1152 * 100
End Sub
Habe keine Ahnung wie das funktioniert, sollte aber die UserForm Grösse anpassen. Funktioniert auch auf normalen Bildschirmen nehme ich an weil da die Userform Grösse stimmt. Es könnte aber auch sein das es da sowieso passt weil ich die UserForm auf einen normalen 19 Zoll Monitor programmiert habe. Zuhause habe ich einen 19 Zoll Flachbettbildschirm und da funktioniert es NICHT. Die UserForm wird zu gross und ein Teil verschwindet im unteren Bildschirmrand.
Kann mir jemand von Euch sagen was da falsch ist.
Bitte um Hilfe
Gerhard