Userform Textbox Enter Tuşu Hk.

[u.L.a.s]

Merhabalar

Userform içerisindeki bir textbox içeriğine yazdığım veriyi her 10 karakterde bir bir aşağı satıra insin istiyorum. 11. karakterle yanyana devam etmesin.
şöyleki

Aşağıdaki gibi bir veriyi kopyala yapıştırka girdim diyelim
12345678901234567890

Bu veriyi Textbox içerisinde şu şekilde işlesin istiyorum
1234567890
1234567890

Eğer böyle yanyana birden fazla veri girmişsem her 10 karakterde bir bir altsatıra insin istiyorum

Yani
1234567890123456789012345678901234567890
verisi
Aşağıdaki gibi textboxta görünsün
1234567890
1234567890
1234567890
1234567890

Bilgi ve yardımlarınızı rica ederim

 

[ÖmerBey]

Merhaba, konuyla ilgili aşağıdaki linki inceleyebilirsiniz.
http://www.excel.web.tr/f157/textbox-nesnesinin-multiline-zellioi-t61557.html

Textbox genişliğini 10 karakter girecek kadar ayarlarsınız, otomatik olarak 11. karakter alt satıra yazılır.

10 karakterde bir enter konulmasının bir sakıncası yoksa aşağıdaki kodu da kullanabilirsiniz.

Private Sub TextBox1_Change()
If TextBox1.Text = "" Then Exit Sub
a = Split(TextBox1.Text, Chr(10))
If Len(a(UBound(a))) = 11 Then TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) & Chr(10) & Right(TextBox1.Text, 1)
End Sub

 

[u.L.a.s]

Üstadım emeğine bilgine sağlık

Çok teşekkür ederim