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 - 手动，否则您不能删除表单上的任何内容

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

1 个答案: