Membuat Setiap Huruf Pertama Menjadi Besar(Kapital) VB6

Berikut ini adalah cara membuat setiap huruf pertama dari setiap kalimat menjadi huruf besar(kapital) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 TextBox
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Public Function AwalKalimatKapital(strKalimat As String)

          Dim Temp1 As String, Temp2 As String
          Dim Lokasi As Integer, i As Integer
          Dim huruf As String * 1
            Temp1$ = LCase(strKalimat)  'Kecilkan dulu semua

            For i% = 1 To Len(Temp1$)
              huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
              If huruf = "." Then
                Lokasi% = i% + 2

              End If
              If i% = 1 Or i% = Lokasi% Then
                 Temp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, i%, 1))))
              Else
                 Temp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, i%, 1))))

              End If
            Next i
            AwalKalimatKapital = Temp2$
          End Function

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

            Text1.Text = AwalKalimatKapital(Text1.Text)
            Text1.SelStart = posisi
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module