Tutorial kali ini
digunakan untuk anda menggunakan shortcut pada program yang anda buat.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Masukkan lima komponen Label ke dalam area form, sehingga
tampak seperti gambar dibawah ini :
3.
Klik ganda didalam area form, kemudian
ketiklah perintah di bawan ini pada event Form_Load,KeyDown,
KeyUp.
1
2
3
4
5
6
7
8
9
10
11
12
13
|
'general
Dim
tombol(0 To 250) As Boolean
Private
Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If tombol(KeyCode) = False Then
tombol(keykode) = True
Select Case KeyCode
Case vbKeyLeft: Label1 = "kiri"
Case vbKeyRight: Label2 =
"kanan"
Case vbKeyUp: Label3 = "atas"
Case vbKeyDown: Label4 =
"bawah"
Case vbKeySpace: Label5 =
"spasi"
End Select
End If
End
Sub
|
14
15
16
17
18
19
20
21
22
23
|
Private
Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
tombol(KeyCode)
= False
Select Case KeyCode
Case vbKeyLeft: Label1 = ""
Case vbKeyRight: Label2 = ""
Case vbup: Label3 = ""
Case vbKeyDown: Label4 = ""
Case vbspace: Label5 = ""
End Select
End
Sub
|
24
25
26
27
28
29
30
|
Private
Sub Form_Load()
Label1
= ""
Label2
= ""
Label3
= ""
Label4
= ""
Label5
= ""
End
Sub
|
Keterangan
Kode
1
2-8
9-10
11-12
13-17
21-29
|
Mendkelarasikan
variabel tombol dengan nilai array
0-250.
Membuat
perintah yang akan mengosongkan semua teks yang terdapat pada propertis Caption komponen Label pada saat form
tampil.
Saat
anda menekan tombol pada keyboard dan variabel tombol dengan nilai array berdasarkan nilai KeyCode sama dengan False,
maka perintah pada baris berikutnya akan dieksekusi.
Mengibah
nilai variabel tombol manjadi true, kemudian membuat perintah
kondisi pilihan lebih dari satu berdasarkan nilai KeyCode.
Pilihan
tombol yang akan dieksekusi adalah tombol panah kiri, kanan, atas, bawah dan
tombol spasi. Apabila anda menekan antara robmol tersebut, maka akan
ditampilkan pesan pada masing – masing komponen label.
Setelah
anda menekan salah satu tombol, maka variabel tombol diberi nilai false
dan melakukan perintah kondisi lebih dari satu untuk mengosongkan komponen
label.
|
EmoticonEmoticon