Cara Menghitung Karakter Dan Spasi Pada Textbox Visual Basic

Copas Code Di Bawah Ini Ke Dalam Visual Basic

Private Sub Text1_Change()
Dim i, jmlA, jmlB As Integer
Dim a, b As String
Dim nItem As Integer
Dim aItem As Variant
Dim sTeks As String
If Text1.Text = "" Then
Text1.SetFocus
Exit Sub
End If

'Tampilkan Jumlah Kata
a = Text1.Text
jmlA = 1
For i = 1 To Len(Trim$(a))
If Asc(Mid(a, i, 1)) = 13 Or Asc(Mid(a, i, 1)) = 32 Then jmlA = jmlA + 1
Next i
Label6 = jmlA
Label9 = jmlA

'Tampilkan Jumlah Karakter
Label4 = Len(Text1)
Label10 = Len(Text1)

'Tampilkan Jumlah spasi
sTeks = Text1
aItem = Split(sTeks, " ")
nItem = UBound(aItem)
Label2 = nItem
Label11 = nItem

'Aktifitas
Label8.Caption = Val(Label6) + Val(Label4) + Val(Label2)
End Sub

Atau Project Jadi Download Now

Terima Kasih Sudah Membaca Artikel Cara Menghitung Karakter Dan Spasi Pada Textbox Visual Basic

NANTIKAN ARTIKEL DARI ROIS PEDIA SECARA GRATIS

Kang Rois - 08.22