当前位置:编程学习 > VB >>

求助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
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,