妖娆成精番外四:有个VB的编程问题需要求教,是关于滚动条的!~

来源:百度文库 编辑:高校问答 时间:2024/04/28 01:10:31
在窗体上添加一个水平滚动条和一个图片框,用滚动条使图片框的大小。请问怎么编程啊?偶只是VB初学者,好心人帮帮偶啦~
不好意思~打错字啦~是"用滚动条调节图片框的大小"
还有,滚动条是在图片框原来的大小上进行调节。
谢谢有好心人回答,但是,我要恰强调的是:我说的不是图像框,而是图片框~谢谢!~

要把iamge控件stretch设为true,意思是使图片适合控件image的大小,然后用滚动条调整image的长和宽就可以了!注意设好滚动条的min和max!
Private Sub VScroll1_Change()
Image1.Width = VScroll1.Value
Image1.Height = VScroll1.Value
End Sub

Picture1 = LoadPicture("e:\1.jpg") '图片的存放路径
Picture1.AutoSize = True
HScroll1.Max = 5000
HScroll1.Min = 100
End Sub

Private Sub HScroll1_Change()
Picture1.Width = HScroll1.Value
Picture1.Height = HScroll1.Value
End Sub