Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0

Ditulis olehAdi Gunawan -
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 :
Artikel Terkait Tutorial VB6
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

Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini.
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini.
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini.
Tag