Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax  ComboBox

Syntax ini berfungsi untuk menampilkan Item yang sudah dimasukan di Form Load.

Ketentuan soal :

Kode	Fasilitas 1	Fasilitas 2	Fasilitas 3	Tarif Kamar
VIP	AC	Kamar Mandi	TV LCD	120000
EKONOMI	Kipas Angin	Kamar Mandi	TV LCD	75000
UMUM	Kamar Mandi	TV LCD	-	50000

Contoh Syntax :

Private Sub Combo1_Click()

If Combo1.Text = "VIP" Then

Text3.Text = "AC"

Text4.Text = "KAMAR MANDI"

Text5.Text = "TV LCD"

Text6.Text = 120000

ElseIf Combo1.Text = "EKONOMI" Then

Text3.Text = "KIPAS ANGIN"

Text4.Text = "KAMAR MANDI"

Text5.Text = "TV LCD"

Text6.Text = 75000

ElseIf Combo1.Text = "UMUM" Then

Text3.Text = "KIPAS ANGIN"

Text4.Text = "TV LCD"

Text5.Text = "-"

Text6.Text = 50000

End If

End Sub