您所在位置：主题：菜鸟请教图片框和滚动条的代码
大懒猫
[专家分：220] 发布于 2008-11-10 12:05:00
窗体上有一个图片框、一个滚动条、一个“退出”命令按钮。在图片框中装入一个图片，通过单击滚动条的操作改变图片框的大小。滚动条的变化范围为0--10。每点击一次滚动条右边或左边的按钮时，图片框增加或缩小的尺寸为30twip。
Private Sub Form_Load()
HScroll1.Max = 500
HScroll1.SmallChange = 20
End Sub
Private Sub HScroll1_Change()
X = 2055
Y = 1815
Picture1.Width = X + HScroll1.Value
Picture1.Height = Y + HScroll1.Value
End Sub
好象能够完成题目要求。但是：
问题1：“滚动条的变化范围为0--10”和“图片框增加或缩小的尺寸为30twip”的效果没有做出来呀！怎么做呢？
问题2：为什么要用X和Y设成定值呀？不能Picture1.Width = picture1.width + HScroll1.Value
Picture1.Height = picture1.height + HScroll1.Value吗？为什么？（自己试了的，用这两行不行，但不明就里）
谢谢指点！[em10]
Private Sub Form_Load()
HScroll1.Max = 500
HScroll1.SmallChange = 20
End Sub
Private Sub HScroll1_Change()
X = 2055
Y = 1815
Picture1.Width = X + HScroll1.Value
Picture1.Height = Y + HScroll1.Value
End Sub
好象能够完成题目要求。但是：
问题1：“滚动条的变化范围为0--10”和“图片框增加或缩小的尺寸为30twip”的效果没有做出来呀！怎么做呢？
问题2：为什么要用X和Y设成定值呀？不能Picture1.Width = picture1.width + HScroll1.Value
Picture1.Height = picture1.height + HScroll1.Value吗？为什么？（自己试了的，用这两行不行，但不明就里）
谢谢指点！[em10]
