MausZeiger verändern (VBA)

Hallo zusammen,

ich habe ein Programm geschrieben, das zwischenzeitlich längere Rechenzeiten benötigt. Um das dem benutzer auch anzuzeigen, möchte ich, das mein mauszeiger zu beginn der ganzen prozedur zu einer Sanduhr geändert wird und am Ende wieder auf die Defaultanzeige wechselt.

hat irgendjemand eine Idee, wie ich das implementieren kann? Mit pMap.MousePointer = esriPointerHourglass habe ich es schon versucht, das klappt nicht.

Viele Grüße und Danke, Imke
Versuch es mal so:

Dim pMouseCursor As IMouseCursor
Set pMouseCursor = New MouseCursor
pMouseCursor.SetCursor 2

Details in der Hilfe
Da bekomme ich eine Runtime error (9) subscript out of range.

Liegt es vielleicht daran, dass ich vorher schon einige sachen abarbeite und dann erst mitten drin den Mauszeiger ändere?
Schwer zu sagen. Ich hatte da noch nie Probleme. Dieser Fehler kommt eigentlich, wenn du mit einem ungültigen Index auf eine Collection oder ein Array zugreifst.

Hast du mal versucht den Mauszeiger am Anfang zu ändern?
Danke Gast,

ich habe es jetzt an den anfang gebaut. dachte erst, das würde nicht funktionieren, weil vorher noch einige abfragen über msgbox kommen, aber es funktioniert wunderbar.

Wenn ich das in der Hilfe richtig verstanden habe, brauche ich das auch nicht wieder "auflösen" da der mauszeiger am ende vom SUB automatisch wieder auf Default gestellt wird, stimmts?

Nochmals vielen Dank,
Gruß Imke
Stimmt, das hängt an der "Lebensdauer" der pMousCursor Variable.
Hallo auch,

auch wenn das eigentliche Problem bereits geloest ist, nur zur allgemeinen Info:

http://forums.esri.com/Thread.asp?c=93&f=992&t=55384#384316

beschreibt, dass man unter Verwendung einer Funktion an beliebigen Stellen den Mouse-Cursor mit:

pMouseCursor.SetCursor 2

auf die Sanduhr setzen kann. Wenn ich das richtig verstanden habe, handelt es sich hier allerdings um einen Bug, der zu der Fehlermeldung Subscript out of range fuehrt.

Gruss

Uwe