VB-Homepage Tipp 199

Cursorblinkrate verändern

Ich weiß jetzt nicht so recht, was sie mit diesem Tipp in der Praxis anfangen könnten, dazu muß Ihnen schon selbst etwas einfallen. Aber vielleicht haben Sie schon eine Idee, sonst wären Sie nicht auf diese Seite gesprungen. Also dann. Allgemein/Deklarationen Private Declare Function GetCaretBlinkTime Lib "user32" () As Long Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long Ermitteln der momentanen Blinkrate und Übergabe an eine Variable variable = Format$(GetCaretBlinkTime()) Setzen einer neuen Blinkrate SetCaretBlinkTime CLng("40") 'sehr schnell Wenn Sie die Blinkrate vorher an eine Variable übergeben, so vom Typ Long.

Tipp-Download

Quelle : VB-Helper - http://www.vb-helper.com