189 8069 5689
将RTF的Padding设置比较大，例如10，此时我发现鼠标移动到RTF的边缘部分的时候（不超过Padding的范围），滚动条就能够显示，一旦鼠标移动到Content里面的时候，滚动条就不显示
专注于为中小企业提供网站建设、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业常州免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
1、滚动条分为水平滚动条（HSCROLLBAR）和垂直滚动条(VSCROLLBAR)两种，可以作为输入设备或者速度、数量的指示器来使用.
2、基本属性：object.max[=value],object.min[=value],最大最小范围 object.value[=value],
建立滚动条的方法如下：
（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上，单击鼠标左键。
（2）将指针移至窗体中适当的位置，按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键。
（3）同样，再在Form上设置一个VscrollBar控件。
Private Sub Form_Load()
Me.Caption = "改变字号"
HScroll1.Min = 12
HScroll1.Max = 72
Label1.Caption = "心想事成"
End Sub
Private Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value
End Sub
Private Sub Text1_Change()
If Len(Text1.Text) 2 Then
Text1.Text = Left(Text1.Text, 2)
End If
If Val(Text1) = 12 And Val(Text1) = 72 Then
Label1.FontSize = Val(Text1.Text)
End If
End Sub
vb适当设置滚动条的大小和位置通过以下参数实现：
说明；滚动条控件（ScrollBar）分为水平滚动条（HScrollbar）和垂直滚动条（VscrollBar）二种，通常附在窗体上协助观察数据或确定位置，也可用作数据输入工具，用来提供某一范围内的数值供用户选择。
1、属性
(1) Value
滑块所处位置所代表的值。
(2) Max：最大值
-32,768~32,767
(3) Min：最小值
-32,768~32,767
(4) SmallChange
最小变动值，
单击箭头时移动的增量值。
(5) LargeChange
最大变动值，单击空白处时移动的增量值。
2、事件：
1）Change事件
滚动条的Change事件在移动滚动框或通过代码改变其Value属性值时发生。单击滚动条两端的箭头或空白处将引发Change事件。
（2）Scroll事件
当滚动框被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。
Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。
思路：
利用几个可以作为容器的控件，添加滚动条就可以了：
我举个例子：（这个问题我记得回答过的！）
添加1个PicTureBox1，作为容器
在PicTureBox1里添加PicTureBox2，在窗体上添加一个垂直滚动条。
把你所谓的许多控件放到PicTureBox2里，滚动条改变的是PicTureBox2在PicTureBox1里的Top属性，我想你通过一定的空间想象力，可以想到效果了吧？
注意：默认状态设置PicTureBox2的Top属性为0，当该属性为负值的时候，PicTureBox2显示的效果是向上移动，即下面原来隐藏的内容为可见了。
要设置PicTureBox2的AutoRedraw 属性为True。
若要左右移动效果，那么改变其 Left 属性，原理不再赘述了。