[RESOLVED] cursor in the textbox

[matrik02]

I don't want cursor pointing/flashing in any of the textbox. How to do that?

[Fazi]

is this your looking for

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Text1.MousePointer = 1
End Sub

[Hack]

Look at the HideCarat API

[matrik02]

I dont want have | in the textbox. Look at textbox6 "data tambahan" have this symbol | . Don't want this.How?

[Fazi]

Hack, That api should be called with in a timer , correct ?

Option Explicit
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Timer1_Timer()
HideCaret Me.Text1.hwnd
End Sub

[matrik02]

It don't works. Still have | in the textbox.

[Fazi]

No, the code i posted works well with my text box.
attached.

[matrik02]

Yes, it work.When I create my own, it doesn't work. Did you setting in your textbox?

[Hack]

Hack, That api should be called with in a timer , correct ?

Option Explicit
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Timer1_Timer()
HideCaret Me.Text1.hwnd
End Sub

Put it in the GotFocus event of the textbox.

[matrik02]

Put it in the GotFocus event of the textbox.

Yes, It works now when I put it in the gotfocus

[Hack]

In case you might need it for some future project, there is a corresponding ShowCarat API as well.

[matrik02]

Thank you both of you

[Fazi]

But i am afride on the follwing seane.

ok, assume you put that code on TextBox_Got Focus event.

Now you click on the text box, so the caret will not be displayed.
now you click another window i.e. task bar. now again you click your form to get back the focus. Now the caret will be shown on the text box