Userform Üzerinde Multiline Textbox Satır Başı Sorunu

[askm]

Hayırlı geceler.
Userform üzerindeki textbox üzerinde yazı var iken satır başına veya araya yazı eklemek istediğimde en sona atıyor. Bir harf yazıyorum sona gidiyor. Bir daha başa geliyorum bir harf daha yine sona gidiyor. Bu özelliği nasıl pasif yaparım.

 

[Haluk]

Öyle bir özellik yok zaten ..... Muhtemelen sizin diğer kodlarınız bu olayı tetikliyordur.

.

 

[askm]

Sadece bu kod mevcut.

Private Sub TextBox2_Change() 'büyükharf yazma
TextBox2 = StrConv(TextBox2, vbUpperCase)
End Sub

 

[Korhan Ayhan]

Sorun bu kod da..

Kodu silip deneyin düzelecektir.

 

[askm]

Dediğiniz gibi change kodunda yazığım için oluyormuş. Exit e alınca sorun düzeldi.

 

[Haluk]

Sizin kod "i" harfinde problem yaratır. Bence çaktırmadan bir hücreye yazdırıp, büyük harfe çevirdikten sonra tekrar TextBox'a yazın, sorun kalmaz...

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    [AA1] = TextBox2
    TextBox2 = [upper(AA1)]
End Sub

.

 

[askm]

Teşekkürler Haluk Bey. Replace ile de çözüm oluyor. Bu da alternatif bir çözüm oldu. Tekrar teşekkürler.

 

[Haluk]

Eğer UserForm ekrana geldiği sırada klavyedeki CAPSLOCK tuşu kapalıysa, aşağıdaki kod da bir alternatif olur.

TextBox2 içine girdiğinizde bu tuş aktif olur, çıktığınızda pasif olur...

Private Sub TextBox2_Enter()
    SendKeys "{CAPSLOCK}"
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    SendKeys "{CAPSLOCK}"
End Sub

.

 

[askm]

Keşlik açık ise küçük yazıyor bu şekilde. Kontrolü olması gerekli olur burda.

 

[Haluk]

O zaman API kullanmak gerekir.... ama bu iş için değmez. Daha önceki alternatifler zaten işinizi görüyor.

.