VB怎样实现文件拖放打开

来源：百度知道 编辑：UC知道 时间：2024/04/27 21:33:33
我最近编写了一个文本编辑器,用的是Richtextbox,我现在想实现在此程序打开的情况下,从任意目录拖过来一个文本文件以后,放到Richtextbox上,程序就自动打开此文件.
现在把文件拖过来以后Richtextbox不打开文件,而是像资源浏览器一样显示这个文件的图标,双击这个图标以后出来一个叫"包装程序"的对话框问我是否打开,确定后用默认的记事本打开的,我不想要这个效果,我就想要刚才说的那个效果,请高手指教

(以下代码转载)
---- 下面是一段示例代码,这是一个多文档记事本程序中的一部分：

模块中声明：

Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hwnd As Long, ByVal fAccept As Long)

Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Long)

Public Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const WM_DROPFILES = &H233
Public Const GWL_WNDPROC = (-4)
Public