Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6

8 views
Pada postingan kali ini admin akan membahas sourcode ihwal Cara Mencari Posisi Sebuah Karakter/String Dengan VB6. Katakanlah kita kini 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 menyerupai gambar dibawah ini : 



Double klik pada form dan silahkan pilih mekanisme 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 huruf pada textbox pencarian lalu klik tombol tersebut, kalau kata kunci yang diinputkan ada disalah satu huruf pada textbox paling atas, secara otomatis akan terblok sesuai dengan string pada textbox pencarian, menyerupai gambar dibawah ini 
Cukup gampang bukan dan supaya postingan kali ini sanggup bermanfaat bagi pembaca sekalian.
Author: 
    author
    No related post!