VB滚动条控件如何使用? 我自己下载了个滚动条的控件,但是不知道如何使用。如何才能用滚动条来控制文字页面的上下翻动?也不知道这样问对不对,我是新手请大家多多包涵!!祝大家学习快乐!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 为你提供一个变化的数值在窗体加一个VScrollPrivate Sub VScroll1_Change() Me.BackColor = VScroll1.ValueEnd Sub 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 LZ是自己下载的滚动条, 应该不是控件库里的标准ScrollBar吧. LZ应该阅读随控件一起发布的说明文档或者Demo代码, 如果都没有的话在引用了这个控件的VB环境中按F2, 查看控件提供的方法及属性.. Private Sub Form_Load()Form1.WindowState = 2Label5.Left = (Screen.Width - Label5.Width) / 2Text1.Text = 0Text2.Text = 0Text3.Text = 0End SubPrivate Sub HScroll1_Change()HScroll1.Max = 255HScroll1.Min = 0Label1.BackColor = RGB(HScroll1.Value, 0, 0)Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)Text1.Text = HScroll1.ValueText4.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)Text4.Text = "Color"End SubPrivate Sub HScroll2_Change()HScroll2.Max = 255HScroll2.Min = 0Label2.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.ValueEnd SubPrivate Sub HScroll3_Change()HScroll3.Max = 255HScroll3.Min = 0Label3.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.ValueEnd Sub 艺术足球使德国止步:西班牙1:0胜德国!! 枚举USB设备的创建时间和最近插拨时间 动态创建菜单,如何获取该菜单的点击?急!马上给分! 关于ScriptControl的使用!请指教!谢谢 vb中过程的区别 跪求VB大神写个数据拆分系统 关于Timer控件,高分求助. 关于读取天平称数据的问题,在线等! 使用多窗口浏览器打开多个网页,如何获取当前激活页的url地址。 如何提高数据库查找速度? 如何让MSHFlexGrid 只合并指定的两个单元格? vb何时能被淘汰
Me.BackColor = VScroll1.Value
End Sub
move 移动控件
setfocus 将焦点移动至指定的控件
refresh 强制重绘控件
zorder 将控件放置在其图层的z-顺序的前端或者后端
4、基本事件 change
dragdrop
dragover
gotfocus
lostfocus
keydown
keyup
keypress
scroll
具体的可以看MSDN
LZ应该阅读随控件一起发布的说明文档或者Demo代码, 如果都没有的话在引用了这个控件的VB环境中按F2, 查看控件提供的方法及属性..
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