Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0

Pada Belajar VB 6.0 kali ini akan dibahas mengenai cara membuat Huruf Kapital Pertama pada Sebuah Text

Berikut langkah-langkahnya :
Buatlah sebuah Project VB 6.0
Buatlah sebuah form dengan ditambahkan Text1 pada Form Tersebut :
Kemudian masukan Koding pada Form1 dibawah ini :

Public Function AwalKataKapital(strKalimat As String)
Dim i As Integer
Dim Temp As String
Dim Lokasi As Integer
Dim huruf As String * 1
  Temp$ = ""
  For i% = 1 To Len(strKalimat)
    huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
    If Len(Trim(huruf)) < 1 Then
      Lokasi% = i% + 1
    End If
    If i% = Lokasi% Or i% = 1 Then
       Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, _
               i%, 1))))
    Else
       Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, _
                i%, 1))))
    End If
  Next i
  AwalKataKapital = Temp$
End Function

Private Sub Text1_Change()
  Dim posisi As Integer
  posisi = Text1.SelStart
  Text1.Text = AwalKataKapital(Text1.Text)
  Text1.SelStart = posisi
End Sub

Silahkan Run Project VB 6.0 anda
Maka jika anda mengetikan pada awal Text1 akan muncul Huruf Kapital

Salam

Download Source Code Program