Belajar VB6 : Combo Box dengan Fungsi (For..To..Next" dan "Select Case)


Buat sebuah aplikasi baru :
File -> New Project -> Standard Exe
Pada Form, masukkan 1 Combo Box, 1 Text Box, dan 1 Label

- Double click pada badan form untuk memasukkan code
- Tulis code berikut ini:

Private Sub Form_Load()
Combo1.Clear
For i = 1 To 12
Combo1.AddItem i
Next i
Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Label1.Caption = "January"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 1
Label1.Caption = "February"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 2
Label1.Caption = "Maret"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 3
Label1.Caption = "April"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 4
Label1.Caption = "Mei"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 5
Label1.Caption = "Juni"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 6
Label1.Caption = "July"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 7
Label1.Caption = "Agustus"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 8
Label1.Caption = "September"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 9
Label1.Caption = "Oktober"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 10
Label1.Caption = "November"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 11
Label1.Caption = "Desember"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
End Select
End Sub

- Tekan "F5" untuk menjalankan/melihat hasilnya.


Download Source : bulan.rar


Salam Codet

No comments:

Post a Comment