yhkn.net
当前位置:首页 >> vB滚动条移动 >>

vB滚动条移动

滚动条(以横向为例)向右移动10个单位:HScroll1.Value = HScroll1.Value + 10向左移动50个单位:HScroll1.Value = HScroll1.Value - 50

Private Sub Form_Click() '添加一个水平滚动条,运行然后点击窗口就可以看到效果 Dim i As Integer HScroll1.Max = 30000 HScroll1.Min = 1 For i = 1 To 30000 HScroll1.Value = i '给value赋值就可以移动了 DoEvents NextEnd Sub 如果是控制文本框的滚动条,那么用下面的方法Text1.SelStart = Len(Text1.Text)

要让这个滚动条的滑块移动,用:HScroll1.Value = XXX或VScroll1.Value = XXX要让整个滚动条的位置移动,用 Move 方法.

让VB滚动条控件跟着鼠标滚轴移动的方法;1、滚动条分为水平滚动条(HSCROLLBAR)和垂直滚动条(VSCROLLBAR)两种,可以作为输入设备或者速度、数量的指示器来使用.2、基本属性:object.max[=value],object.min[=value] 最大最小

'画一个 timer控件 一个滚动条Dim check As BooleanPrivate Sub Form_Load()HScroll1.Max = 100HScroll1.Value = 0Timer1.Interval = 100Timer1.Enabled = Truecheck = TrueEnd SubPrivate Sub Timer1_Timer()If check = True ThenHScroll1.Value

1、VB中让文本框滚动条滚动,首先要设置文本框的属性值Mutiline属性为true;2、其次,设置文本框的Scrollbars的属性为Vertical(表示垂直滚动条)或者Horizontal(表示水平滚动条);3、将文本框赋值后,当文本框的内容大于当前文本框显示内容时,文本框滚动条便会显示可用状态,这时点击滚动条两侧箭头可以使滚动条滑动,或者鼠标左键按住中间的滚动条进行滑动.4、也可以单击鼠标左键,将鼠标点中文本框,滚动鼠标滑轮,也可以使文本框滚动条滚动.

刚刚看见一条知识,可以用timer和制件遍历窗体上控制,实现top值的同步改变即可.

Label1.Left = HScroll1.Value将HScroll1设置成你需要的Label1的移动范围就可以了.

Private Sub HScroll1_Scroll()Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub'一定要在窗体上放入三个滚动条Hscroll控件和一个标签Label1控件,每个控件的最小最大值0-255

看你的图片,你没有必要使用text控件,完全可以使用list控件当然两个list的数量最好一样多Option ExplicitPrivate Sub Form_Load()Dim iFor i = 1 To 20List1.AddItem "aa" & iList2.AddItem "bb" & iNext iEnd SubPrivate Sub List2_Scroll()List1.TopIndex = List2.TopIndexEnd Sub单击list2的滚动条,list1的滚动条也跟着移动

网站首页 | 网站地图
All rights reserved Powered by www.yhkn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com