泉水代码.txt

一个简单的模拟喷泉的VB代码

option explicit
dim i as integer                                    '定义变量
private sub form_load()                             '下面代码实现图像框img2居中显示
img2.left = (scalewidth - img2.width)/2
img2.top = (scaleheight - img2.height)/2
end sub
private sub timer1_timer()
if i = 10 then i = 0                                '如果变量i为10，则i为0
i = i + 1                                           '变量i不断变化
select case i                                       '将i作为测试表达式
case 0                                              'i为0时
img2.picture = img1(1).picture                      '将索引为1的图像框中的图片赋给img2
img1(1).left = img2.left                            '图像框img1(1)与img2的水平位置相同
img1(1).top = img2.top                              '图像框img1(1)与img2的垂直位置相同
case 1
img2.picture = img1(2).picture
img1(2).left = img2.left
img1(2).top = img2.top
case 2
img2.picture = img1(3).picture
img1(3).left = img2.left
img1(3).top = img2.top
case 3
img2.picture = img1(4).picture
img1(4).left = img2.left
img1(4).top = img2.top
case 4
img2.picture = img1(5).picture
img1(5).left = img2.left
img1(5).top = img2.top
case 5
img2.picture = img1(6).picture
img1(6).left = img2.left
img1(6).top = img2.top
case 6
img2.picture = img1(7).picture
img1(7).left = img2.left
img1(7).top = img2.top
case 7
img2.picture = img1(8).picture
img1(8).left = img2.left
img1(8).top = img2.top
case 8
img2.picture = img1(9).picture
img1(9).left = img2.left
img1(9).top = img2.top
case 9 
img2.picture = img1(10).picture
img1(10).left = img2.left
img1(10).top = img2.top
end select
end sub