窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动 300twip。请在程序空白处填入适当内容使程序完整。 Private Sub

admin2010-09-11  30

问题 窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动 300twip。请在程序空白处填入适当内容使程序完整。

   Private Sub Form_Load()
       PicturePicture = LoadPicture("c:\My Documents\图片\Qian1_Icon0ico")
       ______
   End Sub
   Private Sub Timer1_Timer()
   Static x, y As Integer
       x = x + 300
       y = y + 300
       PictureMove x, y
   End Sub

选项

答案Timer1.Interval=1000

解析 Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数;Timer事件在一个Timer控件的预定时间间隔过去之后发生,即每隔Interval属性设定的时间间隔,就会触发一次。题中要求每隔一秒移动一次,因此在窗体启动时,应将Timer1控件的Interval属性值设置为1000。
转载请注明原文地址:https://jikaoti.com/ti/Hlg0FFFM
0

最新回复(0)