Textboxa girilen ilk harfleri büyük harfe çevirmek?

[udentr2002]

Merhaba arkadaşlar textboxa girdiğim kelimelerin ilk harfini büyük harfe çeviren bir kod anasıl yazabilrim şimdiden ilginene arkadaşlara teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub TextBox1_Change()
TextBox1 = Evaluate("=PROPER(" & """" & TextBox1 & """" & ")")
End Sub

 

[udentr2002]

teşekkürler hocam

Yanlız benim 11 adet textboxum var tümüne aynı işlevi yapmasını istiyorum mesala kaydet butonuna bastığımda bu verilerin ilk harfini büyük harfe çeviren ve öyle veryi istenilen yere aktarması için nasıl bir döngü kurmalıyım comanbutton düğmesinin altına bu kodu tüm textboxlara uygulayan bir döngü nasıl yazılabilir. Yada her textboxdan çıkınca ilk harflerini büyük harfe çeviren bir kodu 11 tane textboxa döngü ile nasıl uygulayabilirim??

 

[udentr2002]

hocam

aynı kodun textboxchange olayında yani 11 tane textbox için bir döngü kurabilrmiyim yoksa her textboxun change olayına ayrı ayrı yazmalımıyım ??? cevap verirseniz çok makbule geçecektir

 

[Levent Menteşoğlu]

Bu durumda en ideal çözüm class module kullanmaktır. Dosyanızı eklerseniz yardımcı olmaya çalışırım.

 

[SelcukBULGUR]

Aşağıdaki gibi deneyin.

Private Sub TextBox1_Change()
TextBox1 = Evaluate("=PROPER(" & """" & TextBox1 & """" & ")")
End Sub

Teşekkürler çok işime yaradı.