求助vb高手

Question

在编辑文本阅读器的代码时，如何实现直接将文件拖入程序窗口自动打开并显示？

Answer 1

编写控件的DragDrop事件，在其中写打开语句

Answer 2

新建一个标准EXE工程，把下面这段代码贴到窗体的代码窗口中。
参考这段代码，自己写具体的“打开并显示”的代码吧！Option ExplicitPrivate Sub Form_Initialize()
   OLEDropMode = 1
End SubPrivate 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

Answer 3

http://post.baidu.com/f?kz=123425742