#t#VB.NET仍是比较常用的，所以我研讨了一下VB.NET拖放文件，本文介绍了在VB.NET中怎么完结承受VB.NET拖放文件，在这里拿出来和咱们共享一下，期望对咱们有用。自从资源管理器中拖放到应用程序中的时分，主动获取VB.NET拖放文件。文中的比如是一个承受VB.NET拖放文件显示文件内容的VB.NET实例程序。

关于文本格式的文件，咱们能够直接拖到记事本中就能够看到内容；各种类型的图片，拖到Photoshop中，就能够直接对其修改。咱们怎么在VB.NET开发的程序也完结上述作用呢？

咱们知道，每一个Windows的应用程序都有一个音讯行列，程序的主体承受体系的音讯，然后分发出去（给一个form，或许一个控件），承受者有相应的程序来处理音讯。在.NET的Form中，默许状况下程序是不翻译这些音讯的，也便是说默许咱们的Class是不参加应用程序的音讯泵。能不能把咱们的Form Class参加应用程序的音讯泵呢？能够！

在.NET中，任何一个完结IMessageFilter 接口的类，能够添加到应用程序的音讯泵中，以在音讯被调度到控件或窗体之前将它挑选出来或履行其他操作。运用 Application 类中的 AddMessageFilter 办法，能够将音讯挑选器添加到应用程序的音讯泵中。

所以咱们在程序加载的时分，调用Application.AddMessageFilter(Me)。但是，默许状况下一个Form或许控件是不能承受VB.NET拖放文件的，咱们调用一个WIN32 API DragAcceptFiles，这个API能够设置对应的控件是否能承受VB.NET拖放文件。然后能够用DragQueryFile查询拖放到的文件列表，也便是VB.NET拖放文件地详细途径和文件名。

ImportsSystem.Runtime.InteropServices 
PublicClassForm1 
InheritsSystem.Windows.Forms.Form 
ImplementsIMessageFilter 
'API声明 
ConstWM_DROPFILES=&H233‘拖放文件音讯 
<DllImport("shell32.dll")>PublicSharedSubDragFinish(ByValhDropAsInteger) 
EndSub 
<DllImport("shell32.dll")>PublicSharedSubDragAcceptFiles
(ByValhwndAsInteger,ByValfAcceptAsBoolean) 
EndSub 
<DllImort("shell32.dll")>PublicSharedFunctionDragQueryFile(ByValHDROPAsInteger,
ByValUINTAsInteger,ByVallpStrAsSystem.Text.StringBuilder,ByValchAsInteger)AsInteger 
EndFunction 
PrivateSubForm1_Load(ByValsenderAsSystem.Object,
ByValeAsSystem.EventArgs)HandlesMyBase.Load 
Application.AddMessageFilter(Me) 
DragAcceptFiles(TextBox1.Handle.ToInt32,True) 
EndSub 
FunctionPreFilterMessage(ByRefmAsMessage)AsBooleanImplementsIMessageFilter.PreFilterMessage 
Ifm.Msg=WM_DROPFILESThen 
'设置拖放的动作 
DimnfilesAsInt16 
nfiles=DragQueryFile(m.WParam.ToInt32,-1,Nothing,0) 
DimiAsInt16 
DimsbAsNewSystem.Text.StringBuilder(256) 
DimsFirstFileNameAsString'记载***个文件名 
TextBox1.Clear() 
Fori=0Tonfiles-1 
DragQueryFile(m.WParam.ToInt32,i,sb,256) 
Ifi=0ThensFirstFileName=sb.ToString 
TextBox1.AppendText(ControlChars.CrLf&sb.ToString) 
Next 
DragFinish(m.WParam.ToInt32)'拖放完结 
'显示文件内容 
DimfsAsNewSystem.IO.FileStream(sFirstFileName,IO.FileMode.Open) 
DimsrAsNewSystem.IO.StreamReader(fs,System.Text.Encoding.GetEncoding("gb2312")) 
TextBox1.AppendText(ControlChars.CrLf&sr.ReadToEnd().ToString) 
fs.Close() 
sr.Close() 
EndIf 
ReturnFalse 
EndFunction 
ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean) 
IfdisposingThen 
IfNot(componentsIsNothing)Then 
components.Dispose() 
EndIf 
EndIf 
Application.RemoveMessageFilter(Me) 
DragAcceptFiles(TextBox1.Handle.ToInt32,False) 
MyBase.Dispose(disposing) 
EndSub