vb中如何利用水平滚动条改变textbox中字的大小 你选中文本框，在属性里找到ScrollBars，设置即可：0：无1：水平滚动条2：竖直滚动条3：水平+竖直滚动条但是前提是，你要先把MultiLine属性设置为True，才会生效。
VB中用滚动条浏览图片的代码 窗体上添加两个同样大小的Picture控件Picture1、Picture2，再添加HScrollBar滚动条，ID为HScroll1，添加VScrollBar滚动条，ID为VScroll1添加如下代码Private Sub Form_Load()Picture2.AutoSize=TruePicture2.BorderStyle=0Picture1.ScaleMode=3Picture2.ScaleMode=3HScroll1.Max=Picture2.Width-Picture1.ScaleWidthVScroll1.Max=Picture2.Height-Picture1.ScaleHeightEnd SubPrivate Sub HScroll1_Change()Picture2.Left=-HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()'实现拖动滚动条时图像即时滚动Picture2.Left=-HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Picture2.Top=-VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll()'实现拖动滚动条时图像即时滚动Picture2.Top=-VScroll1.ValueEnd Sub即可实现滚动浏览图片，其实Picture2的属性Picture设置为要浏览的图片
如何用vb软件制作滚动条改变文本框大小，本文讲的是如何利用VB编程软件制作滚动条，从而移动滚动条改变文本框的高度和大小，首先我们得有个VB编程软件，有了编程软件后通过。
vb怎么用滚动条控制text字体大小 代码是什么？ Option ExplicitPrivate Sub Form_Load()Text1.Text=\"字Text1.FontSize=7Label1.Caption=7VScroll1.Max=256VScroll1.Min=7VScroll1.Value=7End SubPrivate Sub VScroll1_Change()Text1.FontSize=VScroll1.ValueLabel1.Caption=VScroll1.ValueEnd Sub
VB6.0中滚动条的使用，VB6.0中滚动条的使用 双击工具箱中的滚动条，或者右击点一下，然后在窗体上拖曳。4 。如果本条经验对您有帮助，请在下方点个赞，领导说了，点一个赞就给。
在VB中用哪个控件可以让图片自动适应控件大小？ 窗体添加Image控件，并对其属性Stretch 为 True，将Image控件的长宽调整到你所需大小，装载的图片能自动适应控件大小.
vb 中 怎么适当设置滚动条的大小和位置 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事件只是在滚动结束之后才发生一次。
在VB中制作可滚动的图像显示，我们在制作多媒体程序时，不可避免的要涉及图像的显示，尽管VB中提供的ictureox可以显示多种格式的图像文件，但由于没有提供滚动条和缩放功能。
vb中用一个滚动条来渐变文本框中的背景颜色。 Private Sub HsbBlue_Change()Text3.BackColor=RGB(HsbRed.Value，HsbGreen.Value，HsbBlue.Value)End SubPrivate Sub HsbGreen_Change()Text2.BackColor=RGB(HsbRed.Value，HsbGreen.Value，HsbBlue.Value)End SubPrivate Sub HsbRed_Scroll()Text1.BackColor=RGB(HsbRed.Value，HsbGreen.Value，HsbBlue.Value)End Sub
