Question

VB有关列表框的设计题

设计程序，2个列表框。1个列表框的项目是一些主食（单选），1个列表框的项目是一些炒菜（复选），另外设计2个文本框和一个按钮，当单击按钮时文本框1的内容为选定的主食，文本框2中放着所有选定的炒菜，每个炒菜名字用逗号分开，文本框2设置为多行显示。

Answer 1

'电脑没装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

 

追问

有没有能用VB设计的

追答

这就是vb啊，只不过版本高一点