窗体中有图片框(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
窗体中有图片框(Picturel)和计时器(Timerl)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。
请填空。
Private Sub Form_Load()
Picturel.Picture=LoadPicture("c:\My Documents\图片\Qianl_Icon02.ico")
______
End Sub
Private Sub Timer1_Timer()
Static x,y As Integer
x=x+300
y=y+300
Picturel.Move x,y
End Sub
相关考题:
(15)假定在图片框控件Picturel中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方式 A.选择图片框控件,然后按Del键B.执行语句Picturel1.Picturel=LoadPicturel("") C.执行语句Picturel1.Picturel="" D.选择图片框控件,在属性窗口中选择Picturel属性,然后删除该属性的值
窗体中有图片框(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
窗体中有图片框(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
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是( )。 Private Sub Commandl_Click() Picturel.Picture=LoadPicture("c:\picture.jpg") Picmrel.Cls Picturel.Print "picture" End SubA.窗体无显示,图片框显示图片和文字pictureB.窗体上出现picture文本,图片框无显示C.窗体上出现picture文本,图片框显示图片picture.jpgD.窗体无显示,图片框只显示picture文字
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Textl.Text="VB程序设计"End SubPrivate Sub Textl_Change()Picturel.Print"VB programming"End Sub程序运行后,单击窗体,则在文本框中显示的内容是【 】,而在图片框中显示的内容是【 】。
设窗体上有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每5秒钟一次的速度向窗体的右下方移动,每次向右、向下移动100。请补充程序中的空白处。
窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下角移动,每次向左、向右移动100单位。请在[ ]填空: