VB6实现拖拽

Private Sub Form_Load() 2    Me.OLEDropMode = 1 3End Sub

?复制代码

1Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2    MsgBox Data.Files(1) 3End Sub

打赏

支付宝微信扫一扫，打赏作者吧～

本文链接：https://www.kinber.cn/post/4931.html 转载需授权！

推荐本站淘宝优惠价购买喜欢的宝贝:

 您阅读本篇文章共花了：