Menampilkan Input ke Label dengan Vb 6 - Untuk Materi Belajar Vb 6 yang satu ini sangat mudah, namun sering kali hal ini sangat sepele di mana pemakai Visual Basic yang pemula. Pada kesempatan ini tidak sengaja saya teringat karena ada yang bertanya di group kami yaitu KDVB mengenai Cara menampilkan input ke label dengan Visual Basic 6.
Untuk lebih mempermudah, pastinya sudah penasaran caranya seperti apa. Hal yang pertama di butuhkan untuk tutorial ini yaitu komponen Label, Command, Combo, Optionbutton dan Textbox. Karena pada tutorial visual basic ini akan memperagakan Cara menampilkan input Textbox ke Label, Input Combo ke Label, dan Input Option Button ke label dengan Visual Basic 6
Silahkan siapkan atau buat Desain Form seperti di bawah, atau sedikit mendekati supaya lebih gampang dalam penempatan.
 |
| Desain Form dengan Visual Basic |
Pengaturan Form
| Objeck | Properties | Pengaturan |
| Label1 | (Name) | Label |
| Caption | tes program | |
| Textbox1 | (Name) | Textbox1 |
| Caption | kosongkan | |
| Command1 | (Name) | Command1 |
| Caption | Proses | |
| Option1 | (Name) | Option1 |
| Caption | Percobaan1 | |
| Option2 | (Name) | Option2 |
| Caption | Percobaan2 | |
| Combo1 | (Name) | Combo1 |
Kode Program
Private Sub Command1_Click()
Label1.Caption = " www.visualbasicku.com : " & UCase(Text1.Text) & ""
End Sub
Private Sub Command2_Click()
Label1.Caption = " www.visualbasicku.com : " & UCase(Combo1.Text) & ""
End Sub
Private Sub Command3_Click()
Dim coba As String
If Option1.Value = True Then
coba = "Percobaan 1"
Else
If Option2.Value = True Then
coba = "Percobaan 2"
End If
End If
Label1.Caption = " www.visualbasicku.com : " & UCase(coba) & ""
End Sub
Private Sub Form_Load()
Combo1.AddItem "Percobaan 1"
Combo1.AddItem "Percobaan 2"
Combo1.AddItem "Percobaan 3"
End Sub
Cukup sekian mengenai cara Menampilkan Input ke Label dengan Visual basic untuk hari ini, semoga dapat di manfaatkan
0 Comments
