Rubrik: Maus & Tastatur | 22.03.05 |
![]() Diese Funktion zeigt das einem Fenster zugewiesene Caret an seiner aktuellen Position an. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 8.030 |
Deklaration:
Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Beschreibung:
Diese Funktion zeigt das einem Fenster zugewiesene Caret an seiner aktuellen Position an.
Parameter:
hWnd | Erwartet das Fensterhandle des Fensters, dessen Caret angezeigt werden soll. |
Rückgabewert:
Ist die Funktion erfolgreich so wird ein Wert "ungleich 0" zurückgegeben, andernfalls derWert "0". Für erweiterte Fehlerinformationen können Sie die GetLastError-Funktion aufrufen.
Beispiel:
Private Declare Function CreateCaret Lib "user32" ( _ ByVal hwnd As Long, _ ByVal hBitmap As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long) As Long Private Declare Function GetCaretBlinkTime Lib "user32" () As Long Private Declare Function SetCaretBlinkTime Lib "user32" ( _ ByVal wMSeconds As Long) As Long Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long Dim OldBlinkTime As Long, Retval As Long
' Standard Blinkzeit für Carets ermitteln und neue setzen Private Sub Form_Load() OldBlinkTime = GetCaretBlinkTime Call SetCaretBlinkTime(200) ' Caretbitmap vorladen Picture1.AutoSize = True Picture1.Picture = LoadPicture(App.Path & "\NewCaret.bmp") End Sub
' Caret Blinkzeit wieder herstellen Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call SetCaretBlinkTime(OldBlinkTime) End Sub
' Caret erstellen und anzeigen Private Sub Text1_GotFocus() Retval = CreateCaret(Text1.hwnd, Picture1.Picture, 0&, 0&) Retval = ShowCaret(Text1.hwnd) End Sub