Mauszeiger ändern (VB)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Mauszeiger ändern (VB)
von: Sofia L.
Geschrieben am: 16.05.2002 - 10:31:20

Beim Öffnen einer xls-Datei soll speziell für diese
Arbeitsmappe der Mauszeiger (Sanduhr: xlwait) geändert werden.
Stattdessen soll ein selbst erstellter Mauscursor, der sich im Verzeichnis C:\Winnt\Cursors befindet, angezeigt werden.
Beim Schließen der Arbeitsmappe soll wieder der alte Cursor aktiviert werden.
Mit Delphi läßt sich die Aufgabe in etwa folgendermaßen lösen:

procedure TForm1.Button1Click(Sender: TObject);
var
hCursor : THandle;
begin
hCursor := LoadImage(0, 'C:\WINNT\Cursors\self.ani', IMAGE_CURSOR,
0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);
if hCursor <> 0 then
begin
Screen.Cursors[1] := hCursor;
Form1.Cursor := 1;
end;
end;

Wie kann man diesen Code mit VB umsetzen ?

nach oben   nach unten

Re: Mauszeiger ändern (VB)
von: Hans W. Herber
Geschrieben am: 18.05.2002 - 11:17:35

Hallo Sofia,

nein, das ist in Excel nicht machbar. Innerhalb von Excel kann der Wait-Zeiger zwar geändert werden, allerdings nicht auf einen benutzerdefinierten. Hierzu folgender Text:
https://www.herber.de/mailing/002097h.htm

Anders ist es bei UserForm-Steuerelementen, aber das ist ja hier nicht gemeint.

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Mauszeiger ändern (VB)"