Question

VB 程序 求解 已知picture1的高是4500，宽是7500，让image1在picture1随机移动

timer1已做好
Private Sub Timer1_Timer()
VB 程序 求解 已知picture1的高是4500，宽是7500，让image1在picture1里面随机移动

Answer 1

l=rnd*(4500-image1.width)
t=rnd*(7500-image1.height)
image1.mvoe l,t

追问

不对啊，只能在右边动，甚至还可能超出pictrue1的范围

追答

dim L as integer,T as integer
L=rnd*(picture1.scalewidth-image1.width)
T=rnd*(picture1.scaleheight-image1.height)
image1.move L,T
怎么能超范围呢？