? vb.net亚博优惠活动之列表框、组合框 亚博优惠活动,亚博体育网页版,亚博app怎么下载「官网直营」
VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动
SQL Server 2008 视频亚博优惠活动 c#入门经典亚博优惠活动 Visual Basic从门到精通视频亚博优惠活动
  • vb.net亚博优惠活动之列表框、组合框

  • 2015-01-17 22:50 来源:未知
列表框、组合框(相关vb.net亚博优惠活动)
一、列表框Listbox:
作用:在一个框中可以添加一些项,然后选某项并执行一定的操作。
例:在列表框中列出电脑上安装的常用软件单击可运行它。
WORD字处理系统|?计算器|?红豆红|退出
常用属性:
Items:显示的列表项
Selectindex:列表框中选择项的序号,从0开始
Selectitem:列表框中选择项的内容。
Text:选择项的内容,同上
常用处理方法:
Items.add:向列表框中添加项
Items.insert:从当前位置前插入项,位置在第一个参数中指明。
Items.clear:清空列框中各项
Items.remove:从列表框中删除指定内容的当前项
Items.removeat:从列表框中删除指定序号的当前项
常用事件:
Click—单击列表框中的某一项
Dbclick—双击
Getfocus—选择指定项
Lostfocus—从指定选择项中移出
说明:在vb.net中调用其它软件的方法:Shell函数
5列表框属性方法应用实例.
见,列表框中常用软件的运行
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
????????Dim?y?As?String
????????y = InputBox("输入要添加的项",?"输入",?"第一个")
????????ListBox2.Items.Add(y)
????End?Sub
?
????Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
????????ListBox2.Items.Insert(1,?"我是新来的")
????End?Sub
?
????Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click
????????ListBox2.Items.Clear()
????End?Sub
?
????Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click
????????ListBox2.Items.Remove(ListBox2.Text)
????End?Sub
?
????Private?Sub?Button5_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button5.Click
????????ListBox2.Items.Remove(ListBox2.SelectedItem)
????End?Sub
?
????Private?Sub?Button6_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button6.Click
????????ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
????End?Sub
例6:在列表框中列出电脑上安装的常用软件单击可运行它。见,列表框与常用软件。[实验报告25]
程序为:
Dim?x?As?String
????Private?Sub?ListBox1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?ListBox1.Click
????????Select?Case?ListBox1.SelectedIndex
????????????Case?0
????????????????x = Shell("C:\WINDOWS\system32\calc.exe", 1)
????????????Case?1
????????????????x = Shell("C:\Program Files\TTPlayer\TTPlayer.exe", 1)
????????????Case?2
????????????????x = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", 1)
????????????Case?3
????????????????End
????????End?Select
????End?Sub
????Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
????????ListBox1.Items.Add("计算器")
????????ListBox1.Items.Add("千千静听")
????????ListBox1.Items.Add("EXCEL电子表格")
????????ListBox1.Items.Add("退出软件")
????End?Sub
练习:在列表框中列出几个图片名,单击之可以加载对应图片.见,图片列表与显示
Combobox:
应用与列表项似,常用属性:
Dropdownstyle:有三个取值
Simple:单组合框,是一个文本框与一个列表框的组合,可以输入内容。
Dropdown:下拉式组合框,文本框与下拉列表框的组合,可以输入内容,
Dropdownlist:下拉列表框,不许输入内容
Text:列表框中输入的内容
应用见,列表框应用,程序为:
Public?Class?Form1
????Private?Sub?ComboBox1_Click(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?ComboBox1.Click
????????ComboBox1.Items.Add(ComboBox1.Text)
????End?Sub

End?Class
相关亚博优惠活动