[單項(xiàng)選擇題] 在窗體上先后畫兩個(gè)圖片框，名稱分別為Picture1和banana，banana中添加了香蕉圖片(見圖1)，且將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana拖曳到Picttne1中(見圖2)。能實(shí)現(xiàn)此功能的事件過程是______。

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

C

[評析] DragMode屬性：用來設(shè)置自動或手動拖放模式：缺省值為0(手動方式)。為了讓控件自動執(zhí)行拖放操作，必須把它的屬性設(shè)為1，該屬性即可以在屬性窗口中設(shè)置，也可以在程序中設(shè)置。拖動意味著移動光標(biāo)到對象上，按住鼠標(biāo)，接著移動鼠標(biāo)使對象在屏幕內(nèi)滑動以重新定位對象。當(dāng)釋放鼠標(biāo)按鈕時(shí)，在拖動對象所在控件邊界內(nèi)放開鼠標(biāo)會觸發(fā)DragDrop事件。如果放開鼠標(biāo)時(shí)對象不在一個(gè)控件的上面，那么對象定位于窗體本身。如果一個(gè)對象在一個(gè)控件(或窗體)上被放開，并且在后者的DragDrop事件中沒有放任何內(nèi)容，那么“被放開”的對象將仍然在窗體上原先位置出現(xiàn)，不會出現(xiàn)其他事情。因此，拖動對象的DragDrop事件不是用來存放有關(guān)放開對象時(shí)執(zhí)行某些指令的地方。而應(yīng)將這些指令放到背景的DragDrop事件中或者拖動對象所放開的目標(biāo)控件中。一個(gè)DragDrop事件提供三條信息——DragDrop(Source as Comro1,X as Single,Y as Single)。Soume，是已經(jīng)放開的圖片、圖標(biāo)或控件。X和Y值，是放開事件所在目標(biāo)對象的水平和垂直方向位置。