第五章常用控件2(计时器、列表框、组合框)

第五章常用控件2,（计时器、列表框、组合框）,计时器,用途：每隔一定的时间间隔产生一次Timer事件。在设计时显示为一个小时钟图标，而在运行时并不显示在屏幕上，通常另设标签或文本框来显示时间属性：Enabled属性：确定计时器是否可用Interval属性：设置两个Timer事件之间的时间间隔，其值以毫秒(1ms=1/1000s)为单位事件：计时器控件只响应一个Timer事件。也就是说，计时器控件对象在间隔了一个Interval设定时间后，便触发一次Timer事件,4.计时器控件,3,例：建立一个电子时钟,(1)创建应用程序的用户界面(2)设置对象属性一个计时器控件和一个文本框。计时器控件Timer1的Interval属性值设定为1000(1秒)(3)编写程序代码,例：24秒倒计时例：小球移动例：抽取随机号码,程序举例,4,电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”,(1)创建用户界面在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1)(2)设置对象属性计时器的Enabled属性值为True,Interval属性值为0,程序举例,5,DimmAsInteger,sAsInteger声明模块级变量PrivateSubForm_Load()Timer1.Interval=1000设置每隔1秒触发1次Timer事件Timer1.Enabled=False关闭计时器EndSubPrivateSubCommand1_Click()“倒计时”m=Val(Text1.Text)s=Val(Text2.Text)Timer1.Enabled=True打开计时器EndSub,程序举例,6,PrivateSubTimer1_Timer()Ifs0Thens=s-1ElseIfm0Thenm=m-1s=59EndIfEndIfText1.Text=Format(m,00)Text2.Text=Format(s,00)Ifs=0Andm=0ThenBeep响铃，即让喇叭发一声响MsgBox计时结束UnloadMeEndIfEndSub,列表框,用途：用于列出可供用户选择的项目列表，用户可从中选择一个或多个选项。属性：List：是一个字符型数组,存放列表框的表项，数组的下标从0开始。List1.List(0)的值为“教授”List1.List(1)的值为“副教授”List1.List(2)的值为“讲师”List1.List(3)的值为“助教”,列表框,ListCount：返回列表框中表项的数目ListIndex：返回已选定表项的顺序号(索引)。若未选定任何项，则ListIndex的值为-1MultiSelect：设置是否允许同时选择多个表项Selected：逻辑值，列表框中某一表项是否被选中Sorted：设置列表框中各表项是否按字母顺序排列Text：存放当前选定表项的文本内容假设列表框List1中有四个表项，并已选定第2项，则有：List1.List(0)的值为”教授”List1.ListCount个数为4List1.ListIndex为1List1.Text的值为”副教授”List1.Selected(1)为TrueList1.Selected(0)为False,列表框,事件：可接收Click、DblClick等事件方法：AddItem方法：用于把一个列表项加入列表框格式：对象.AddItem列表项，索引例：List1.AddItem海南省，28Clear和RemoveItem方法：用于删除列表项列表框表项的输出：用鼠标单击列表框内某一表项，则该表项值存放在Text属性中。例如：x=List1.Text把表项值存放在x变量中指定索引号来取表项的内容，例如：List1.ListIndex=3x=List1.Text,列表框,例：例：家电列表程序（添加、删除、修改、清空）例：选课程序,8.选择控件列表框与组合框,11,【例22】设计一个程序，找出100800范围内所有能同时被3和8整除的自然数,(1)创建用户界面(2)设置对象属性,8.选择控件列表框与组合框,12,PrivateSubForm_load()Label1.Caption=按“显示”按钮，可以在列表框中_&显示100到800范围内能同时被3和8整除的自然数EndSubPrivateSubCommand1_Click()List1.ClearForn=100To800If(nMod3=0)And(nMod8=0)ThenList1.AddItemnEndIfNextnLabel1.Caption=符合条件的自然数已显示在列表框中EndSub,(3)编写程序代码,组合框,组合框用途：列表框和文本框的组合。属性：Style：该属性取值为0，1或2，分别决定了组合框的三种不同类型Text：是用户所选定项目的文本或直接从文本框输入的文本,13,组合框,14,教材128页文字格式设置程序例：编制程序，把一批课程名放入组合框中，再对组合框进行项目显示、添加、删除、全部删除等操作,(1)创建用户界面(2)设置对象属性,组合框的Style属性为0，TabIndex(键序)为0两个标签；四个命令按钮；一个文本框Text1，用来显示当前的选修课总课程数,组合框,15,PrivateSubForm_load()Combo1.AddItem电子商务Combo1.AddItem网页制作Combo1.AddItemInternet简明教程Combo1.AddItem计算机网络基础Combo1.AddItem多媒体技术Combo1.Text=置空值Text1.Text=Combo1.ListCount表项个数EndSubPrivateSubcommand1_click()“添加”IfLen(Combo1.Text)0ThenCombo1.AddItemCombo1.TextText1.Text=Combo1.ListCountEndIfCombo1.Text=Combo1.SetFocus设置焦点EndSub,(3)编写程序代码,组合框,16,PrivateSubcommand2_click()“删除”DimindAsIntegerind=Combo1.ListIndexIfind-1Then-1表示无表项Combo1.RemoveItemind删除已选定的表项Text1.Text=