求助vb高手
在编辑文本阅读器的代码时,如何实现直接将文件拖入程序窗口自动打开并显示? --------------------编程问答-------------------- 编写控件的DragDrop事件,在其中写打开语句 --------------------编程问答-------------------- 可不可以详细一点,我不是太懂啊.谢谢啦! --------------------编程问答-------------------- 新建一个标准EXE工程,把下面这段代码贴到窗体的代码窗口中。参考这段代码,自己写具体的“打开并显示”的代码吧!
Option Explicit
Private Sub Form_Initialize()
OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, _
x As Single, y As Single)
If (Effect <> 7) Then Exit Sub
Dim i&
i = Data.Files.Count
Print "总共拖入了 " & i & " 个项目!"
For i = 1 To i
Print "第 " & i & " 项:" & Data.Files.Item(i)
Next
End Sub
--------------------编程问答-------------------- 运行后,从‘我的电脑’中选定几个文件及文件夹,拖到窗口中,看效果吧。
--------------------编程问答-------------------- 十分感谢! --------------------编程问答-------------------- 这个只是显示文件路径,但并没有直接打开。 --------------------编程问答-------------------- 已经能够得到拖入文件的路径及文件名了,还没法打开文件吗????
再说,已经到这一步了,‘问题’恐怕也不算问题了。
我怎么知道你要如何来‘显示’内容?
你别跟我说,还不知道该如何打开文件、读取文件内容!
--------------------编程问答-------------------- http://post.baidu.com/f?kz=123425742
补充:VB , API