《选择结构程序》-教科选修1.pptVIP

滚动条 有些控件不能自动支持滚动的功能，VB提供的滚动条有水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)两种 常用属性有(均为整型数)： Value 滚动条的当前值，即滑块的位置 LargeChange 单击滚动条的前后部位时，Value的改变量 SmallChange 单击滚动条的两端箭头时，Value的改变量 Max Value的最大值 Min Value的最小值 常用事件： Scroll 当拖动滚动条滑块时触发的事件 Change 当滚动条滑块位置改变时触发的事件 滚动条程序示例 Private Sub HScroll1_Scroll( ) Text1.FontSize = HScroll1.Value End Sub 若改为滚动条的Change事件，效果会有什么变化？ 使用计时器控件 计时器(Timer)控件可以在程序运行中以规定的时间间隔产生一个事件。这对不需要与用户交互的代码的执行非常有用。 计时器在设计时显示为一个小时钟图标，而在运行时则看不到，常用来做一些后台处理。 如果需要显示时间，则应当使用标签或文本框 计时器控件的常用属性 Interval属性是决定Timer控件的计时事件调用间隔的毫秒数 格式：[对象.]Interval [=毫秒数] 说明：当毫秒数为0（缺省）时，Timer控件无效。 Enabled属性（True/False）决定Interval的设置是否有效 只要Timer控件的Enabled属性被设置为True，而且Interval属性0，则以Interval属性指定的时间间隔发生一次Timer事件 设计一个闪烁字幕 Private Sub Form_Load() FontName = 幼圆 FontBold = True FontSize = 100 End Sub Private Sub Timer1_Timer() Form1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) Form1.CurrentX = Form1.Width / 10 ’输出的水平坐标 Form1.CurrentY = Form1.Height / 16 ’输出的垂直坐标 Print 闪烁字幕 End Sub 每隔0.5秒闪烁一次，程序运行前，Timer的Enabled和Interval属性的值应为多少？ 设计一个计时器 每隔一秒钟，文本框中的数字增一，单击“暂停”按钮就停止 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Text1.Text = Text1.Text + 1 End Sub 程序运行前，Timer的Enabled和Interval属性的值应为多少？ 框架控件Frame 框架控件是一个左上方有标题文字的方框。它是一个容器控件。可以对窗体上的控件进行视觉上的分组。 在框架内可以直接绘制控件，也可以将已有控件粘贴到框架内 框架可以提供总体的激活和屏蔽 常用属性有： Name 框架的名称 Caption 框架上显示的标题文字 Visual 运行后是否可见 Enabled 框架和框架内的所有控件是否屏蔽 提供简单选择的控件 选项按钮（Option Button）又称单选按钮，选项按钮总是作为一个组的组成部分工作的。 选项按钮组是一组互排斥的选项按钮;选择一个选项按钮会立即清除该组中的其它按钮;每次只能选一个选项而且必须选择一个选项（问题：在窗体上的是一组？在一个框架内的是一组？） 常用属性： Caption属性： 单选按钮旁边的标题文字 value属性：表示该按钮是否被选中。选中为True,否则为False Alignment属性：单选按钮标题 的对齐方式 Style属性：表示控件的外观（标准格式或图形方式） 可以将选项按钮设计成图形按钮的形式，将Style改为1-Graphical(图形方式)，再依次修改其Caption属性 单选按钮使用最多的是click事件 单选按钮程序示例 Private Sub Option1_Click() Text1.FontName = 宋体 End Sub Private Sub Option2_Click() Text1.Fo