A.Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y)
E.nd Sub
B.Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single )
Source.Move Picture1.Left+X.Picture1.Top+Y
E.nd Sub
C.Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )
Source.Move Picture1.Left+X.Picture1.Top+Y
E.nd Sub
D.Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )
banana.Move banana.Left+X, banana.Top+Y
E.nd Sub
[单选题]在窗体上先后画两个图片框,名称分别为Picture1和banana,banana中添加了香蕉图片(见图1),且将bananA、DragMode属性设置为1。要求程序运行时,可以用鼠标把banana拖曳到Picttne1中(见图2)。能实现此功能的事件过程是______。A.Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Single) bananA、Move Picture1.Left+X,Picture1.Top+Y E
[单选题]在窗体上有2个图片框,名称分别为Picture1和Picture2,Picture2中添加了香蕉图片(见图3),且将Picture2.DragMode属性设置为1。要求程序运行时,可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现此功能的事件过程是( )。
[单选题]确定图片框Picture1在窗体上位置的属性是( )。A.Width和HeightB.Left和TopC.Width和TopD.Height和Lef
[单选题]假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。A.Print25B.Picture1.Print25C.Te
[单选题]假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是______。A.Print 25B.Picture1.Print 25C.Text1. Print 25D.Debug. Print 25
[单选题]假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是()A . Print25B . Picture1.Print25C . Text1.Print25D . Text1.text=25
[试题]在窗体上建立一个单选钮组Option1和一个图片框Picture1,如下图所示。当选择不同的单选钮时,图片框中填充不同的图案,请填写程序的空白处,使程序完整。Private Sub Option1_Click(______)D.im H, WPicture1.ClsPicture1.FillStyle. =______W = Picture1.ScaleWidth/2H. = Picture1.ScaleHeight/2Picture1.Circle (W, H), W/2E.nd Sub
[试题](13)在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2.要求程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下的标签中显示出来,请填空使程序完整。Private Sub Combo1_Click() Call ShowItem(Combo1,Label1) End SubPrivate Sub Combo2_Click() Call ShowItem(Combo2,Label2)End SubPrivate Sub
[试题]在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,如图所示,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click()C.all ShowItem(Combo1, Label1)E.nd SubPrivate Sub Combo2_Click()C.all ShowItem(Combo2, Label2)E.nd SubPublic Sub Sh
[试题]( 9 ) 在窗体上画 1 个命令按钮和 1 个文本框 , 其名称分别为 Command1 和 Text1 , 然后编写下列事件过程 :D.im SaveAll As StringPrivate Sub Command1_Click( )Text1.Text=Left(UCase(SaveAll),4)E.nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)E.nd Sub程序运行后,在