我用這個代碼在一個文本框(vb.net)來創建一個插入符號:更改插入顏色的文本框
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 DestroyCaret Lib "user32"() As Long
Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long
Private Declare Function SetCaretPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Private Sub txtOutput_GotFocus(sender As Object, e As EventArgs) Handles txtOutput.GotFocus
CreateCaret(txtOutput.Handle, IntPtr.Zero, 9, 12)
ShowCaret(txtOutput.Handle)
End Sub
是否有可能改變插入符號的顏色?
我認爲你可以做到這一點,如果它是一個'RichTextbox' – Brandon
沒有工作。現在我有一個更大的問題,它顯示我一個錯誤:PInvokestackImpalance檢測到一個問題 –
你能提供完整的代碼來顯示插入符號?我無法運行上面的示例。 – Brandon