Mencari Character Tertentu Dalam Textbox

Required Knowledge / Skill:
-Mengerti dasar-dasar pemrograman VB6
-Mampu menempatkan component pada form
-Mengetahui penggunaan properties component object
-Mampu melakukan coding
seperti biasa, buatlah project baru, Standart EXE seperti Gbr. 01 di samping.

Tempatkan beberapa component object kedalam Form1 seperti pada Gbr. 02 disamping

Klik 2 kali pada Command1, dan ketikkan baris code seperti dibawah ini. Malas ah…. copy paste aja !, silakan…. Sah-sah saja… he4x
Hasilnya akan seperti yang tampak pada Gbr. 03
Dim jmlText, jmlChar, i As Integer
jmlChar = 0 ' nol kan variabel JmlChar supaya hasil perhitungan valid
jmlText = Len(Text2.Text) 'Menghitung jumlah karakter didalam Text2 dan
'dan isikan hasilnya ke variabel JmlText
For i = 0 To jmlText 'Melakukan proses perulangan sebanyak jumlah character dalam text2
Text2.SetFocus
Text2.SelStart = i
Text2.SelLength = 1
If Text2.SelText = Text1.Text Then 'Bandingkan Text2 dengan karakter yang
‘dicari dari Text1
jmlChar = jmlChar + 1 'Lakukan penambahan saat ditemukan karakter yang sesuai
End If
Next
Label3.Caption = "You have " & jmlChar & " Character " & Text1.Text
Command1.SetFocus 'Mengembalikan posisi focus ke Command1

Ubah properties pada masing-masing component seperti pada Gbr. 04

Jalankan program dengan menekan F5, dan klik cari maka akan muncul seperti pada
Gbr. 05