vb滚动条控制图片滚动速度 用滚动条控制计时器间隔不就行了
VB中如何用滚动条控制图片的缩放？ Private Sub Form_Load()Image1.Stretch=TrueHScroll1.Max=3000HScroll1.LargeChange=100HScroll1.Value=1500End SubPrivate Sub HScroll1_Change()Image1.Height=HScroll1.ValueImage1.Width=HScroll1.ValueEnd Sub
vb2010滚动条怎么控制图片移动？ 图片滚动代码(从右向左滚动)要滚动的图片地址1\">；要滚动的图片地址2\">；图片滚动代码(从下往上滚动)()\"onMouseOut=\"this.start()\"align=center direction=up scrollamount=1 scrolldelay=3 valign=middle behavior=\"scroll\">；要滚动的图片地址1\">；要滚动的图片地址2\">；如果你在QQ空间用的话，可能不行，因为现在的QQ空间不给用代码了，应用到网页中是可以的.
VB滚动条如何控制浏览图片 '加入两个Picture控件，picture2放在picture1里面，picture2用来'加载图片，加入一个水平滚动条和一个垂直滚动条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 VScroll1_Change()Picture2.Top=-VScroll1.ValueEnd Sub
VB中如何用滚动条控制图片的缩放？ Private Sub Form_Load()Image1.Stretch=True HScroll1.Max=3000 HScroll1.LargeChange=100 HScroll1.Value=1500 End Sub Private Sub HScroll1_Change()Image1.Height=。
VB如何使用滚动条控制图片高度
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
