AW: Userform speziell schließen mit Frames
18.06.2008 00:27:00
Daniel
Hallo
man kann das Problem mit Frames lösen.
diese verfügen über das MouseMove-Event, daher kann man das Verlassen der Userform des Mauszeigers mit 2 Frames prüfen und darauf reagieren.
die normalen Userform-Steuerelemente müssen sich innerhalb des 2. Frames befinden
https://www.herber.de/bbs/user/53175.xls
der Code dazu sieht so aus:
Option Explicit
Dim bolSchließen1 As Boolean
Dim bolSchließen2 As Boolean
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
Select Case bolSchließen1
Case False
bolSchließen1 = True And bolSchließen2
Case True
Unload Me
End Select
End Sub
Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
_
ByVal Y As Single)
bolSchließen2 = True
End Sub
kleiner Nachteil der Methode:
- man hat einen Rand in der Userform, den man nicht nutzen kann.
- durch schnelle Mausbewegungen lässt sich das ganze austricksen
Gruß, Daniel
ps. ich hab die Frames zur verdeutlichung sichtbar gelassen, bei bedarf kann man sie ja so umformatieren, daß sie nicht auffallen.