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.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 16/12/2011, 17:58, Düzenleyen: mcmaho.