AccessTr.neT
Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak (/konu-textboxa-girilen-kelimelerinin-hepsinin-bas-harfini-buyuk-yazdirmak.html)



Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - drummers - 22/11/2011

Öncelikle projem Visual Basic 2010 dur...

2 sorum olacaktı:


1- Textbox1 e girdiğim kelimelerin tümünün ilk harflerinin büyük olmasını nasıl sağlarım.


Örn: " mustafa kemal atatürk "

Sonuç : " Mustafa Kemal Atatürk "

2- Textbox1 e girdiğim " Mustafa Kemal Atatürk " isminin Texbox2 ye "Mustafa Kemal" Textbox3 e "Atatürk" kelimelerinin otomatik yazması


Teşekkürler


Cvp: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - alpeki99 - 22/11/2011

Örnek ekleseydiniz bakıp gönderecektim ancak oturup sıfırdan hazırlayamam.


Cvp: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - drummers - 22/11/2011

(22/11/2011, 21:27)alpeki99 yazdı: Örnek ekleseydiniz bakıp gönderecektim ancak oturup sıfırdan hazırlayamam.


Dosya


drm.rar




Cvp: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - mcmaho - 16/12/2011

Private Sub Command1_Click()
b = Left(Text1.Text, 1)
c = Mid(Text1.Text, 2, Len(Text1.Text))
Text1.Text = UCase(b) + LCase( c )
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = " " Then
d = d + 1 ------> 2. sorunun kodları için******
Text1.Text = Mid(Text1.Text, 1, i) + UCase(Mid(Text1.Text, i + 1, 1)) + Mid(Text1.Text, i + 2, Len(Text1.Text))
------------------------------------------------>
If d = 2 Then
Text2.Text = Mid(Text1.Text, 1, i) -------->>>> 2. sorunun kodları için*****
Text3.Text = Mid(Text1.Text, i, Len(Text1.Text))
End If
------------------------------------------------>
End If
Next i
End Sub

Ben Visual Basic 6 kullanıyorum. sen 2010 a göre ayarlarsın.

Ek Dosyalar
 Büyük Harf Yazma.rar(1.25 KB)



Cvp: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - drummers - 17/12/2011

Hepinize teşekkürler...


Cvp: Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak - mcmaho - 17/12/2011

Img-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grinImg-grin