Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("耗油生菜")
ListBox1.Items.Add("清蒸鱼")
ListBox1.Items.Add("酱爆鸡翅")
ListBox2.Items.Add("大米")
ListBox2.Items.Add("馒头")
ListBox2.Items.Add("面条")
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ""
For Each item In ListBox1.SelectedItems
TextBox1.Text += item + ","
Next
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
TextBox2.Text = ListBox2.SelectedItem
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "你选择的菜是：" + TextBox1.Text + "，你选择的主食是：" + TextBox2.Text
End Sub
End Class
