仙桃二手交易市场在哪:你们谁会用VB编个把桌面的文件拖到Form上生成文件的位置的程序!

来源:百度文库 编辑:高考问答 时间:2024/04/29 06:25:10
你们谁会用VB编个把桌面的文件拖到Form上生成文件的位置的程序!
知道的人加我QQ:316250462.

在Form上画一个text1控件,写下以下代码就行:

Private Sub Form_Load()
OLEDropMode = 1
Text1.Text = Command$
Text1.Text = Replace(Text1.Text, """", "")
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 1 To Data.Files.Count
Text1.Text = Data.Files.Item(i)
Next
End Sub

这个应该不算大难吧!使用app.path应该可以