当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB窗体滚动条添加的例子

VB增加窗体滚动条的例子代码,当显示图片或一些比较多的内容时,自动显示出滚动条,这个是自定义的滚动条,可控性更灵活:

Private Sub Form_Load()
    Picture1.Left = 0 '设定图片框的初始位置
    Picture1.Top = 0
    If Picture1.Width < Form1.ScaleWidth - VScroll1.Width Then
    '禁用水平滚动条。
      VScroll1.Enabled = False
Else
      '调整水平滚动条的一些属性。
      HScroll1.Max = Picture1.Width - Form1.ScaleWidth + VScroll1.Width
      HScroll1.LargeChange = HScroll1.Max / 10
      HScroll1.SmallChange = HScroll1.Max / 100'调整水平滚动条的一些常用属性
End If
    If Picture1.Height < Form1.ScaleHeight - HScroll1.Height Then
      HScroll1.Enabled = False
    Else
      VScroll1.Max = Picture1.Height - Form1.ScaleHeight + HScroll1.Height
      VScroll1.LargeChange = VScroll1.Max / 10
      VScroll1.SmallChange = VScroll1.Max / 100'调整垂直滚动条的一些常用属性
    End If
End Sub
Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value  '水平滚动条滚动使图片框水平上反向移动
End Sub
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value  '垂直滚动条滚动使图片框垂直上反向移动
End Sub
Private Sub Form_Resize()   '当窗体的大小发生变化时发生
    VScroll1.Left = Form1.ScaleWidth - VScroll1.Width
    VScroll1.Top = 0    '垂直滚动条与窗体相对位置不变
    VScroll1.Height = Form1.ScaleHeight - HScroll1.Height  '滚动条的大小随着窗体大小的改变而改变
    HScroll1.Left = 0   '水平滚动条与窗体相对位置不变
    HScroll1.Top = Form1.ScaleHeight - HScroll1.Height
    HScroll1.Width = Form1.ScaleWidth - VScroll1.Width
    Command1.Left = VScroll1.Left   '命令按钮作水平滚动条与垂直滚动条交接处的填充
    Command1.Top = HScroll1.Top
    Command1.Width = VScroll1.Width
    Command1.Height = HScroll1.Height
 End Sub

CopyRight 2015© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图