+- 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.
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
