Habe was
24.12.2005 13:56:27
Walter
Hallo Francois,
habe folgendes:
Private Sub UserForm_Initialize()
'--------------- für Bildschirmanpassung --------------------------------------
Dim hwndForm As Long, hwndMenu As Long
Dim intY, intLast, intNext As Integer
On Error Resume Next
With walter <<<<<<<<<<<<<<<<< hier muß deine UF rein !!!!!!!!!!!!!!!
.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
bei mir läuft das Prima, man kann die UF nicht verschieben und die größe wird dem Bildschirm angepaßt.
Und das:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Schließen nur über Schaltfläche" & Chr(13) & Chr(13) & _
" Benden!"
End If
End Sub
reinsetzen, damit kann man über das Kreuz nicht Schließen.
Frohes Fest, vielleicht Rückmeldung
gruß Walter