VB列表框组合框ppt课件

《VB列表框组合框ppt课件》由会员分享，可在线阅读，更多相关《VB列表框组合框ppt课件（30页珍藏版）》请在装配图网上搜索。

1、VB语言程序设计语言程序设计窗体窗体控件控件标签标签文本框文本框列表框和组合框列表框和组合框滚动条和定时器滚动条和定时器VB语言程序设计窗体1列表框列表框列表框（列表框（ListBox）控件将一系列的选）控件将一系列的选项组合成一个列表，用户可以选择其中项组合成一个列表，用户可以选择其中的一个或几个选项的一个或几个选项列表框有两种风格：标准和复选列表框Style=0 标准Style=1 复选列表框列表框列表框（ListBox）控件将一系列的选项组合成一个列2列表框列表框添加新项目添加新项目列表框添加新项目3列表框列表框列表框主要属性列表框主要属性lList、ListCount和和ListInd

2、ex属性属性List：字符型数组，存放列表框的项目字符型数组，存放列表框的项目数据，下标是从数据，下标是从0开始的。开始的。ListIndex：为整型值，选中的项目的序：为整型值，选中的项目的序号，号，没有项目选中时为没有项目选中时为-1。ListCount：为整型值，表示项目的数量，：为整型值，表示项目的数量，ListCount-1是最后一项的下标。是最后一项的下标。列表框列表框主要属性4列表框列表框列表框（列表框（ListBox）lList、ListCount和和ListIndex属性属性列表框列表框（ListBox）5列表框列表框列表框（列表框（ListBox）Private Sub F

3、orm_Load()Private Sub Form_Load()Dim i As IntegerDim i As IntegerLabel1.Caption=Label1.Caption=For i=0 To List1.ListCount-1For i=0 To List1.ListCount-1Label1.Caption=Label1.Caption+List1.List(i)Label1.Caption=Label1.Caption+List1.List(i)NextNextEnd SubEnd Sub列表框列表框（ListBox）Private Sub For6列表框列表框列表框主

4、要属性列表框主要属性ltext属性：用于存放被选中列表项的文本内属性：用于存放被选中列表项的文本内容。容。Private Sub Command1_Click()Label1.Caption=List1.TextEnd Sub列表框列表框主要属性Private Sub Command17列表框列表框列表框常用方法列表框常用方法lAddItem：用于将项目添加到列表框控件：用于将项目添加到列表框控件语法格式：语法格式：对象名对象名.AddItem item,index.AddItem item,index其中：其中：item:item:为字符串表达式，为字符串表达式，表示要加入的项目。表示要加入

5、的项目。Index:Index:决定新增项目的位置，缺省，决定新增项目的位置，缺省，则添加在最后。则添加在最后。列表框列表框常用方法语法格式：8列表框列表框列表框常用方法列表框常用方法lClear方法：用于清除列表框控件或组合框方法：用于清除列表框控件或组合框控件中的所有项目。控件中的所有项目。语法格式：语法格式：对象名对象名.Clear.Clear列表框列表框常用方法语法格式：9列表框列表框主要事件：主要事件：lClick事件：单击某一列表项目时触发事件：单击某一列表项目时触发lDblClick事件：双击某一列表项目时触发事件：双击某一列表项目时触发列表框主要事件：10列表框列表框范例范例:

6、设计以下界面设计以下界面列表框列表框列表框列表框list1list1list1list1列表框范例:设计以下界面列表框list111列表框列表框功能一功能一l先把库存水果先把库存水果:苹果苹果,梨梨,桃子桃子,信息录入到信息录入到列表框中列表框中功能二功能二l选中不同水果选中不同水果,在在label3中报告水果名中报告水果名列表框功能一12列表框列表框功能三功能三l实现添加新项目功能实现添加新项目功能功能四功能四l实现删除单项功能实现删除单项功能,若没有列表内容，则报若没有列表内容，则报出信息出信息功能五功能五:l报告共有多少种水果报告共有多少种水果,注意添加和删除时要注意添加和删除时要修改数

7、目修改数目列表框功能三13组合框组合框组合框控件（组合框控件（ComboBox）l将文本框和列表框的功能结合在一起将文本框和列表框的功能结合在一起组合框共三种风格：组合框共三种风格：下拉式组合框下拉式组合框(允许输入允许输入)简单组合框和简单组合框和下拉式列表框下拉式列表框(不允许输入不允许输入)组合框组合框控件（ComboBox）组合框共三种风格：14组合框组合框基本事件与列表框类似基本事件与列表框类似范例范例combo1combo2combo3label4组合框基本事件与列表框类似combo1combo2combo15组合框组合框Combo1:lList 宋体、黑体、隶书、幼圆宋体、黑体、

8、隶书、幼圆Combo2:lList 常规、粗体、斜体、粗斜体常规、粗体、斜体、粗斜体Combo3:lList:一号、二号、三号、四号、五号一号、二号、三号、四号、五号lItemdata:26、22、16、14、10组合框Combo1:16组合框组合框初始化设置初始化设置Private Sub Form_Load()Combo1.ListIndex=0Combo2.ListIndex=0Combo3.ListIndex=4Label4.FontName=Combo1.TextLabel4.FontSize=Combo3.ItemData(4)Label4.FontBold=FalseLabel4

9、.FontItalic=FalseEnd Sub组合框初始化设置Private Sub Form_Load(17组合框组合框选择不同组合框时选择不同组合框时:Private Sub Combo3_Click()Dim a as integerA=Combo3.ListIndexLabel4.FontSize=Combo3.ItemData(a)End SubPrivate Sub Combo1_Click()Label4.FontName=Combo1.TextEnd Sub组合框选择不同组合框时:Private Sub Combo318组合框组合框选择不同组合框时选择不同组合框时:Priva

10、te Sub Combo2_Click()Dim a As Integera=Combo2.ListIndexSelect Case aCase 0:Label4.FontBold=False Label4.FontItalic=FalseCase 1:Label4.FontBold=True Label4.FontItalic=False Case 2:Label4.FontBold=False Label4.FontItalic=TrueCase 3:Label4.FontBold=True Label4.FontItalic=TrueEnd SelectEnd Sub组合框选择不同组合框

11、时:Private Sub Combo219组合框组合框P105例例4-8组合框P105例4-820包含水平滚动条（包含水平滚动条（HscrollBar)和垂直滚动条和垂直滚动条(VscrollBar)属性（均以整数表示）属性（均以整数表示）(1)Value(1)Value 滑块所处位置所代表的值。滑块所处位置所代表的值。(2)Max(2)Max：最大值：最大值 -32,76832,767 -32,76832,767(3)Min(3)Min：最小值：最小值 -32,76832,767 -32,76832,767(4)SmallChange(4)SmallChange 最小变动值，单击箭头移动增

12、量值。最小变动值，单击箭头移动增量值。(5)LargeChange(5)LargeChange 最大变动值，单击空白处移动增量值。最大变动值，单击空白处移动增量值。滚动条(ScrollBar)包含水平滚动条（HscrollBar)和垂直滚动条(Vscr21（1 1）ChangeChange事件事件 滚滚动动条条的的ChangeChange事事件件在在移移动动滚滚动动框框或或通通过过代代码码改改变变其其ValueValue属属性性值值时时发发生生。单单击击滚滚动动条条两两端端的的箭头或空白处将引发箭头或空白处将引发ChangeChange事件。事件。（2 2）ScrollScroll事件事件 当

13、当滚滚动动框框被被重重新新定定位位，或或按按水水平平方方向向或或垂垂直直方方向向滚滚动动时时，ScrollScroll事事件件发发生生。拖拖动动滑滑块块时时会会触触发发ScrollScroll事件。事件。滚动条-事件ScrollScroll事件与事件与ChangeChange事件的区别在于事件的区别在于：当滚动条控件：当滚动条控件滚动时滚动时ScrollScroll事件一直发生，而事件一直发生，而ChangeChange事件只是在滚事件只是在滚动结束之后才发生一次。动结束之后才发生一次。（1）Change事件滚动条-事件Scroll事件与Chan22【例】利用滚动条改变文本框中所显示文本【例】

14、利用滚动条改变文本框中所显示文本的字号大小。程序代码如下：的字号大小。程序代码如下：Private Sub HScroll1_ChangePrivate Sub HScroll1_Change（）（）Label1.Caption=HScroll1.ValueLabel1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueText1.FontSize=HScroll1.ValueEnd SubEnd Sub举例【例】利用滚动条改变文本框中所显示文本的字号大小。程序代码如23滚动条示例滚动条示例设计一个用于设置字体颜色的程序设计一个用于设置字体颜

15、色的程序滚动条示例设计一个用于设置字体颜色的程序24计时器计时器用于间隔一定时间触发事件用于间隔一定时间触发事件常用属性常用属性lIntervalInterval：取值范围在：取值范围在0-64767 0-64767 之间（包括这之间（包括这两个数值）两个数值）,单位为毫秒（单位为毫秒（0.0010.001秒秒),),表示计时表示计时间隔。间隔。IntervalInterval为为0 0或或负负数数,则则计计时时器器停停止止工工作作常用事件常用事件lTimerTimer：当当EnabledEnabled属性值为属性值为TrueTrue且且IntervalInterval属属性值大于性值大于0

16、0时，该事件以时，该事件以IntervalInterval属性指定的属性指定的时间间隔发生，需要定时执行的操作即放在该时间间隔发生，需要定时执行的操作即放在该事件过程中完成。事件过程中完成。计时器用于间隔一定时间触发事件25计时器计时器范例：实现向右擦除的图片显示效果范例：实现向右擦除的图片显示效果l设计界面设计界面HscrollBar:HscrollBar:Min:1 max:4110Min:1 max:4110Visible:false(Visible:false(可改变可改变)Timer:Timer:Interval:100Interval:100Enable:falseEnable:f

17、alse计时器范例：实现向右擦除的图片显示效果HscrollBar:26计时器计时器功能：实现向右擦除的图片显示效果功能：实现向右擦除的图片显示效果l使用水平滚动条控制图片宽度使用水平滚动条控制图片宽度l使用计时器每隔使用计时器每隔100毫秒自动更新滚动条毫秒自动更新滚动条的值。的值。计时器功能：实现向右擦除的图片显示效果27【例】建立数字计时器，要求每秒钟时间变化一次。【例】建立数字计时器，要求每秒钟时间变化一次。Private Sub Timer1_Timer（）（）Label1.FontSize=48 Label1.Caption=Time End Sub时钟举例时钟举例【例】建立数字计时器，要求每秒钟时间变化一次。Private28制作一个倒计时程序。用户可以输入倒制作一个倒计时程序。用户可以输入倒计时开始的秒数，每秒减计时开始的秒数，每秒减1,到到0为止。为止。倒计时的时候，要用不同的颜色作提示。倒计时的时候，要用不同的颜色作提示。15-11秒，用绿色提示；秒，用绿色提示；10-6秒，黄秒，黄色提示；色提示；5-0用红色提示。用红色提示。制作一个倒计时程序。用户可以输入倒计时开始的秒数，每秒减1,29习题习题4例例4-14课后习题课后习题习题4例4-1430