VB滚动条如何控制浏览图片 vb滚动条控制多个按钮

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 Subvb滚动条的使用 工具/原料 visual basic6.0 方法/步骤 新建一个工程，调整好软件的界面大小。给界面里面添加一个图片。如图2，把它画到界面里面，如图3， 。画到界面里面，就像这样。。vb 滚动条控制图片移动快慢按钮开始停止 简单。添加两个Picturebox，Picture2放在Picture1里面。添加一个时间timer和两个textbox，text1是时间速度，text2是移动距离。再加三个commandbutton，为command1.command2.command3然后复制代码自己调试。Picture1和Picture2的边框去掉然后图片自己加。Private Sub Command1_Click()Timer1.Interval=Abs(Text1.Text)End SubPrivate Sub Command2_Click()Picture2.Left=-Picture1.WidthEnd SubPrivate Sub Command3_Click()If Command3.Caption=\"开始\"ThenTimer1.Enabled=TrueCommand3.Caption=\"停止ElseTimer1.Enabled=FalseEnd IfEnd SubPrivate Sub Form_Load()Command1.Caption=\"变速Command2.Caption=\"重来Command3.Caption=\"开始Picture2.Width=300Picture2.Left=-Picture2.WidthEnd SubPrivate Sub Timer1_Timer()Picture2.Left=Picture2.Left+Abs(Text2.Text)If Picture2.Left>；=Picture1.Width Then Picture2.Left=-Picture2.WidthEnd Sub求高手指点，vb编程字母移动可以通过滚动条调节滚动速度，两个单选按钮控制左右移动方向。不胜感激！ Dim x As LongPrivate Sub Form_Load()Option1.Value=1HScroll1.Max=500HScroll1.Min=0HScroll1.SmallChange=10HScroll1.LargeChange=50Timer1.Interval=100Label1.Caption=\"AEnd SubPrivate Sub HScroll1_Change()Dim s As Integers=IIf(x=0，1，Sgn(x))x=HScroll1.Value*sEnd SubPrivate Sub Option1_Click()x=Abs(x)End SubPrivate Sub Option2_Click()x=-xEnd SubPrivate Sub Timer1_Timer()Label1.Left=Label1.Left+xIf Label1.Left(x)If Label1.Left+Label1.Width>；Me.Width Then x=-xEnd Subvb水平滚动滑条的按钮是哪个 在窗体中增加控件：HScrollBar，就可以实现水平滚动条控制了.我用的是VB6哦.vb滚动条，怎么用？ MultiLine 属性多行 ScrollBars 属性 返回或设置一个值，该值指示一个对象是有水平滚动条还是有垂直滚动条。在运行时是只读的。语法 object.ScrollBars object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。设置值 对于 MDIForm 对象，ScrollBars 属性的设置值为：设置值 描述 True（缺省值）窗体有一个水平滚动条或垂直滚动条，或两者都有。False 窗体没有滚动条。对于 TextBox 控件，ScrollBars 属性的设置值为：常数 设置值 描述 VbSBNone 0（缺省值）无 VbHorizontal1 水平 VbVertical2 垂直 VbBoth3 两种 说明 对于 ScrollBars 的属性设置值为 1（水平）、2（垂直）、或 3（两种）的 TextBox 控件，必须将 MultiLine 属性设置为 True。在运行时，Microsoft Windows 操作环境自动地实现一个标准键盘界面以允许在 TextBox 控件中使用箭头键（上箭头、下箭头、左箭头、和右箭头）、HOME 和 END 键等来定位。滚动条只在对象的内容超过对象的边框时才被显示在对象上。例如，在 MDIForm 对象中，如果子窗体的一部分被隐藏在父 MDI 窗体的边框之后，那么一个水平滚动条（HScrollBar 控件）将被显示。该情况的例外是总显示滚动条的 TextBox 控件。如果 。vb 滚动条 怎么用 1、新建一个工程，调整好软件的复界面大小。2、给界面里面制添加一个图片。3、然后点击滚动条。画到百界面里面，就像这样。这样界面就构建好了。4、接下度来给图片空间问添加图片，拉动右边的滚动条，找到picture。5、在picture右边的按钮给他添加图片。6、拉动滚动条，找到autoredraw，和autosize进行设置。7、在右上角选择答scroll，输入相应代码。8、运行一下。

#窗体#sub#滚动条