Fet Markör

[johan_gr]

JObbar med ett VB.NET program i win2000.

Hur ställer man in markören så den blir fet? Vill ha en blinkande markör som är större än standardmarkören.

//J

 

[Vaios]

Det här Windowsanropet fungerar för att

ställa in markören

 

[log]

'Hittade det här på nätet, för att ställa in markör

Public Class cCaret

Declare Function CreateCaret Lib "user32" (ByVal hWnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Declare Function ShowCaret Lib "user32" (ByVal hWnd As Integer) As Integer

Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Integer) As Integer

Declare Function GetCaretBlinkTime Lib "user32" () As Integer

 

Shared Sub ShowCustomCaret(ByVal Handle As Integer, ByVal width As Integer, ByVal height As Integer)

Try

CreateCaret(Handle, 0, width, height)

ShowCaret(Handle)

Catch

End Try

End Sub

End Class

 

 

'Ställer in fet markör i textboxen

cCaret.ShowCustomCaret(TextBox1.Handle.ToInt32, 8, 16) [/log]

--- Vaios ---

 

 

 

[inlägget ändrat 2004-12-01 21:27:45 av Vaios]

[inlägget ändrat 2004-12-01 21:28:45 av Vaios]