Tampilan huruf pertama menjadi huruf besar pake vb 6.0

kali ini kita latihan fungsi untuk menampilkan huruf pertama darisetiap kalimat menjadi huruf besar/kapital.

Persiapan:1. Buat 1 Project baru dengan 1 Form dan 1 TextBox.2.

Ketik coding berikut ke dalam editor form yang bertalian.Ketik coding berikut ini pada Form.Public Function AwalKalimatKapital(strKalimat As _ String)

Dim Temp1 As String, Temp2 As StringDim Lokasi As Integer, i As IntegerDim huruf As String * 1Temp1$ = LCase(strKalimat) '

Kecilkan dulu semuaFor i% = 1 To Len(Temp1$)huruf = Chr(Asc(Mid(strKalimat, i%, 1)))

If huruf = "." ThenLokasi% = i% + 2End IfIf i% = 1 Or i% = Lokasi% ThenTemp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, _i%, 1))))ElseTemp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, _i%, 1))))End If

Next iAwalKalimatKapital = Temp2$End FunctionPrivate Sub Text1_Change()Dim posisi As Integerposisi = Text1.SelStart216Text1.Text = AwalKalimatKapital(Text1.Text)Text1.SelStart = posisi

End Sub