Office: dynamische userform bei zwei Bildschirmen?

Alex22 · 5. Januar 2016

Hallo,

ich habe ein fertiges Userform welche bei Start die Größe des Bildschirms ausließt und die Userform automatisch daran angepasst und zentriert wird. Getestet auf 17' und 27' Zoll. Jetzt habe ich die Userform einem Kollegen geschickt bei ihm am laptop fehlt jedoch ein Teil des rechten userforms wieso?

Was auch nicht funktioniert ist das wenn ich zwei Bildschirme angeschlossen habe und die Userform starte es die 2 quasi als einen erkennt und die Userform in der mitte von den beiden landet. Wie kann ich angeben das es nur auf dem ersten Bildshirm erscheinen soll?

Mein Code :

Code:

'Fullscreen Formular
Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_POPUP As Long = &H80000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WS_EX_DLGMODALFRAME As Long = &H1
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const SW_SHOW As Long = 5
Dim g_hForm As Long
Dim maxi As Boolean
Dim maxiT As Boolean
Dim OldWidth As Single, OldHeight As Single, OldTop As Single, OldLeft As Single

Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" ( _
ByVal wCode As Long, _
ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32.dll" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_MENU = &H12
Private Const lngMargin = 1 'Breite der Seitenränder in cm
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub UserForm_Activate()
Dim lngCurrentStyle As Long, lngNewStyle As Long

If Val(Application.Version) < 9 Then
g_hForm = FindWindow("ThunderXFrame", Me.Caption) 'XL97
Else
g_hForm = FindWindow("ThunderDFrame", Me.Caption) 'XL2000, XP, 2003?
End If

lngCurrentStyle = GetWindowLong(g_hForm, GWL_STYLE)
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP
SetWindowLong g_hForm, GWL_STYLE, lngNewStyle

lngCurrentStyle = GetWindowLong(g_hForm, GWL_EXSTYLE)
lngNewStyle = lngCurrentStyle Or WS_EX_APPWINDOW
SetWindowLong g_hForm, GWL_EXSTYLE, lngNewStyle
ShowWindow g_hForm, SW_SHOW

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub UserForm_Initialize()

Dim Style As Long

g_hForm = FindWindow(vbNullString, Me.Caption)
SetWindowLong g_hForm, -16, &H20000 Or &H10000 Or &H84C80080
Style = GetWindowLong(g_hForm, -16) And Not &HC00000
SetWindowLong g_hForm, -16, Style
DrawMenuBar g_hForm

If maxiT Then
Me.Move OldLeft, OldTop, OldWidth, OldHeight
maxiT = False
' Schließe.Left = Me.Width - 50

'Label111.Left = Me.Width - 70

Else
OldWidth = frmKlassifizierung.Width
OldHeight = frmKlassifizierung.Height
OldTop = frmKlassifizierung.Top
OldLeft = frmKlassifizierung.Left

Me.Move 0, 0, GetSystemMetrics(0) * 0.75, (GetSystemMetrics(1) - 30) * 0.75
maxiT = True
'Schließe.Left = Me.Width - 50

'Label111.Left = Me.Width - 70

End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

RPP63 · 6. Januar 2016

Hi!
Ich mache dies so:
Code:

Private Sub UserForm_Initialize()
Me.Top = (Application.Height - Me.InsideHeight) / 2
Me.Left = (Application.Width - Me.InsideWidth) / 2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

RPP63 · 6. Januar 2016

Zusatz:
Wenn auf dem Laptop ein Teil des UF fehlt, wird es wohl am Seitenverhältnis seines Bildschirms liegen.
(4:3, 16:10, 16:9)

Gruß Ralf

Alex22 · 7. Januar 2016

Hallo,

habe es jetzt eingefügtnur leider verändert sich nichts.

Office: dynamische userform bei zwei Bildschirmen?

dynamische userform bei zwei Bildschirmen?

dynamische userform bei zwei Bildschirmen?

dynamische userform bei zwei Bildschirmen?

dynamische userform bei zwei Bildschirmen? - Similar Threads - dynamische userform Bildschirmen

Dynamischer Pfad

dynamische Bezug auf Feiertagskalender in Formel "Nettoarbeitstage"

Dynamische Verknüpfung von Dokumenten

Mittelwert aus mehreren Spalten als dynamisches Array

Erstellung eines Dynamischen Kalenders

Erstellung eines Dynamischen Kalenders (ggf. VBA)

Image im Explorer auswählen und in Userform Speichern Dynamisch?