[填空题] 下列程序的功能是,当一个TextBox控件被拖过一个PictureBox控件时,指针从默认的箭头变为特定的图标,当Text-Box控件被拖到其他地方时,指针恢复到默认的状态。请完成下列程序

13 查阅

[填空题] 下列程序的功能是,当一个TextBox控件被拖过一个PictureBox控件时,指针从默认的箭头变为特定的图标,当Text-Box控件被拖到其他地方时,指针恢复到默认的状态。请完成下列程序。

Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)

Select Case State

Case vbEnter

Source.Draglcon=LoadPicture("JCONSARROWSPOINT03.ICO")

Case______

Source.Draglcon=LoadPicture()

End Select

End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)

Source.Draglcon=______

End Sub

参考答案:

vbLeave;LoadPicture ()

计算机考试