Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0

Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0

Pada kesempatan ini TeknoTips.NET akan mengulas tentang "" dengan judul artikel "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

Kata Kunci : Tutorial Visual Basic 6.0,
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini : Tuliskan komentar relevan anda dibawah ini dengan jelas & sopan, sesuai dengan topik ulasan mengenai Tutorial Visual Basic 6.0 Terbaru 2019.

Untuk menghindari spam dan tautan aktif, komentar akan dimoderasi. Dapatkan balasan dari melalui e-mail anda :

Komentar artikel "Coding Membuat Huruf Pertama Menjadi Kapital pada TextBox VB 6.0"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel