[单项选择题] 在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把

15 查阅

[单项选择题] 在窗体上先后画两个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片(见图1)，且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖曳到Picttne1中(见图2)。能实现此功能的事件过程是______。

A．Private Sub Form_DlagDrop(Source As Control,X As Single,Y As SinglbananMove Picture1.Left+X,Picture1.Top+Y End Sub

B．Private Sub banana_DragDrop(Source As Control,X As Single,Y As SinglSourcMove Picture1.Lefi+X,Picture1.Top+Y End Sub

C．Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS SinglSourcMove Picture1.Left+X,Picture1.Top+Y End Sub

D．Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As SinglbananMove bananLet+X,banaTop+Y End Sub

参考答案:

[评析] DragMode属性：用来设置自动或手动拖放模式：缺省值为0(手动方式)。为了让控件自动执行拖放操作，必须把它的属性设为1，该属性即可以在属性窗口中设置，也可以在程序中设置。拖动意味着移动光标到对象上，按住鼠标，接着移动鼠标使对象在屏幕内滑动以重新定位对象。当释放鼠标按钮时，在拖动对象所在控件边界内放开鼠标会触发DragDrop事件。如果放开鼠标时对象不在一个控件的上面，那么对象定位于窗体本身。如果一个对象在一个控件(或窗体)上被放开，并且在后者的DragDrop事件中没有放任何内容，那么“被放开”的对象将仍然在窗体上原先位置出现，不会出现其他事情。因此，拖动对象的DragDrop事件不是用来存放有关放开对象时执行某些指令的地方。而应将这些指令放到背景的DragDrop事件中或者拖动对象所放开的目标控件中。一个DragDrop事件提供三条信息——DragDrop(Source as Comro1,X as Single,Y as Single)。Soume，是已经放开的图片、图标或控件。X和Y值，是放开事件所在目标对象的水平和垂直方向位置。

计算机考试