窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左,向右移动100twip。请填空。Private Sub Form_ Load()Picture1_icture=LoadPicture(“c:\pic\mouth.ico”)【 】.Interval=2000End SubPrivate Sub Timer1_ Timer()Static x,y As Integerx=x+100y=y+100Pictuer1.Move [x, y]End Sub
窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左,向右移动100twip。请填空。
Private Sub Form_ Load()
Picture1_icture=LoadPicture(“c:\pic\mouth.ico”)
【 】.Interval=2000
End Sub
Private Sub Timer1_ Timer()
Static x,y As Integer
x=x+100
y=y+100
Pictuer1.Move [x, y]
End Sub
相关考题:
窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向下、向右移动100twip。请填空。Private Sub Form_Load()Prcture1_Picture=LoadPicture("c\pic\mouth.ico")______.Interva=2000End SubPrinvate Sub Timer1_Timer()Static x,y As Integerx=x+100y=y+100Pictuer1.Move[x,y]End Sub
窗体中有图片框(Picturel)和计时器(Timerl)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。请填空。Private Sub Form_Load()Picturel.Picture=LoadPicture("c:\My Documents\图片\Qianl_Icon02.ico")______End SubPrivate Sub Timer1_Timer()Static x,y As Integerx=x+300y=y+300Picturel.Move x,yEnd Sub
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c:\picture.jpg") Picmrel.Cls Picturel.Print "picture" End SubA.窗体无显示,图片框显示图片和文字pictureB.窗体上出现picture文本,图片框无显示C.窗体上出现picture文本,图片框显示图片picture.jpgD.窗体无显示,图片框只显示picture文字
设窗体上有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每5秒钟一次的速度向窗体的右下方移动,每次向右、向下移动100。请补充程序中的空白处。
窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左、向右移动100单位。请在[ ]填空: