[單項(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

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