我想请教一个VB方面的问题!

madworld 2007-12-23 08:17:40
Static a, b, s
s = s + 1
If s = 1 Then
a = Image1.Width
Image1.Width = a
b = Image1.Height
Image1.Height = b
Else
Image1.Width = a
a = Image1.Width
Image1.Height = b
b = Image1.Height
End If
Image1.Width = a + HScroll1.Value
Image1.Height = b + HScroll1.Value
End Sub
大家看这段代码,其中选择语句里的a = Image1.Width
Image1.Width = a
else
Image1.Width = a
a = Image1.Width
end if
我怎么就是看不懂什么意思,有谁能指点指点我吗?
...全文
42 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
CrazyNPC 2007-12-23
其实我感觉。这个程序根本没有必要那么写,你是在哪看到的程序?这个程序运行的时候a和b始终保存的都是原来图片的宽度和高度,你考虑考虑是不是。第一次执行的时候把图片原始宽度,高度给a和b然后又把刚分别给a和b的值重新给了宽度和高度,然后执行下面的
Image1.Width=a+Scroll1.Value
Image1.Height=b+HScroll1.Value
当第2次执行的时候s=s+1那么s<>1了,那么就执行
Image1.Width=a
a=Image1.Width
Image1.Height=b
b=Image1.Height
这个他是先把静态变量a和b中的值先分别给宽度和高度,然后再把改回原来宽度和高度又重新给了a和b然后又是
Image1.Width=a+Scroll1.Value
Image1.Height=b+HScroll1.Value
执行后a和b中保存的值不还是没变么,以后执行不也是这个意思么。你看看是这个事不,也许我分析错了。现在晚上头脑比较晕,你考虑考虑
回复
那你去掉 再试试看
回复
madworld 2007-12-23
那为什么在IF THEN里面还要Image1.Width = a
a = Image1.Width
这样反复表示呢
回复
CrazyNPC 2007-12-23
a的值不变但图片的宽度是变的啊就这句代码Image1.Width=a+HScroll1.Value
回复
madworld 2007-12-23
那A的值不变,图像怎么改变大小呢????
回复
CrazyNPC 2007-12-23
你问的那个选择语句中的意思是说
当该程序段第一次运行的时候就把图片的原始宽度初始化给了a,以后执行的时候都是用原来图片的大小再加上滚动条的value
其实a中的值一直都没变,你看看是不.
b的情况和a一样
回复
东方之珠 2007-12-23
像是图像浏览器的代码,但是我看不懂。
回复
东方之珠 2007-12-23
像是图像浏览器的代码,但是我看不懂。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告