可视化应用程序界面及控件应用

《可视化应用程序界面及控件应用》由会员分享，可在线阅读，更多相关《可视化应用程序界面及控件应用（37页珍藏版）》请在装配图网上搜索。

1、窗体的常用事件窗体的常用事件n nForm_load事件 当程序开始运行第一次加载窗体时，就会触动该窗体的Form_load事件处理程序。n nForm_Activated事件 当程序开始运行加载窗体时，此事件运行的优先权紧接在Form_load事件程序之后。主要用在当窗体被打开时（即成为作用窗体），用来显示默认的文字或界面。常用控件（常用控件（Listbox）n n在在listbox控件中加入项目控件中加入项目 编辑模式（Items）、运行模式uu 使用使用addadd方法将在列表的最后加入字符串或对象方法将在列表的最后加入字符串或对象 listbox1.items.add(“深圳深圳”)u

2、u 使用使用insertinsert方法，在列表中的指定位置插入字符方法，在列表中的指定位置插入字符串或对象串或对象Listbox1.items.insert(5,”Listbox1.items.insert(5,”深圳深圳深圳深圳”)uu 将整个数组赋值给将整个数组赋值给itemsitems集合集合Listbox1.items.addrange(Listbox1.items.addrange(数组名数组名数组名数组名)n n取得列表的项目取得列表的项目 如果需要在程序运行阶段取得Listbox中现有的项目，通常会以循环来逐一列出每个项目，因此需要先取得列表中的项目总数，另外再以Items属性

3、来取得项目内容。列表的项目总数项目总数可以用 Items.Count 方法取得，Items(Index)则可以取得项目内容，其中Index为项目的索引值，项目的索引值是从0开始的。n n下例会将listbox中的所有项目显示在label1标签中。label1.text+=listbox1.items(i)+vbnewline nextn n项目选取事件项目选取事件 当用户选取了Listbox中的项目，会将被选被选取项目的索引值取项目的索引值传给 SelectedIndex 属性，也会将项目内容项目内容传给 SelectedItem 属性，因此可以通过这两个属性来取得被选取的项目。当用户按下选取

4、Listbox控件的项目时，会引发 SelectedIndexChanged 事件及SelectedValueChanged 事件。n n下例会将listbox1控件中被选取的项目索引值显示在label1中，而将项目内容显示在label2标签中。private sub listbox1_selectedindexchanged()label1.text=listbox1.selectedindex label2.text=listbox1.selecteditem end subn n实例练习实例练习1：Listbox控件的访问练习。n n1.在声明区声明一个字符串数组，命名为fruit。再声

5、明一个整数变量i，作为循环计数之用。dim fruit()as string=“西瓜”,”橘子”,“菠萝”，”香蕉”,”葡萄”dim I as integer private sub form1_load listbox1.items.addrange(fruit)end subn n2.在Listbox1控件的SelectedIndexChanged事件程序中，当按下列表中的项目时，利用selectedindex属性取得项目的索引值，利用selecteditem属性取得项目的内容。Label2.Text=ListBox1.SelectedIndexLabel4.Text=ListBox1.S

6、electedItem 等价于等价于label4.text=listbox1.items(listbox1.selectedindex)n n3.按下按钮时，将listbox1控件的项目以循环逐一的显示在label5标签中。Label5.Text=For I=0 To ListBox1.Items.Count-1 Label5.Text+=ListBox1.Items(I)+vbNewLine Nextn n如何删除项目如何删除项目 要删除列表中既有的项目，有两种方式，使用 RemoveAt 指定要删除的索引值，或是使用Remove 直接指定要删除的项目内容：listbox1.items.re

7、moveat(2)删除第3个项目 listbox1.items.remove(“西瓜”)清除所有项目：清除所有项目：Listbox1.Items.Clear()n n如何排序项目如何排序项目 如果要让列表内项目能够依字母顺序排列，可以设置其 Sorted 属性为true，当新的项目加入时，列表会自动重新排列。listbox1.sorted=truen n实例练习实例练习2:Listbox控件的新增、删除、排序等练习。n nDim arrayfruit()=西瓜,番石榴,杨桃,草莓,菠萝,柠檬,荔枝,枇杷,柳丁 Dim i As Integern n-form1_load-ListBox1.It

8、ems.AddRange(arrayfruit)n n-ListBox1_SelectedIndexChanged-Button1.Enabled=Truen n-ListBox2_SelectedIndexChanged-Button2.Enabled=Truen n-Button1_Click-If ListBox1.SelectedIndex=0 Then If ListBox1.SelectedIndex=0 Then ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndeListBox2.Items.Add(ListBox1.I

9、tems(ListBox1.SelectedIndex)x)ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)End If End Ifn n-Button2_Click-If ListBox2.SelectedIndex=0 Then If ListBox2.SelectedIndex=0 Then ListBox1.Items.Add(ListBox2.Items(ListBox2.SelectedIndeListBox1.Items.Add(ListB

10、ox2.Items(ListBox2.SelectedIndex)x)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End If End If实例练习3：数组排序应用程序，为ListBox控件添加10个数组元素，单击【排序】按钮后，数组元素按从小到大的顺序进行排列。n n在程序代码窗口编写如下代码：在程序代码窗口编写如下代码：n nPublic MatrixA()As Integer=20,40,10,0,80,60,90,70,30,50Public

11、MatrixA()As Integer=20,40,10,0,80,60,90,70,30,50n n Dim I As Integer Dim I As Integern n Private Sub Private Sub Button1_Click Button1_Click(ByVal sender As System.Object,(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.ClickByVal e As System.EventArgs)Handles Button1.Click

12、n n ListBox1.Items.Clear()ListBox1.Items.Clear()n n For I=0 To 9 For I=0 To 9 n n ListBox1.Items.Add(MatrixA(I)ListBox1.Items.Add(MatrixA(I)n n Next I Next In n End Sub End Subn n Private Sub Private Sub Button2_Click Button2_Click(ByVal sender As System.Object,(ByVal sender As System.Object,ByVal e

13、 As System.EventArgs)Handles Button2.ClickByVal e As System.EventArgs)Handles Button2.Clickn n Array.Sort(MatrixA)Array.Sort(MatrixA)n n ListBox1.Items.Clear()ListBox1.Items.Clear()n n For I=0 To 9 For I=0 To 9n n ListBox1.Items.Add(MatrixA(I)ListBox1.Items.Add(MatrixA(I)n n Next Nextn nEnd SubEnd S

14、ubListbox取得多个选取项目取得多个选取项目n n1.selectedindices 这个属性会取得被选取项目的索引值，返回值是一个集合，而这个集合的数量可以用selectedindices.count取得。n n2.selecteditems 这个属性会取得所有被选取的项目内容，返回值是一个集合，而这个集合的数量可以用selecteditems.count取得。这两个集合都可以用for eachnext循环来输出，下面的程序段会把所选取项目的索引值显示在label1标签上，以及将项目内容显示在label2标签上。for each I in listbox1.selectedindice

15、s label1.text&=I&vbnewline next for each j in listbox1.selecteditems label2.text&=j&vbnewline next指定项目选取与否指定项目选取与否n nListbox1.setselected(index,boolean)例：如要选取Listbox1的第3个项目：listbox1.setselected(2,true)若要一次性取消所有项目的选取，使用clearselected方法。如：listbox1.clearselected()多个选取项目的删除多个选取项目的删除n n如果要删除的不止一个项目，就要使用循环

16、来逐一删除。以下程序的一般写法：for i=listbox1.selectedindices.count-1to 0 step-1 listbox1.items.removeat(listbox1.selectedindices(i)nextn n实例练习实例练习2:Listbox控件的新增、删除、排序等练习。ComboBox控件控件 ComboBox（组合框）控件和ListBox(列表框)控件的功能类似，而且大部分的方法及属性都完全一样。一般来说，如果用户可以自用户可以自行输入项目行输入项目的时候，就比较适合用组合框；而无法输入列表的内容时，则较使用列表框。ComboBox=TextBox+

17、ListBoxComboBox常用属性：常用属性：n nDropDownStyle:该属性决定组合框的3种形式，取值分别为：DropDown,Simple,DropDownList。n nText:用于设置ComboBox上显示的文本。n n-Button1_click-Dim sstr1,sstr2,sstr3 As String If TextBox1.Text Then sstr1=TextBox1.Text End If sstr1=sstr1+ComboBox1.Text+ComboBox2.Text ListBox1.Items.Add(sstr1)Timer定时器控件定时器控件

18、Timer定时器控件是用于按标准时间间隔引发事件。通过定时处理，每隔一个固定的时间就会执行一段程序。常用属性：常用属性：n n Interval:该属性为时间间隔，单位为MS（毫秒）。n n Enable:当属性值为True时，可以触发Timer_Tick事件；反之，不能。n n RadioButton(单选按钮)：用户只能选定其中的一个按钮。n n CheckBox(复选框)：允许用户进行多项选择。n n GroupBox：对控件进行分组。常用属性：常用属性：n n Checked:指示当前的RadioButton按钮或CheckBox复选框是否被选中。n n Text:n n Enable

19、dHscrollBar、VscrollBarn nValue:该值决定了滚动条滑块的位置。n nMaxinum:滚动条Value属性的最大值。默认为100n nMininum:滚动条Value属性的最小值。默认为0HscollBar1_ScrollLabel1.backcolor=color.fromArgb(R,G,B)Ctype(HscrollBar1.value,Byte)工具栏和状态栏工具栏和状态栏练习练习:PictureBox控件控件n n在程序执行阶段加载图片在程序执行阶段加载图片 使用使用ImageImage类别的类别的FromFileFromFile方法来设置方法来设置Imag

20、eImage。例：例：dim path as dim path as string=“C:tempbaby.jpg”string=“C:tempbaby.jpg”picturebox1.image=image.fromfile(path)picturebox1.image=image.fromfile(path)如果图片放在该程序的如果图片放在该程序的BinBin文件夹下，则可以文件夹下，则可以省略为一下写法：省略为一下写法：PictureBox1.Image=PictureBox1.Image=Image.FromFile(baby.jpg)Image.FromFile(baby.jpg)n n在程序执行阶段清除图片 picturebox1.image=nothing