Textboxa girilen kelimelerinin hepsinin baş harfini büyük yazdırmak

Ö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

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

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

Dosya


drm.rar

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

Hepinize teşekkürler...