- 0
- 0
- 约5.61千字
- 约 38页
- 2016-10-26 发布于广东
- 举报
窗体的常用事件 Form_load事件 当程序开始运行第一次加载窗体时,就会触动该窗体的Form_load事件处理程序。 Form_Activated事件 当程序开始运行加载窗体时,此事件运行的优先权紧接在Form_load事件程序之后。主要用在当窗体被打开时(即成为作用窗体),用来显示默认的文字或界面。 常用控件(Listbox) 在listbox控件中加入项目 编辑模式(Items)、 运行模式 使用add方法将在列表的最后加入字符串或对象 listbox1.items.add(“深圳”) 使用insert方法,在列表中的指定位置插入字符串或对象 Listbox1.items.insert(5,”深圳”) 将整个数组赋值给items集合 Listbox1.items.addrange(数组名) 取得列表的项目 如果需要在程序运行阶段取得Listbox中现有的项目,通常会以循环来逐一列出每个项目,因此需要先取得列表中的项目总数,另外再以Items属性来取得项目内容。 列表的项目总数可以用 Items.Count 方法取得,Items(Index) 则可以取得项目内容,其中Index为项目的索引值,项目的索引值是从0开始的。 下例会将listbox中的所有项目显示在label1标签中。 for i=0 to listbox1.items.count-1 label1.text+=listbox1.items(i)+vbnewline next 项目选取事件 当用户选取了Listbox中的项目,会将被选取项目的索引值传给 SelectedIndex 属性,也会将项目内容传给 SelectedItem 属性,因此可以通过这两个属性来取得被选取的项目。 当用户按下选取Listbox控件的项目时,会引发 SelectedIndexChanged 事件及SelectedValueChanged 事件。 下例会将listbox1控件中被选取的项目索引值显示在label1中,而将项目内容显示在label2标签中。 private sub listbox1_selectedindexchanged(…)… label1.text=listbox1.selectedindex label2.text=listbox1.selecteditem end sub 实例练习1:Listbox控件的访问练习。 1.在声明区声明一个字符串数组,命名为fruit。再声明一个整数变量i,作为循环计数之用。 dim fruit() as string={“西瓜”,”橘子”,“菠萝”,”香蕉”,”葡萄”} dim I as integer private sub form1_load…… listbox1.items.addrange(fruit) end sub 2.在Listbox1控件的SelectedIndexChanged事件程序中,当按下列表中的项目时,利用selectedindex属性取得项目的索引值,利用selecteditem属性取得项目的内容。 Label2.Text = ListBox1.SelectedIndex Label4.Text = ListBox1.SelectedItem ‘ 等价于label4.text=listbox1.items(listbox1.selectedindex) 3.按下按钮时,将listbox1控件的项目以循环逐一的显示在label5标签中。 Label5.Text = For I = 0 To ListBox1.Items.Count - 1 Label5.Text += ListBox1.Items(I) + vbNewLine Next 如何删除项目 要删除列表中既有的项目,有两种方式,使用 RemoveAt 指定要删除的索引值,或是使用Remove 直接指定要删除的项目内容: listbox1.items.removeat(2) ‘删除第3个项目 listbox1.items.remove(“西瓜”) 清除所有项目: Listbox1.Items.Clear() 如何排序项目 如果要让列表内项目能够依字母顺序排列,可以设置其 Sorted 属性为true,当新的项目加入时,列表会自动重新
您可能关注的文档
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第03章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第04章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第05章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第06章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第07章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第08章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第09章.ppt
- 新UG NX基础教程 教学课件 孙慧平 张建荣 张小军 第10章.ppt
- 新UG产品造型及注塑模具设计实践教程 第2版 教学课件 朱光力 周建安 洪建明 王学平 UG产品造型及注塑模具设计实践教程.ppt
- 新UG产品造型及注塑模具设计实践教程 第2版 配套课件 朱光力 周建安 洪建明 王学平 UG产品造型及注塑模具设计实践教程.ppt
原创力文档

文档评论(0)