'电脑没装VB6.0，用的VS2010请参考
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024