AW: Userform auf ganzen Bildschirm
22.08.2018 19:33:03
Nepumuk
Hallo Sigi,
teste mal:
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
ByVal nIndex As Long) As Long
Private Declare Function FindWindowA Lib "user32.dll" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = -&H10
Private Const WS_CAPTION = &HC00000
Private Const GC_CLASSNAMEMSUSERFORM = "ThunderDFrame"
Private Const SM_CXSCREEN = 0&
Private Const SM_CYSCREEN = 1&
Private Sub CommandButton1_Click()
Call Unload(Object:=Me)
End Sub
Private Sub UserForm_Initialize()
Const PIXEL_TO_POINT As Long = 0.75
Dim lngHwnd As Long, lngStyle As Long
lngHwnd = FindWindowA(GC_CLASSNAMEMSUSERFORM, Caption)
lngStyle = GetWindowLong(lngHwnd, GWL_STYLE)
lngStyle = lngStyle And Not WS_CAPTION
Call SetWindowLong(lngHwnd, GWL_STYLE, lngStyle)
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
.Width = GetSystemMetrics(SM_CXSCREEN) * PIXEL_TO_POINT
.Height = GetSystemMetrics(SM_CYSCREEN) * PIXEL_TO_POINT
End With
End Sub
Gruß
Nepumuk