Kamus Inggris - Membuat Project Baru - Bagian Ke-2

Kamus Inggris - Membuat Project Baru merupakan kelanjutan dari Bagian ke-1.
Selanjutnya untuk membuat software menggunakan VB6, yang harus kita lakukan adalah membuat project baru.

Tujuan:

• Membuat project baru menggunakan VB6
• Menambahkan kemampuan copy text yang berasal dari Clipboard

Langkah-langkah:

• Buat project baru
• Tambahkan 2 TextBox, 1 ListBox, 1 Timer
• Rubahlah property Interval pada Timer1 = 1
• Ganti nama Project1 menjadi prjKamus
• Ganti nama Form1 menjadi frmMain
• Modifikasi ukuran-ukurannya, sehingga terlihat seperti gambar di bawah.
• Simpanlah dalam folder, beri nama folder itu dengan Project Kamus Inggris

Kode-kode:

'simpan (copy dan pastekan) kode di bawah ini dalam frmMain 
Option Explicit 
 
Dim strFromClipboard As String 
 
Private Sub Timer1_Timer() 
    Dim s As String 
    s = Clipboard.GetText 
    If s <> strFromClipboard Then 
        strFromClipboard = s 
        Text1.Text = strFromClipboard 
    End If 
End Sub 

Uji Coba:

• Jalankan project yang baru kita buat dengan cara menekan tombol F5 atau mengklik tombol start yang terdapat pada toolbar VB6.
• Copy sembarang text, maka text yang telah dicopy tadi secara otomatis akan masuk ke dalam Text1