在vb中，如何编程能使文本框中实时显示滚动条的位置
VB中如何用滚动条控制形状大小 以下代抄码2113用到的5261控4102件：1653shape1 hscroll1 vscroll1Private Sub Form_Load()VScroll1.Min=10VScroll1.Max=1000VScroll1.Value=500HScroll1.Min=10HScroll1.Max=1000HScroll1.Value=500End SubPrivate Sub HScroll1_Change()Shape1.Width=HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd SubPrivate Sub VScroll1_Change()Shape1.Height=VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll()VScroll1_ChangeEnd Sub
在VB中如何用滚动条控制文本框的大小？？？急！！！ Private Sub HScroll1_Change()HScroll1.Min=0HScroll1.Max=10000Text1.Width=HScroll1.ValueEnd Sub
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 滚动条来控制下雪时间的长短呢？例如我设置min=0，max=60，当移动到15秒时，雪就在15秒时停止？
VB中如何用滚动条控制图片的缩放？ 加个picture控件，水平滚动条Dim tempx，tempyPrivate Sub Command1_Click()File1.Path=Text1File1.Pattern=\"*.jpg；bmpEnd SubPrivate Sub File1_Click()a=File1.Path&\"\\\"&File1.FileNamePicture1.Picture=LoadPicture(a)tempx=Picture1.Widthtempy=Picture1.HeightEnd SubPrivate Sub HScroll1_Change()Picture1.Picture=LoadPicture(\"\")Call daxiao(HScroll1.Value，HScroll1.Value)Picture1.Width=HScroll1.Value+tempxPicture1.Height=HScroll1.Value+tempyEnd SubPrivate Sub daxiao(x As Double，y As Double)With LoadPicture(File1.Path&\"\\\"&File1.FileName)Render Picture1.hDC，0，0，y，x，0，.Height，.Width，-.Height，0End WithEnd Sub
vb滚动条如何设置（程序代码） Private Sub Form_Load()HScroll1.Value=200 '定义初始值Timer1.Interval=HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()If Label1.Left+Label1.WidthLabel1.Left=Label1.Left=300ElseLabel1.Left=0End IfTimer1.Interval=HScroll1.ValueEnd Sub你调试一下吧，我没VB给你调试，有问题留言
