Cara Mencari Posisi Sebuah Karakter/String Dengan VB6

Pada postingan kali ini admin akan membahas sourcode tentang Cara Mencari Posisi Sebuah Karakter/String Dengan VB6. Katakanlah kita sekarang sedang dihadapkan sebuah textBox dengan isi  

Dan kita akan mencari sebuah kata kunci pada textbox tersebut, untuk memastikan ada atau tidaknya kata kunci tersebut. Buatlah project - Form dan tambahkan 2 buah TextBox pada form dan satu buah commanButton seperti gambar dibawah ini : 

Double klik pada form dan silahkan pilih prosedur Form_Load dan copykan syntak dibawah ini : 

Kemudian double juga pada CommanButton dan copykan syntak berikut ini : 

Dim nLokasi
nLokasi = InStr(Text1.Text, Text2)
If nLokasi Then
   Text1.SetFocus
   Text1.SelStart = nLokasi - 1
   Text1.SelLength = Len(Text2)
Else
    MsgBox "Kata tidak ditemukan!"
End If

Simpan sourcode tersebut dan RUN/F5. Sekarang coba inputkan karakter pada textbox pencarian kemudian klik tombol tersebut, jika kata kunci yang diinputkan ada disalah satu karakter pada textbox paling atas, secara otomatis akan terblok sesuai dengan string pada textbox pencarian, seperti gambar dibawah ini 

Cukup mudah bukan dan semoga postingan kali ini dapat bermanfaat bagi pembaca sekalian.