vb课件vb第5章幻灯片.pptVIP

* Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth – _ Shape1.Width HScroll1.LargeChange = (Picture1.ScaleWidth – _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth – _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight – Shape1.Height VScroll1.LargeChange = (Picture1.ScaleHeight – _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight – _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0 End Sub * Private Sub HScroll1_Change() Shape1.Left = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Shape1.Left = HScroll1.Value End Sub Private Sub VScroll1_Change() Shape1.Top = VScroll1.Value End Sub Private Sub VScroll1_Scroll() Shape1.Top = VScroll1.Value End Sub * 5.8 ActiveX控件 向工具箱中添加ActiveX控件的操作步骤: 工程—— 部件—— 控件 5.6.1 选项卡控件（SSTab） 选项卡是一个容器控件，用来设计含有多个选项卡的界面。 Microsoft Tabbed Dialog Control 6.0 例题：见教材 P93。 5.6.2滑动器控件 滑动器（Slider）是Windows公共控件之一。 在部件对话框选择Microsoft Windows Common Control 6.0 , 将9个Windows公共控件添加到工具箱中。 * 属性： 除与滚动条类似的Max、Min、LargeChange、SmallChange、Value，还有如下属性： 1.Orientation:滑动器的排列方向，0为水平方向，1为垂直方向。 2.TickStyle:设置滑动器上所显示的标志类型，0~4 3.TickFrequency:设置滑动器上标记的增量值。 标记个数=(Max-Min)/TickFrequency 4.BorderStyle:设置滑动器的边框类型。 0-None 无边框 1-Fixed Single 单线边框 例题见教材 P95 * 5.6.3进度条(ProgressBar) 作用：显示较长操作的进度。 属性： Align:进度条位于窗体的位置，0~4。 Height、决定进度条中小方块的大小和数量。为了增加小方块的数量可减少Height或增加Width的值。 BorderStyle、Max、Min、Value 例题：教材P95 在窗体上显示用计时器控件控制进度条的进度。 * Private Sub Form_Load() Timer1.Interval = 1000 ProgressBar1.Height = 200 End Sub Private Sub Timer1_Timer() Static counter As Integer Counter=counter + 1 Beep ProgressBar1.Value = counter End Sub * 5.7 焦点和Tab键序 5.7.1 设置焦点 当前可以接收用户输入的对象称为具有焦点。 注意: 并非所有控件都可以接收焦点。而且, 只有Enable和Visible属性为True时，才可以接收焦点。 事件 GotFocus 发生在对象得到焦点时