如何将文件拖放到VB6应用程序？

Question

我正在尝试创建一个可以从PC安装android apk的VB应用程序.这样,当我想安装apk时,我更喜欢从浏览器中删除apk到应用程序.但我不知道该怎么做.我是VB6的新手.请帮我 !

Answer 1

要捕获表单上要删除的文件的文件名,可以使用以下代码:

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim intFile As Integer
  With Data
    For intFile = 1 To .Files.Count
      Print Data.Files.Item(intFile)
    Next intFile
  End With 'Data
End Sub

这将打印表单上文件的文件名.只需将Print语句更改为您自己的代码即可安装apk

[编辑]

我忘了提到你必须将表单的OLEDropMode设置为1 - 手动,否则你不能删除窗体上的任何内容