COMBOBOX Thiết kế form sau: Chọn: Pháp hình Mỹ hình Hà lan hình Thái lan hình Chọn tương ứng Code mở rộng: CODE Public Class Form1 Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click, PictureBox4.Click, PictureBox6.Click, PictureBox8.Click End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedIndex = Then Label1.Text = "AAA" If ComboBox1.SelectedIndex = Then Label2.Text = "BBB" If ComboBox1.SelectedIndex = Then PictureBox1.Visible = True If ComboBox1.SelectedIndex = Then PictureBox2.Visible = True If If If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = = = 0 0 0 Then Then Then Then Then Then PictureBox3.Visible PictureBox4.Visible PictureBox5.Visible PictureBox6.Visible PictureBox7.Visible PictureBox8.Visible If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = 1 1 Then Then Then Then Label1.Text = "CCC" Label2.Text = "DDD" PictureBox3.Visible = True PictureBox4.Visible = True If If If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = = = 1 1 1 Then Then Then Then Then Then PictureBox1.Visible PictureBox2.Visible PictureBox5.Visible PictureBox6.Visible PictureBox7.Visible PictureBox8.Visible If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = 2 2 Then Then Then Then Label1.Text = "EEE" Label2.Text = "FFF" PictureBox5.Visible = True PictureBox6.Visible = True If If If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = = = 2 2 2 Then Then Then Then Then Then PictureBox1.Visible PictureBox2.Visible PictureBox3.Visible PictureBox4.Visible PictureBox7.Visible PictureBox8.Visible If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = 3 3 Then Then Then Then Label1.Text = "GGG" Label2.Text = "HHH" PictureBox7.Visible = True PictureBox8.Visible = True If If If If If If ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex ComboBox1.SelectedIndex = = = = = = 3 3 3 Then Then Then Then Then Then PictureBox1.Visible PictureBox2.Visible PictureBox3.Visible PictureBox4.Visible PictureBox5.Visible PictureBox6.Visible End Sub = = = = = = = = = = = = = = = = = = = = = = = = False False False False False False False False False False False False False False False False False False False False False False False False End Class