Mauszeiger ändern (VB)
16.05.2002 10:31:20
Sofia L.
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 ?