Kamus Inggris - Fasilitas Pemindai Kosakata - Bagian ke-10

Kamus Inggris - Fasilitas Pemindai Kosakata merupakan kelanjutan dari bagian ke-9.
Pada bagian ini, kita akan melengkapi aplikasi software kamus dengan fasilitas pemindai kosakata. Dengan adanya fasilitas ini, maka pada saat kita menggerakan pointer mouse pada objek RichTextBox aplikasi akan secara otomatis mencari padanan kata tersebut. Ini tentu saja akan menghemat tangan Anda dari mengetikan kosakata di atas TextBox pencarian.

Tujuan pada Bagian ke-10
Mencari padanan kata secara otomatis dengan menggerakan pointer mouse di atas kata yang dicari.

Langkah-langkah

• Tambahkan objek RichTextBox pada aplikasi dengan cara mengklik menu projcet >> Components, selanjutnya centanglah Microsoft Rich TextBox Control 6.0.
• Hapuslah TextBox (Text1 yang terdapat pada frmMain) dan gantilah dengan objek RichTextBox
• Ganti nama RichTextBox1 (nama default pada saat ditambahkan pada form) dengan Text1
• Buat module baru dan beri nama modRichTextBox.

Kode-kode

• Copy dan paste-kan kode ini pada module modRichTextBox (module yang baru dibuat)
• Tambahkan variable baru strWordOver di bawah Option Explicit pada frmMain
• Tambahkan kode di bawah pada frmMain:

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
    strWordOver = RichWordOver(Text1, x, y) 
    If   Trim(strWordOver) = "" Then Exit Sub 
    If Text3.Text <> strWordOver Then 
        Text3.Text = strWordOver 
    End If 
End Sub 

Uji Coba

• Compile dan jalankan melalui Windows Explorer
• Copy sembarang text berbahasa Inggris
• Gerakan pointer mouse pada RichTextBox (Text1) di atas kata yang dicari.