TextBox'taki karakter Sayısını

[gertt]

Hayırlı akşamlar.
UserForm üzerinde TextBox1 içinde imleç hangi karakterde ise
o karakterin kaçıncı sırada olduğunu TextBox2'nin içinde gösterebilir miyiz?
Teşekkürler...

 

[İhsan Tank]

Hayırlı akşamlar.
UserForm üzerinde TextBox1 içinde imleç hangi karakterde ise
o karakterin kaçıncı sırada olduğunu TextBox2'nin içinde gösterebilir miyiz?
Teşekkürler...

merhaba

Private Sub TextBox1_Change()
TextBox2 = Len(TextBox1.Text)
End Sub

bu kod işinizi görebilir

 

[gertt]

İhsan Bey teşekkür ederim.
İmleci sağ sol tuşlarıyla ileri geri aldığımda sayıda bir değişiklik olmuyor.Yani en son nerede kalmışsak
sayı da o.Sağ sol tuşlarıyla da imlecin kaçıncı karakterde olduğunu da gösterebilir miyiz?
İlginiz için tekrar teşekkürler.

 

[quesh]

İhsan Bey 'in verdiği kod, Textbox1 içindeki karakter sayısı Tetxbox2 de gösteriyor.

 

[NBATMAN]

Merhaba,

aşağıdaki kodları dener misiniz?


Dim mtnuzn As Integer

Private Sub TextBox1_Change()
TextBox3.Text = TextBox1.TextLength
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Then 'sol ok tuş olayı
TextBox2.Text = TextBox1.SelStart - 1
mtnuzn = TextBox2.Text
If mtnuzn <= 0 Then
MsgBox "İmleç Girilen Metnin En Başındadır!"
Exit Sub
End If
End If
If KeyCode = 39 Then 'sağ ok tuş olayı
TextBox2.Text = TextBox1.SelStart + 1
If Val(TextBox2.Text) >= Val(TextBox3.Text) Then
MsgBox "İmleç Girilen Metnin En Sonundadır!"
Exit Sub
End If
End If
End Sub

 

[gertt]

Kodlar için teşekkür ederim.Mükemmel oldu.
Kolay gelsin.Hayırlı geceler.

 

[NBATMAN]

Günaydın,

Rica ederim. İşinize yaramış olması beni sevindirdi.Saygılar...