中国教育培训首选门户&【报名电话：010-】
您现在的位置：&>&&>&考计算机
中华硕博网&WWW.CHINA-B.C0M&& 日
&&&来源：互联网
8、滚动条（ScrollBar）作用：当应用程序或控件不能自动支持滚动时，用水平和垂直的滚动条控件，为它们提供这一功能。滚动条控件有两类：
8、滚动条（ScrollBar）作用：当应用程序或控件不能自动支持滚动时，用水平和垂直的滚动条控件，为它们提供这一功能。滚动条控件有两类：水平滚动条HscrollBar、垂直滚动条VscrollBar。（1）常用属性见教材P135表5－13。经常用到的属性有：value――当前滑动块的位置在滚动条中，滚动块所处的位置可以代表一个输入值。value属性值即为体现滚动块在滚动条中位置的数值。对于水平滚动条，当滚动块处于最左边时，value取最小值Min；对于垂直波动条，当滚动块处于最顶端时，value取最小值Min。反之，则value值取最大值。在中间的各个位置，value值与位置是严格按照比例来设定的。改变滚动条value属性的方法有四种；直接在属性窗口中设定value值； 鼠标单击两端箭头键改变滚动条数值； 可将滚动框沿滚动条拖动到任意位置； 用鼠标单击滚动条中滚动块两侧的部分，使滚动块以翻页的速度移动。 value属性的缺省值为O到32，767，缺省情况下，value取0和32，767中的某个数值（包括0和32，767）。max――滚动条最大值min――滚动条最小值滚动条的value属性有取值范围的限制，取值范围由max属性和min属性设置，一般情况，max代表value的最大值，min代表value的最小值。如果希望滚动条显示的信息从较大数值向较小数值变化．可将Min设置成大于max的值。largechange――最大变化量（单击滑动块）smallchange――最小变化量（单击箭头）（2）常用事件Change事件和Scroll事件单击滚动条的滚动箭头、滚动区域或滚动条的Value属性改变时、滚动条具有焦点时再按下PageUp、Pagedown键，都可以引发Change事件和Scroll事件。两者的不同在于：单击滚动条的滚动箭头、滚动区域或拖动滚动块后，才能引发Change事件，而拖动滚动块时，就可引发Scroll事件。（3）例子例1见教材P136。界面：代码：Private Sub Form_Load（）
HScroll1。Max ＝ 50 ‘水平滚动条的最大值
HScroll1。Min ＝ 0 ‘水平滚动条的最小值
HScroll1。SmallChange ＝ 1 ‘单击水平滚动条的滚动箭头按钮而产生的变化值
HScroll1。LargeChange ＝ 10 ‘单击水平滚动区域而产生的变化值
VScroll1。Max ＝ 50 ‘垂直滚动条的最大值
VScroll1。Min ＝ 0 ‘垂直滚动条的最小值
VScroll1。SmallChange ＝ 1 ‘单击垂直滚动条的滚动箭头按钮而产生的变化值
VScroll1。LargeChange ＝ 5 ‘单击垂直滚动区域而产生的变化值End SubPrivate Sub HScroll1_Change（）
Label2。Caption ＝ HScroll1。ValueEnd SubPrivate Sub VScroll1_Change（）
Label1。Caption ＝ VScroll1。ValueEnd Sub【程序演示】
【程序下载】在上例中，将Change事件改为Scroll事件，再试一试。例2：在窗体的范围内跟踪鼠标的位置。见教材P137。在窗体上放置一个图片框、一个水平和一个垂直滚动条。界面：代码：Private Sub Form_Load（）HScroll1。Min ＝ 0VScroll1。Min ＝ 0 ‘设置滚动条的最小值HScroll1。Max ＝ 100VScroll1。Max ＝ 100 ‘设置滚动条的最大值VScroll1。Value ＝ 50HScroll1。Value ＝ 50 ‘初始化滚动块的位置End SubPrivate Sub Picture1_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）
If Y %26 Picture1。Top And Y %26 Picture1。Top + Picture1。Height Then
VScroll1。Value ＝ （Y － Picture1。Top） / （Picture1。Height）
100 ‘跟踪垂直位置（按照比例来设定）
If X %26 Picture1。Left And Y %26 Picture1。Left + Picture1。Width Then
HScroll1。Value ＝ （X － Picture1。Left） / （Picture1。Width）
100 ‘跟踪水平位置
End IfEnd SubPrivate Sub HScroll1_Change（）
Label1。Caption ＝ "X＝" %26 HScroll1。ValueEnd SubPrivate Sub VScroll1_Change（）
Label2。Caption ＝ "Y＝" %26 VScroll1。ValueEnd Sub【程序演示】
【程序下载】例3：通过单击滚动块显示一年12个月。界面：代码：Private Sub Command1_Click（）
Unload Form1End SubPrivate Sub Form_Load（）
HScroll1。Value ＝ Month（Now）
HScroll1。Min ＝ 1
HScroll1。Max ＝ 12 End SubPrivate Sub HScroll1_Change（）
Label4。Caption ＝ HScroll1。ValueEnd Sub【程序演示】
【程序下载】
相关热词搜索:
本站部分信息来源于互联网，不代表本站观点或立场，如有侵权，请来电告知，我们将及时处理VB滚动条_百度知道
就是普通的滚动而已,举个例吧,我有1个text控件,如何用滚动条控制这个TEXT控件的滚动...
提问者采纳
要用系统消息读TEXT到了第几行,与滚动条VALUE相联.
最好有代码...
明天帮你找找看看这样行不:Option ExplicitPrivate Const EM_LINESCROLL = &HB6Private Const EM_SCROLL = &HB5Private Const EM_GETLINECOUNT = &HBAPrivate Const EM_GETLINE = &HC4Private Const EM_LINELENGTH = &HC1Private Const EM_SETSEL = &HB1Private Const SB_LINEDOWN = 1Private Const SB_LINELEFT = 0Private Const SB_LINERIGHT = 1Private Const SB_LINEUP = 0Private Const SB_PAGEDOWN = 3Private Const SB_PAGELEFT = 2Private Const SB_PAGERIGHT = 3Private Const SB_PAGEUP = 2Private Const SB_RIGHT = 7Private lLineCount As LongPrivate lLineShow As LongPrivate lLineNow As LongPrivate lLinePre As LongPrivate Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form_Load()
'计算有多少行
lLineCount = SendMessage(Me.Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0)
'计算现在显示的有几行
lLineShow = Int(Me.Text1.Height / Me.TextHeight(&HELLO&))
Me.VScroll1.Max = lLineCount - lLineShowEnd SubPrivate Sub Text1_Change()
'计算有多少行
lLineCount = SendMessage(Me.Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0)
'计算现在显示的有几行
lLineShow = Int(Me.Text1.Height / Me.TextHeight(&HELLO&))
Me.VScroll1.Max = lLineCount - lLineShowEnd SubPrivate Sub VScroll1_Change()
Dim lRet As Long
lRet = SendMessage(Me.Text1.hwnd, EM_LINESCROLL, 0, ByVal (VScroll1.Value - lLinePre))
lLinePre = VScroll1.ValueEnd Sub
提问者评价
这么复杂啊?算了
其他类似问题
按默认排序
其他2条回答
Private Sub VScroll1_Change()Image1.Top = VScroll1.Value
‘滚动条控制片控件的高低，你看看吧End Sub
设置它们的Top ,Left 属性相同即可
滚动条的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb6.0中text中滚动条的用法_百度知道
vb6.0中text中滚动条的用法
我建立文本框每点击按钮都换行增加显示数据我想要数据超文本框度用滚条调节显示数据我没用滚条新手哪位高手能帮助我啊~
提问者采纳
MultiLine 属性行ScrollBars 属性返或设置值该值指示象水平滚条垂直滚条运行读语object.ScrollBarsobject 所处代表象表达式其值应用于列表象设置值于 MDIForm 象ScrollBars 属性设置值：设置值 描述 True （缺省值）窗体水平滚条或垂直滚条或两者都 False 窗体没滚条 于 TextBox 控件ScrollBars 属性设置值：数 设置值 描述 VbSBNone 0 （缺省值） VbHorizontal 1 水平 VbVertical 2 垂直 VbBoth 3 两种 说明于 ScrollBars 属性设置值 1（水平）、2（垂直）、或 3（两种） TextBox 控件必须 MultiLine 属性设置 True运行Microsoft Windows 操作环境自实现标准键盘界面允许 TextBox 控件使用箭键（箭、箭、左箭、右箭）、HOME
END 键等定位滚条象内容超象边框才显示象例 MDIForm 象窗体部隐藏父 MDI 窗体边框水平滚条（HScrollBar 控件）显示该情况例外总显示滚条 TextBox 控件 ScrollBars 设 False象没滚条管其内容何
提问者评价
其他类似问题
按默认排序
其他2条回答
text1.multiline = truetext1.scrollbars = 2或者选文本框右角属性页设置
把text1的mulitline属性改为true，scrollbars设为2就行了
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB滚动字幕：&br/&要求 字幕从左到右移动到窗体边缘消失，再从右到左出现。 。。。
VB滚动字幕：要求 字幕从左到右移动到窗体边缘消失，再从右到左出现。 。。。
VB滚动字幕：&& 控件有 command1=左移& command2=右移 command3=停止& timer1&语句如下：Dim a% '定义a为整形 同等于 Dim a as Integer
Private Sub Command1_Click()a = 1Timer1.Enabled = True '启动定时器End Sub
Private Sub Command2_Click()a = 2Timer1.Enabled = True '启动定时器End Sub
Private Sub Command3_Click()Timer1.Enabled = FalseEnd Sub
Private Sub Timer1_Timer() 'If……Then……语句If a = 1 ThenIf Label1.Left + Label1.Width & 0 Then '标签1窗体左侧距离+标签1的宽度&0Label1.Left = Label1.Left - 50ElseLabel1.Left = Me.Width '标签1左侧的距离=窗体的宽度 同等于 label1.left = form1.widthEnd IfElseIf Label1.Left + Label1.Width & Me.Width Then '标签1窗体左侧距离+标签1的宽度&窗体1的宽度Label1.Left = Label1.Left + 50ElseLabel1.Left = 0 - Me.Left '标签1左侧的距离 = 窗体1右侧的距离End IfEnd IfEnd Sub&我没觉得我语句哪出毛病了！但是问题是【标签1】的字幕无法依次从左到右消失，再从右向左出现，还没消失完就在右侧出现字幕了，求教！！&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 在此，向所有关注过我问题的朋友们说声： &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 谢谢！
'这不知是不是你想要达到的效果Dim a As IntegerPrivate Sub Command1_Click()a = 1Timer1.Enabled = True '启动定时器End Sub
Private Sub Command2_Click()a = 2Timer1.Enabled = True '启动定时器End Sub
Private Sub Command3_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd Sub
Private Sub Timer1_Timer() 'If……Then……语句If a = 1 ThenIf Label1.Left + Label1.Width & 0 Then&& '标签1窗体左侧距离+标签1的宽度&0Label1.Left = Label1.Left - 50ElseLabel1.Left = -Label1.Width '标签1左侧的距离=窗体的宽度 同等于 label1.left = form1.widtha = 2End IfElseIf Label1.Left &= Me.Width Then&& '标签1窗体左侧距离+标签1的宽度&窗体1的宽度Label1.Left = Label1.Left + 50ElseLabel1.Left = Me.Width& '标签1左侧的距离 = 窗体1右侧的距离a = 1End IfEnd IfEnd Sub
谢谢LS解答。不过不是我要的效果耶- -！ 字幕并不是从左到右，再从右到左循环滚动的。
&注意：有两个命令。
&&&&&&&& &一个是【左移】 字幕从左到右，一直到窗体的最左侧，然后再从窗体的最右侧出现…………
&&&&&&&&&&& 循&环。
&&&&&&&&& 一个是【右移】 同【左移】
'不知这个可否？Dim a As IntegerPrivate Sub Command1_Click()a = 1Timer1.Enabled = True '启动End Sub
Private Sub Command2_Click()a = 2Timer1.Enabled = True '启动定时器End Sub
Private Sub Command3_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd Sub
Private Sub Timer1_Timer() 'If……Then……语句If a = 1 ThenIf Label1.Left + Label1.Width & 0 Then&& '1窗体左侧距离+标签1的&0Label1.Left = Label1.Left - 50ElseLabel1.Left = Me.Width '标签1左侧的距离=窗体的宽度 同等于 label1.left = form1.widthEnd IfElseIf Label1.Left &= Me.Width Then&& '标签1窗体左侧距离+标签1的宽度&窗体1的宽度Label1.Left = Label1.Left + 50ElseLabel1.Left = -Label1.Width& '标签1左侧的距离 = 窗体1右侧的距离End IfEnd IfEnd Sub
太谢谢你咯，这个就OK了。
再请教个问题：“Label1.Left = -Label1.Width& '1左侧的距离 = 窗体1右侧的距离”中
&& -Label1.width是代表的什么？
老师弄的一个综合试题，其中有个类似的，我问的就是他以前说的，以前做的笔记没弄好。。。
相关知识等待您来回答
编程领域专家热门搜索：
热门专题：
vb 滚动条 怎么用
提问者：| 浏览次数：3486次 |问题来自：全国
输入内容已经达到长度限制
您还可以输入<span class="f20" id="maxtip_answerask_00字
验证码错误
回答 共1条
14:39|来自：全国
使用 HScrollBar 和 VScrollBar 控件有了滚动条，就可在应用程序或控件中水平或垂直滚动，相当方便地巡视一长列项目或大量信息。滚动条是 Windows 95 和 Windows NT 界面上的共同元素。图 7.24
HScrollBar 和 VScrollBar 控件水平、垂直滚动条控件不同于 Windows 中内部的滚动条或 Visual Basic 中那些附加在文本框、列表框、组合框或 MDI 窗体上的滚动条。无论何时，只要应用程序或控件所包含的信息超过当前窗口（或者在 ScrollBars 属性被设置成 True 时的文本框和 MDI 窗体）所能显示的信息，那些滚动条就会自动出现。在较早的 Visual Basic 版本中，通常用滚动条作为输入设备。但目前的 Windows 界面指南则建议用滑块取代滚动条作为输入设备。Visual Basic 专业版和企业版都包括 Windows 95 的滑块控件。滚动条在 Visual Basic 中仍然有价值，因为它为那些不能自动支持滚动的应用程序和控件提供了滚动功能。关于使用滚动条的信息，请参阅“Scroll Bar 控件方案：创建可滚动的图形视口”。Scroll Bar 控件如何工作滚动条控件用 Scroll 和 Change 事件监视滚动框（有时用拇指替代）沿滚动条的移动。事件 描述 Change 在滚动框移动后发生。 Scroll 在移动滚动框时发生。在单击滚动箭头或滚动条时不发生。 可用 Scroll 事件访问滚动条被拖动后的数值。在释放滚动框或单击滚动条或滚动箭头时，Change 事件就会发生。Value 属性 Value 属性（缺省值为 0）是一个整数，它对应于滚动框在滚动条中的位置。当滚动框位置在最小值时，它将移动到滚动条的最左端位置（水平滚动条）或顶端位置（垂直滚动条）。当滚动框在最大值时，它将移动到滚动条的最右端或底端位置。同样，滚动框取中间数值时将位于滚动条的中间位置。除了可用鼠标单击改变滚动条数值外，也可将滚动框沿滚动条拖动到任意位置。结果取决于滚动框的位置，但总是在用户所设置的 Min 和 Max 属性之间。注意 如果希望滚动条显示的信息从较大数值向较小数值变化，可将 Min 设置成大于 Max 的值。LargeChange 和 SmallChange 属性为了指定滚动条中的移动量，对于单击滚动条的情况可用 LargeChange 属性，对于单击滚动条两端箭头的情况可用 SmallChange 属性。滚动条的 Value 属性增加或减少的长度是由 LargeChange 和 SmallChange 属性设置的数值。要设置滚动框在运行时的位置，可将 Value 属性设为 0 到 32,767 中的某个数值（包括 0 和 32,767）。
登录并提交回答
登录回答可获积分奖励
还没有账号？
如果您发现不正当的内容或行为，请及时联系我们！
举报内容：
举报原因：
（可多选）
含有反动的内容
含有人身攻击的内容
含有广告性质的内容
涉及违法犯罪的内容
含有违背伦理道德的内容
含色情、暴力、恐怖的内容
含有恶意无聊灌水的内容
Copyright &
Fang Holdings Limited, All Rights Reserved
搜房公司 版权所有
举报电话：010- 举报邮箱：