Visual BasicNET程序设计教程第6章.ppt

图6-18 列表框 程序如下： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 添加按钮的名称属性为：button3 如果文本框不空就添加，空就不添加 If Trim(TextBox1.Text) Then Trim(TextBox1.Text)表示去掉文本框Textbox1两边的空格字符 ListBox1.Items.Add(TextBox1.Text) TextBox1.Text = 文本框中的内容添加后将文本框置空 End If End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load ListBox1.Items.Add(武汉) ListBox1.Items.Add(上海) ListBox1.Items.Add(西安) 程序运行之初，列表框中有“武汉”、“上海”和“西安”三项 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click -按钮的名称属性为:button1 如果选定了某项，这时ListBox1.SelectedItem不为空，则移动 If ListBox1.SelectedItem Then 也可以用下面的语句，当ListBox1.SelectedIndex = 0说明选定了某项，这时要移动该项， 当ListBox1.SelectedIndex=-1时表示没有选定某项，此时不可以移动 If ListBox1.SelectedIndex = 0 Then ListBox2.Items.Add(ListBox1.SelectedItem) ListBox1.Items.Remove(ListBox1.SelectedItem) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click “-”按钮的名称属性为button2 Dim i As Int16 i为16位整型数 For i = 1 To ListBox1.Items.Count ListBox1.Items.Count为ListBox1中的项数 ListBox2.Items.Add(ListBox1.Items.Item(0)) ListBox1.Items.Remove(ListBox1.Items.Item(0)) Next End Sub 上面Button2_click的代码也可以写成： Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim i As Int16 ListBox1共有ListBox1.Items.Count项 For i = 1 To ListBox1.Items.Count 第i项的序号为i-1 ListBox2.Items.Add(ListBox1.Items.Item(i?1)) Next ‘所有项都移到右边后，再在左边ListBox1中清除掉 ListBox1.Items.Clear( ) End Sub 例6-8 界面如图6-11所示。窗体上有5个命令按钮，从左至右分别为btcopy、btcut、btdelete、btpaste、btundo。程序在这里不再赘述。下面看各个控件的属