VB 6.0: Sanduhr

[Thomas_Roth_81569c]

Hallo Leute,

wenn ich meinen Cursor zur Sanduhr mache

Screen.MousePointer = vbHourglass

können mit dieser Sanduhr vom Anwender trotzdem
noch Klicks (in Menüeinträgen bewegen, Buttons betätigen, usw.)verursacht werden.

Wie kann ich dies unterdrücken, sprich wenn Sanduhr aktiv darf auf keine Klicks mehr reagiert werden !

Vielen Dank für Eure HIlfe !1

Tom

[Okinaptz_Uglwf_88cbac]

Hallo.

Screen.MousePointer = vbHourglass

wandelt, wie Du schon bemerkt hast, nur die optische Erscheinung um. Das Click- Ereignis musst Du zusätzlich abfangen. Also etwa so :

Sub Wuppdich\_Click()
If Screen.MousePointer=vbHourglass Then
 Exit Sub 'oder DoCmd.CancelEvent
End If
sonst machwasduwillst
End Sub

Viel Erfolg wünscht
kw