我自己下载了个滚动条的控件,但是不知道如何使用。如何才能用滚动条来控制文字页面的上下翻动?也不知道这样问对不对,我是新手请大家多多包涵!!祝大家学习快乐!!

解决方案 »

  1.   

    为你提供一个变化的数值在窗体加一个VScrollPrivate Sub VScroll1_Change()
        Me.BackColor = VScroll1.Value
    End Sub
      

  2.   

    1、滚动条分为水平滚动条(HSCROLLBAR)和垂直滚动条(VSCROLLBAR)两种,可以作为输入设备或者速度、数量的指示器来使用.2、基本属性:object.max[=value],object.min[=value],最大最小范围             object.value[=value],用来返回你滑动滚动条时所在位置对应的值3、基本方法 drag            用于空间的开始、结束火取消拖动操作
               move            移动控件
               setfocus        将焦点移动至指定的控件
               refresh         强制重绘控件
               zorder          将控件放置在其图层的z-顺序的前端或者后端
    4、基本事件  change         
                dragdrop
                dragover
                gotfocus
                lostfocus
                keydown
                keyup
                keypress
                scroll
    具体的可以看MSDN
      

  3.   

     LZ是自己下载的滚动条, 应该不是控件库里的标准ScrollBar吧.
      LZ应该阅读随控件一起发布的说明文档或者Demo代码, 如果都没有的话在引用了这个控件的VB环境中按F2, 查看控件提供的方法及属性..
      

  4.   

    Private Sub Form_Load()
    Form1.WindowState = 2
    Label5.Left = (Screen.Width - Label5.Width) / 2
    Text1.Text = 0
    Text2.Text = 0
    Text3.Text = 0
    End SubPrivate Sub HScroll1_Change()
    HScroll1.Max = 255
    HScroll1.Min = 0
    Label1.BackColor = RGB(HScroll1.Value, 0, 0)
    Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text1.Text = HScroll1.Value
    Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text4.Text = "Color"
    End Sub
    Private Sub HScroll2_Change()
    HScroll2.Max = 255
    HScroll2.Min = 0
    Label2.BackColor = RGB(0, HScroll2.Value, 0)
    Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text2.Text = HScroll2.Value
    End Sub
    Private Sub HScroll3_Change()
    HScroll3.Max = 255
    HScroll3.Min = 0
    Label3.BackColor = RGB(0, 0, HScroll3.Value)
    Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
    Text3.Text = HScroll3.Value
    End Sub