189 8069 5689
本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言
10余年的庆阳网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整庆阳建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“庆阳网站设计”,“庆阳网站推广”以来，每个客户项目都认真落实执行。
对于文本格式的文件 我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢？
思路
我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去（给一个form 或者一个控件） 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢？可以！
在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中
于是我们在程序加载的时候 调用Application AddMessageFilter（Me） 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名
代码
Imports System Runtime InteropServices
Public Class Form
Inherits System Windows Forms Form
Implements IMessageFilter
API申明
Const WM_DROPFILES = H 拖放文件消息
DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）
End Sub
DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）
End Sub
DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer
End Function
Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load
Application AddMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt True）
End Sub
Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage
If m Msg = WM_DROPFILES Then
设置拖放的动作
Dim nfiles As Int
nfiles = DragQueryFile（m WParam ToInt Nothing ）
Dim i As Int
Dim *** As New System Text StringBuilder（ ）
Dim sFirstFileName As String 记录第一个文件名
TextBox Clear（）
For i = To nfiles
DragQueryFile（m WParam ToInt i *** ）
If i = Then sFirstFileName = *** ToString
TextBox AppendText（ControlChars CrLf *** ToString）
Next
DragFinish（m WParam ToInt ） 拖放完成
显示文件内容
Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）
Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））
TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）
fs Close（）
sr Close（）
End If
Return False
End Function
Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）
If disposing Then
If Not （ponents Is Nothing） Then
ponents Dispose（）
End If
End If
Application RemoveMessageFilter（Me）
DragAcceptFiles（TextBox Handle ToInt False）
MyBase Dispose（disposing）
End Sub
lishixinzhi/Article/program/net/201311/13043
以下内容放到vb net中直接调用 Public Class ReadWriteIniClassPrivate Declare Function GetPrivateProfileString Lib kernel Alias GetPrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileString Lib kernel Alias WritePrivateProfileStringA (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int
Private Declare Function GetPrivateProfileStringW Lib kernel Alias GetPrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpDefault As String ByVal lpReturnedString As String ByVal nSize As Int ByVal lpFileName As String) As Int Private Declare Function WritePrivateProfileStringW Lib kernel Alias WritePrivateProfileStringW (ByVal lpApplicationName As String ByVal lpKeyName As String ByVal lpString As String ByVal lpFileName As String) As Int mbcsPublic Shared Function GetINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim chars( ) As CharDim strResult As String = New String(chars)Dim length As Integer = GetPrivateProfileString(Section AppName lpDefault strResult Len(strResult) FileName) 编码的转换Dim rByte() As Byte = System Text Encoding Default GetBytes(strResult ToCharArray)strResult = New String(MyEncoder GetChars(rByte))Return Microsoft VisualBasic Left(strResult InStr(strResult Chr( )) )End Function 写文件Public Shared Function WriteINI(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As LongWriteINI = WritePrivateProfileString(Section AppName lpDefault FileName)End Function
unicodePublic Shared Function GetINIW(ByVal Section As String ByVal AppName As String ByVal lpDefault As String ByVal FileName As String) As StringDim MyEncoder As System Text Encoding = System Text Encoding DefaultDim strResult As StringDim chars( ) As CharstrResult = CStr(chars)GetPrivateProfileStringW(Section AppName lpDefault strResult Len(strResult) FileName)
lishixinzhi/Article/program/ASP/201311/21763
我想你可以这样考虑...
插入\删除\修改都可以基于读,写实现
比较简单的是删除操作(我理解你想要清空内容),直接写入空字符即可
接下来是修改
首先你需要修改的文件以文本形式读到界面(Web)的文本框或者DIV(加入属性 contenteditable="true" )中
修改完成后,再将内容提交保存到刚才打开的文本文件即可
实现了修改,普通插入不再是难事.
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
vb.net使用控件FolderBrowserDialog1,在程序中:
'设置对话框中在树视图控件上显示的说明文本
Me.FolderBrowserDialog1.Description
=
"请选择输出报表所在路径:"
'设置从其开始浏览的根文件夹
Me.FolderBrowserDialog1.SelectedPath
=
"c:\"
If
Me.FolderBrowserDialog1.ShowDialog()
=
DialogResult.OK
Then
'取得全路径（包含文件名）
reportPath1
=
System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)
'设定text显示文件名
txtReport1.Text
=
reportPath1
setReportList()
End
If
在setReportList()中针对你所需要的文件进行操作等