VB常用标准控件(三).ppt

1、,表单的常用控件,陈耀清摄于三亚,西安工大北信经济、市营、国贸适用,6.6 滚动条,6.6 滚动条,滚动条用来观察数据和确定位置。滚动条有两种：水平滚动条HScrollX和垂直滚动条VScrollX。,PA09,太湖夕阳,一、滚动条的属性,1. Max 滚动条所能表示的最大值(-3276832767) 2. Min 滚动条所能表示的最小值(-3276832767) 3. Value 滚动条所在位置的值 4. LargeChange 单击滚动条端点时Value属性的增量值 5. SmallChange 单击滚动框两端的箭头时的Value属性的增量值。,二、滚动条的事件,Scroll事件 拖动滚动

2、条滑块时触发该事件，但单击滚动条两端使滑块移动不触发该事件 Change 改变滚动条中滑块的位置时触发该事件,Private Sub HScroll1_Change() hText2.Text = Format$(HScroll1.Value) End Sub Private Sub VScroll1_Change() vText1.Text = Format$(VScroll1.Value) End Sub,PA09,Private Sub HScroll1_Change() Text5.Text = HScroll1.Value PictureR.BackColor = RGB(HScro

3、ll1.Value, 0, 0) Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Text6.Text = HScroll2.Value PictureG.BackColor = RGB(0, HScroll2.Value, 0) Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_C

4、hange() Text7.Text = HScroll3.Value PictureB.BackColor = RGB(0, 0, HScroll3.Value) Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub,用滚动条配颜色,PF07,Private Sub ChangeColor() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 设置文本框背景颜色 Private Sub

5、HScroll1_Change() ChangeColor Text5.Text = HScroll1.Value PictureR.BackColor = RGB(HScroll1.Value, 0, 0) End Sub Private Sub HScroll2_Change() ChangeColor Text6.Text = HScroll2.Value PictureG.BackColor = RGB(0, HScroll2.Value, 0) End Sub Private Sub HScroll3_Change() ChangeColor Text7.Text = HScroll

6、3.Value PictureB.BackColor = RGB(0, 0, HScroll3.Value) End Sub,PF06,PF06 与 PF07 功能完全相同,PF06,PF07,Private Sub HScroll1_Change() X = HScroll1.Value Text1.Text = X N = Trim$(Str$(X) FM = L:PICB + N + .BMP Picture1.Picture = LoadPicture(FM) End Sub,PE01,例：用滚动条翻阅图片,6.7 计时器,1. 计时器可提供定制的时间间隔，且支持Timer事件。Tim

7、er事件是VB中模拟实时计时器的事件。,2.计时器的属性 Enablad 设置对象是否有效 Interval 设置时间间隔，单位为ms,Private Sub Command1_Click() Image1.Picture=LoadPicture(“L:picp4.gif) Image2.Picture=LoadPicture(“L:picp6.gif) End Sub Private Sub Timer1_Timer() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image

8、3.Picture Image3.Picture = LoadPicture() End Sub,两图像框定时交换图片,程序PD01,：,计时器事件,Private Sub Timer1_Timer() Picture4.Left = Picture4.Left + 600 If Picture4.Left Form1.Width Then Picture4.Left = 0 End If Static s As Integer Label1.Caption = Time$ s = s Mod 12 If s = 0 Then Picture1.BackColor = vbRed Pictur

9、e2.BackColor = vbblank Picture3.BackColor = vbblank s = s + 1 T = 5 - s T = T + 1,ElseIf s = 5 And s = 6 Then T = 0 Picture1.BackColor = vbblank Picture2.BackColor = vbYellow Picture3.BackColor = vbblank s = s + 1 T = 7 - s + 1 Else Picture1.BackColor = vbblank Picture2.BackColor = vbblank Picture3.

10、BackColor = vbGreen s = s + 1 T = 11 - s + 1: T = T + 1 End If Label2.Caption = T End Sub,Picture1,Picture2,Picture3,Label1,Label2,Picture4,交通灯控制,计时器事件,PA02,Private Sub Command1_Click() Image1.Left = Image1.Left - 1000 Image2.Left = Image2.Left - 1000 Image3.Left = Image3.Left - 1000 End Sub Private

11、 Sub Timer1_Timer() Image1.Left = Image1.Left + 50 If Image1.Left Form1.Width Then Image1.Left = 0 End If Image2.Left = Image2.Left + 30 If Image2.Left Form1.Width Then Image2.Left = 0 End If Image3.Left = Image3.Left + 30 If Image3.Left Form1.Width Then Image3.Left = 0 End If End Sub,PA02,计时器事件,6.

12、3 框 架,6.8 框架（Frame),一、框架的功能 框架用来进一步分割窗体。在框架中可包含其他对象，移动框架时，框架中的对象与框架一起移动。,6-4单选框复选框,一组相关的单选框必须放在一个框架中,如图所示。,用Frame将对象分组,一、框架的属性,Caption 标题，显示在框架左上角的字符 Name 对象名称 Enabled 是否有效 (true 有效 false无效) Visible 是否可见 (true 可见 false隐藏) FontBold 粗体 FontItalic 斜体 Fontname 字体名 Fontsize 字大小 FontUnderline 下画线 Height 高

13、度 Width 宽度 Left 左边矩 Top 上边矩,陈耀清摄于博鏊,6.9 焦点与TAB顺序,6.9.1 设置焦点,1.焦点: 对象接收键盘或鼠标输入的能力. 2.为对象设置焦点的方法: (1) 在运行时,单击该对象.如: 运行时单击Text1, 可使Text1获得焦点. (2) 运行时,用访问键选择该对象. (3) 在程序代码中使用SetFocus设置焦点.如以下命令可使Text1获得焦点: Text1.SetFocus 3. 对象获得焦点和失去焦点产生的事件 (1)对象获得焦点产生的事件: GotFocus (2)对象失去焦点产生的事件: LostFocus,6.9.2 Tab顺序,1. Tab顺序 :按TAB键时焦点在控件间移动的顺序。 2. 对象的Tab顺序: 在没有改变Tab顺序时,对象的Tab顺序就是对象建立的顺序。 3. 对象支持Tab顺序的条件: (1)可以接收焦点的对象,且可见、有效。 (2) Disable(禁止) Invisible(不可见) 属性可使Tab顺序不起作用。 (3) 计时器、菜单、框架、标签不支持Tab顺序。,4.