Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

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


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 :

Kategori artikel yang terkait dengan Visual Basic 6.0

Visual Basic 6.0, Panduan VB6, Belajar VB6 Lengkap, Tutorial VB6, Belajar VB6 Pdf, Pemrograman VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.