Mulitseiten auf UF
08.10.2005 21:34:06
Walter
habe eine neue UF mit Multiseiten.
Da ich schon mal eine UF mit Bildschirmanpassung etc. habe, habe ich gedacht
kopiere doch alles rein.
Hier mein Muster:
Private Sub UserForm_Click()
'--------------- für Bildschirmanpassung --------------------------------------
Dim hwndForm As Long, hwndMenu As Long
Dim intY, intLast, intNext As Integer
On Error Resume Next
With UserForm3
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), 8)
.Width = GetDeviceCaps(GetDC(0&), 10)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(vbNullString, Me.Caption)
'------------ ab hier festgelegt, UF kann nicht verschoben werden ------------
If hwndForm <> 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu <> 0 Then DeleteMenu hwndMenu, &HF010, &H0
End If
End Sub
Leider wird erst am Bildschirm angepasst, wenn ich auf eine Ecke an der UF klicke, Wieso ?
Gruß Walter