《可视化应用程序界面及控件应用.ppt》由会员分享，可在线阅读，更多相关《可视化应用程序界面及控件应用.ppt（37页珍藏版）》请在三一办公上搜索。
1、窗体的常用事件,Form_load事件 当程序开始运行第一次加载窗体时，就会触动该窗体的Form_load事件处理程序。Form_Activated事件 当程序开始运行加载窗体时，此事件运行的优先权紧接在Form_load事件程序之后。主要用在当窗体被打开时（即成为作用窗体），用来显示默认的文字或界面。,常用控件（Listbox）,在listbox控件中加入项目 编辑模式（Items）、运行模式 使用add方法将在列表的最后加入字符串或对象 listbox1.items.add(“深圳”)使用insert方法，在列表中的指定位置插入字符串或对象Listbox1.items.insert(5,”
2、深圳”)将整个数组赋值给items集合Listbox1.items.addrange(数组名),取得列表的项目 如果需要在程序运行阶段取得Listbox中现有的项目，通常会以循环来逐一列出每个项目，因此需要先取得列表中的项目总数，另外再以Items属性来取得项目内容。列表的项目总数可以用 Items.Count 方法取得，Items(Index)则可以取得项目内容，其中Index为项目的索引值，项目的索引值是从0开始的。,下例会将listbox中的所有项目显示在label1标签中。label1.text+=listbox1.items(i)+vbnewline next,项目选取事件 当用户选
3、取了Listbox中的项目，会将被选取项目的索引值传给 SelectedIndex 属性，也会将项目内容传给 SelectedItem 属性，因此可以通过这两个属性来取得被选取的项目。当用户按下选取Listbox控件的项目时，会引发 SelectedIndexChanged 事件及SelectedValueChanged 事件。,下例会将listbox1控件中被选取的项目索引值显示在label1中，而将项目内容显示在label2标签中。private sub listbox1_selectedindexchanged()label1.text=listbox1.selectedindex la
4、bel2.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属性取得
5、项目的索引值，利用selecteditem属性取得项目的内容。Label2.Text=ListBox1.SelectedIndexLabel4.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,如何删除项目 要删除列表中既
6、有的项目，有两种方式，使用 RemoveAt 指定要删除的索引值，或是使用Remove 直接指定要删除的项目内容：listbox1.items.removeat(2)删除第3个项目 listbox1.items.remove(“西瓜”)清除所有项目：Listbox1.Items.Clear(),如何排序项目 如果要让列表内项目能够依字母顺序排列，可以设置其 Sorted 属性为true，当新的项目加入时，列表会自动重新排列。listbox1.sorted=true,实例练习2:Listbox控件的新增、删除、排序等练习。,Dim arrayfruit()=西瓜,番石榴,杨桃,草莓,菠萝,柠檬,
7、荔枝,枇杷,柳丁 Dim i As Integer-form1_load-ListBox1.Items.AddRange(arrayfruit)-ListBox1_SelectedIndexChanged-Button1.Enabled=True-ListBox2_SelectedIndexChanged-Button2.Enabled=True,-Button1_Click-If ListBox1.SelectedIndex=0 Then ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndex)ListBox1.Items.Remov
8、eAt(ListBox1.SelectedIndex)End If-Button2_Click-If ListBox2.SelectedIndex=0 Then ListBox1.Items.Add(ListBox2.Items(ListBox2.SelectedIndex)ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)End If,实例练习3：数组排序应用程序，为ListBox控件添加10个数组元素，单击【排序】按钮后，数组元素按从小到大的顺序进行排列。,在程序代码窗口编写如下代码：Public MatrixA()As Integer=20,4
9、0,10,0,80,60,90,70,30,50 Dim I As Integer Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click ListBox1.Items.Clear()For I=0 To 9 ListBox1.Items.Add(MatrixA(I)Next I End Sub Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System
10、.EventArgs)Handles Button2.Click Array.Sort(MatrixA)ListBox1.Items.Clear()For I=0 To 9 ListBox1.Items.Add(MatrixA(I)NextEnd Sub,Listbox取得多个选取项目,1.selectedindices 这个属性会取得被选取项目的索引值，返回值是一个集合，而这个集合的数量可以用selectedindices.count取得。2.selecteditems 这个属性会取得所有被选取的项目内容，返回值是一个集合，而这个集合的数量可以用selecteditems.count取得。,
11、这两个集合都可以用for eachnext循环来输出，下面的程序段会把所选取项目的索引值显示在label1标签上，以及将项目内容显示在label2标签上。for each I in listbox1.selectedindices label1.text&=I&vbnewline next for each j in listbox1.selecteditems label2.text&=j&vbnewline next,指定项目选取与否,Listbox1.setselected(index,boolean)例：如要选取Listbox1的第3个项目：listbox1.setselected(2
12、,true)若要一次性取消所有项目的选取，使用clearselected方法。如：listbox1.clearselected(),多个选取项目的删除,如果要删除的不止一个项目，就要使用循环来逐一删除。以下程序的一般写法：for i=listbox1.selectedindices.count-1to 0 step-1 listbox1.items.removeat(listbox1.selectedindices(i)next,实例练习2:Listbox控件的新增、删除、排序等练习。,ComboBox控件,ComboBox（组合框）控件和ListBox(列表框)控件的功能类似，而且大部分的方
13、法及属性都完全一样。一般来说，如果用户可以自行输入项目的时候，就比较适合用组合框；而无法输入列表的内容时，则较使用列表框。ComboBox=TextBox+ListBox,ComboBox常用属性：,DropDownStyle:该属性决定组合框的3种形式，取值分别为：DropDown,Simple,DropDownList。Text:用于设置ComboBox上显示的文本。,-Button1_click-Dim sstr1,sstr2,sstr3 As String If TextBox1.Text Then sstr1=TextBox1.Text End If sstr1=sstr1+Comb
14、oBox1.Text+ComboBox2.Text ListBox1.Items.Add(sstr1),Timer定时器控件,Timer定时器控件是用于按标准时间间隔引发事件。通过定时处理，每隔一个固定的时间就会执行一段程序。常用属性：Interval:该属性为时间间隔，单位为MS（毫秒）。Enable:当属性值为True时，可以触发Timer_Tick事件；反之，不能。,RadioButton(单选按钮)：用户只能选定其中的一个按钮。CheckBox(复选框)：允许用户进行多项选择。GroupBox：对控件进行分组。,常用属性：,Checked:指示当前的RadioButton按钮或Chec
15、kBox复选框是否被选中。Text:Enabled,HscrollBar、VscrollBar,Value:该值决定了滚动条滑块的位置。Maxinum:滚动条Value属性的最大值。默认为100Mininum:滚动条Value属性的最小值。默认为0,HscollBar1_ScrollLabel1.backcolor=color.fromArgb(R,G,B),Ctype(HscrollBar1.value,Byte),工具栏和状态栏,练习:,PictureBox控件,在程序执行阶段加载图片 使用Image类别的FromFile方法来设置Image。例：dim path as string=“C:tempbaby.jpg”picturebox1.image=image.fromfile(path)如果图片放在该程序的Bin文件夹下，则可以省略为一下写法：PictureBox1.Image=Image.FromFile(baby.jpg),在程序执行阶段清除图片 picturebox1.image=nothing,
