Textbox neden sola doğru yazıyor?

[Ocean Blue-s]

Merhaba arkadaşlar,

Aşağıdaki kodla birlikte text_servis'in içine girilen her harfte list_servis'in içindeki servisleri aratmaya çalışıyorum. Ama her harfi girdikten sonra cursor Textbox'ın başına dönüyor ve yazı sola doğru yazılıyor. Bu konu hakkında bilgisi olan varsa bana yardımcı olabilir mi? Teşekkürler.

Private Sub Text_servis_Change()
Text_servis = UCase(Text_servis)
List_servis.Visible = True
List_servisadres.Visible = True
For j = 0 To List_servis.ListCount - 1
If Text_servis = Left(List_servis.List(j), Len(Text_servis)) Then
List_servis.Selected(j) = True
Exit For
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[Ocean Blue-s]

Örnek dosya

Aslında biraz yabancıyım örnek dosya olarak formu gönderiyorum. İşallah istediğiniz budur.

 

[Ocean Blue-s]

Pek kimse cevap yazmadığına göre, pek karşılaşılan bir sorun diil heralde.

Yine de sayın Korhan Ayhan ilginize teşekkür ederim.

 

[karadami]

Private Sub Text_servis_Change()

sorununuz change olayından kaynaklanıyor olabilir. onu değiştirerek deneyiniz.