vb.net的文件操作 vb 文件操作

在VB.NET中實(shí)現(xiàn)文件的拖放

本文介紹了在VB NET中如何實(shí)現(xiàn)接受拖放的文件 即從資源管理器中拖放到應(yīng)用程序中的時(shí)候 自動(dòng)獲取拖放的文件 文中的例子是一個(gè)接受拖放文件顯示文件內(nèi)容的VB NET實(shí)例程序 引言

10余年的慶陽網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營銷型網(wǎng)站建設(shè)的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整慶陽建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)公司從事“慶陽網(wǎng)站設(shè)計(jì)”,“慶陽網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

對于文本格式的文件 我們可以直接拖到記事本中就可以看到內(nèi)容 各種類型的圖片 拖到Photoshop中 就可以直接對其編輯 我們?nèi)绾卧赩B NET開發(fā)的程序也實(shí)現(xiàn)上述效果呢？

思路

我們知道 每一個(gè)Windows的應(yīng)用程序都有一個(gè)消息隊(duì)列 程序的主體接受系統(tǒng)的消息 然后分發(fā)出去（給一個(gè)form 或者一個(gè)控件） 接受者有相應(yīng)的程序來處理消息 在 NET的Form中 默認(rèn)情況下程序是不翻譯這些消息的 也就是說默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵 能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！

在 NET中 任何一個(gè)實(shí)現(xiàn)IMessageFilter 接口的類 可以添加到應(yīng)用程序的消息泵中 以在消息被調(diào)度到控件或窗體之前將它篩選出來或執(zhí)行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應(yīng)用程序的消息泵中

于是我們在程序加載的時(shí)候 調(diào)用Application AddMessageFilter（Me） 然而 默認(rèn)情況下一個(gè)Form或者控件是不能接受拖放的文件的 我們調(diào)用一個(gè)WIN API DragAcceptFiles源碼天空 這個(gè)API可以設(shè)置對應(yīng)的控件是否能接受拖放的文件 然后可以用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

設(shè)置拖放的動(dòng)作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 記錄第一個(gè)文件名

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 ） 拖放完成

顯示文件內(nèi)容

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.netini文件操作

以下內(nèi)容放到vb net中直接調(diào)用 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) 編碼的轉(zhuǎn)換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

VB.NET里的文件操作

我想你可以這樣考慮...

插入\刪除\修改都可以基于讀,寫實(shí)現(xiàn)

比較簡單的是刪除操作(我理解你想要清空內(nèi)容),直接寫入空字符即可

接下來是修改

首先你需要修改的文件以文本形式讀到界面(Web)的文本框或者DIV(加入屬性 contenteditable="true" )中

修改完成后,再將內(nèi)容提交保存到剛才打開的文本文件即可

實(shí)現(xiàn)了修改,普通插入不再是難事.

VB.net 讀取文本文件？

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對象是否為空代碼。

3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實(shí)現(xiàn)的上傳結(jié)果。

vb.net 文件夾操作

vb.net使用控件FolderBrowserDialog1,在程序中:

'設(shè)置對話框中在樹視圖控件上顯示的說明文本

Me.FolderBrowserDialog1.Description

=

"請選擇輸出報(bào)表所在路徑:"

'設(shè)置從其開始瀏覽的根文件夾

Me.FolderBrowserDialog1.SelectedPath

=

"c:\"

If

Me.FolderBrowserDialog1.ShowDialog()

=

DialogResult.OK

Then

'取得全路徑（包含文件名）

reportPath1

=

System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'設(shè)定text顯示文件名

txtReport1.Text

=

reportPath1

setReportList()

End

If

在setReportList()中針對你所需要的文件進(jìn)行操作等

網(wǎng)頁名稱：vb.net的文件操作 vb 文件操作
網(wǎng)站地址：http://muchs.cn/article8/hgeeip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、關(guān)鍵詞優(yōu)化、搜索引擎優(yōu)化、網(wǎng)站維護(hù)、網(wǎng)站收錄、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)