VB列表框组合框课件

VB语言程序设计窗体控件标签文本框列表框和组合框滚动条和定时器VB语言程序设计窗体1列表框列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项列表框有两种风格：标准和复选列表框Style=0标准Style=1复选列表框列表框列表框（ListBox）控件将一系列的选项组合成一个列2列表框添加新项目列表框添加新项目3列表框列表框主要属性List、ListCount和ListIndex属性List：字符型数组，存放列表框的项目数据，下标是从0开始的。ListIndex：为整型值，选中的项目的序号，没有项目选中时为-1。ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。列表框列表框主要属性4列表框列表框（ListBox）List、ListCount和ListIndex属性列表框列表框（ListBox）5列表框列表框（ListBox）PrivateSubForm_Load()DimiAsIntegerLabel1.Caption=""Fori=0ToList1.ListCount-1Label1.Caption=Label1.Caption+List1.List(i)NextEndSub列表框列表框（ListBox）PrivateSubFor6列表框列表框主要属性text属性：用于存放被选中列表项的文本内容。PrivateSubCommand1_Click()Label1.Caption=List1.TextEndSub列表框列表框主要属性PrivateSubCommand17列表框列表框常用方法AddItem：用于将项目添加到列表框控件语法格式：〈对象名〉.AddItemitem[,index]其中：item:为字符串表达式，表示要加入的项目。Index:决定新增项目的位置，缺省，则添加在最后。列表框列表框常用方法语法格式：8列表框列表框常用方法Clear方法：用于清除列表框控件或组合框控件中的所有项目。语法格式：〈对象名〉.Clear列表框列表框常用方法语法格式：9列表框主要事件：Click事件：单击某一列表项目时触发DblClick事件：双击某一列表项目时触发列表框主要事件：10列表框范例:设计以下界面列表框list1列表框范例:设计以下界面列表框list111列表框功能一先把库存水果:苹果,梨,桃子,信息录入到列表框中功能二选中不同水果,在label3中报告水果名列表框功能一12列表框功能三实现添加新项目功能功能四实现删除单项功能,若没有列表内容，则报出信息功能五:报告共有多少种水果,注意添加和删除时要修改数目列表框功能三13组合框组合框控件（ComboBox）将文本框和列表框的功能结合在一起组合框共三种风格：下拉式组合框(允许输入)简单组合框和下拉式列表框(不允许输入)组合框组合框控件（ComboBox）组合框共三种风格：14组合框基本事件与列表框类似范例combo1combo2combo3label4组合框基本事件与列表框类似combo1combo2combo15组合框Combo1:List宋体、黑体、隶书、幼圆Combo2:List常规、粗体、斜体、粗斜体Combo3:List:一号、二号、三号、四号、五号Itemdata:26、22、16、14、10组合框Combo1:16组合框初始化设置PrivateSubForm_Load()Combo1.ListIndex=0Combo2.ListIndex=0Combo3.ListIndex=4Label4.FontName=Combo1.TextLabel4.FontSize=Combo3.ItemData(4)Label4.FontBold=FalseLabel4.FontItalic=FalseEndSub组合框初始化设置PrivateSubForm_Load(17组合框选择不同组合框时:PrivateSubCombo3_Click()DimaasintegerA=Combo3.ListIndexLabel4.FontSize=Combo3.ItemData(a)EndSubPrivateSubCombo1_Click()Label4.FontName=Combo1.TextEndSub组合框选择不同组合框时:PrivateSubCombo318组合框选择不同组合框时:PrivateSubCombo2_Click()DimaAsIntegera=Combo2.ListIndexSelectCaseaCase0:Label4.FontBold=FalseLabel4.FontItalic=FalseCase1:Label4.FontBold=TrueLabel4.FontItalic=FalseCase2:Label4.FontBold=FalseLabel4.FontItalic=TrueCase3:Label4.FontBold=TrueLabel4.FontItalic=TrueEndSelectEndSub组合框选择不同组合框时:PrivateSubCombo219组合框P105例4-8组合框P105例4-820包含水平滚动条（HscrollBar)和垂直滚动条(VscrollBar)属性（均以整数表示）(1)Value 滑块所处位置所代表的值。(2)Max：最大值 -32,768~32,767(3)Min：最小值 -32,768~32,767(4)SmallChange 最小变动值，单击箭头移动增量值。(5)LargeChange 最大变动值，单击空白处移动增量值。滚动条(ScrollBar)包含水平滚动条（HscrollBar)和垂直滚动条(Vscr21（1）Change事件滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。（2）Scroll事件当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。滚动条-事件Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。（1）Change事件滚动条-事件Scroll事件与Chan22【例】利用滚动条改变文本框中所显示文本的字号大小。程序代码如下：PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub举例【例】利用滚动条改变文本框中所显示文本的字号大小。程序代码如23滚动条示例设计一个用于设置字体颜色的程序滚动条示例设计一个用于设置字体颜色的程序24计时器用于间隔一定时间触发事件常用属性Interval：取值范围在0-64767之间（包括这两个数值）,单位为毫秒（0.001秒),表示计时间隔。Interval为0或负数,则计时器停止工作常用事件Timer：当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。计时器用于间隔一定时间触发事件25计时器范例：实现向右擦除的图片显示效果设计界面HscrollBar:Min:1max:4110Visible:false(可改变)Timer:Interval:100Enable:false计时器范例：实现向右擦除的图片显示效果HscrollBar:26计时器功能：实现向右擦除的图片显示效果使用水平滚动条控制图片宽度使用计时器每隔100毫秒自动更新滚动条的值。计时器功能：实现向右擦除的图片显示效果27【例】建立数字计时器，要求每秒钟时间变化一次。PrivateSubTimer1_Timer（）Label1.FontSize=48Label1.Caption=Tim