X_Pos & Chr(10) & _ "Y Position is: " & Hold. Y_Pos End Sub ' Routine to set cursor position Sub Set_Cursor_Pos() ' Looping routine that positions the cursor For x = 1 To 480 Step 20 SetCursorPos x, x For y = 1 To 40000: Next Next x End Sub
Klicken Sie auf eine beliebige Stelle im Text der Get_Cursor_Pos, und drücken Sie F5, um das Makro Get_Cursor_Pos ausführen. Es wird ein Meldungsfeld mit den Koordinaten der aktuellen Position des Mauszeigers angezeigt. Klicken Sie auf eine beliebige Stelle im Text der Set_Cursor_Pos, und drücken Sie F5, um das Makro Set_Cursor_Pos ausführen. Mauszeiger in einem Makro ändern - computerwissen.de. Der Cursor wird diagonal nach unten über den Bildschirm bewegt. Benötigen Sie weitere Hilfe?
Vba Mauszeiger Anderny
Doch zuerst brauchen Sie eine passende Datei, denn Cursor-Bilder haben ein eigenes "*"- bzw. "*"-Dateiformat. Vba mauszeiger ändern dich. Aber auch das ist unproblematisch, denn abgesehen von einem breiten Angebot im Internet finden Sie auch auf Ihrer Festplatte (vermutlich im Verzeichnis ".. \Windows\Cursors\") viele geeignete Dateien. Cursor laden
Nun müssen Sie nur noch dafür sorgen, dass das Bild aus der Datei an den Mauszeiger gelangt. Dazu gibt es eine API-Funktion namens LoadCursorFromFileA zum Laden und eine namens SetCursor zum Zuweisen. Diese müssen am Anfang eines normalen Moduls wie folgt deklariert werden:
Declare Function LoadCursorFromFileA Lib "user32" ( _
ByVal lpFileName As String) As Long
Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Mit diesen beiden Funktionen braucht es nur noch eine eigene Prozedur MausHand im gleichen Modul, um der Maus einen neuen Look zu geben:
Vba Mauszeiger Andernoslesbains
Arbeite mit AC 2002 und habe auch das "Problem", dass ich gern den Mauszeiger (in eine Hand) verndern mchte, wenn man mit der Maus drber fhrt. Das soll dazu dienen, ein Startformular mit einer Navigation zu bauen wie im Internet. Habs mit den obigen Eintrgen nicht hinbekommen, kann mir einer netterweise auf die Sprnge helfen?
c1b1 - 13. Februar 2012, 11:23 - Sonstige Problemstellungen
Bildschirmschoner & Mauszeiger ändern (ausblenden)
VB2008Lover - 18. April 2009, 18:20 - Sonstige Problemstellungen
2 Benutzer haben hier geschrieben
Gast (4)
RodFromGermany (1)
Sonstige Problemstellungen »