VB.net 讀取文本文件？

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

創(chuàng)新互聯(lián)公司主要為客戶提供服務項目涵蓋了網(wǎng)頁視覺設計、VI標志設計、營銷網(wǎng)站、網(wǎng)站程序開發(fā)、HTML5響應式重慶網(wǎng)站建設公司、成都做手機網(wǎng)站、微商城、網(wǎng)站托管及成都企業(yè)網(wǎng)站維護、WEB系統(tǒng)開發(fā)、域名注冊、國內(nèi)外服務器租用、視頻、平面設計、SEO優(yōu)化排名。設計、前端、后端三個建站步驟的完善服務體系。一人跟蹤測試的建站服務標準。已經(jīng)為搬家公司行業(yè)客戶提供了網(wǎng)站設計服務。

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

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

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

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

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

vb.net是什么

VB.net是微軟最新平臺技術，是.netframeworkSDK的一種語言。VB.net和VC#.net在功能上沒有區(qū)別。編譯以后生成的可執(zhí)行文件被稱為Assembly，即

程序集

。

vb.net怎么調(diào)用其他文件？

如果是托管的Dll或則com組件類，直接在項目上添加這個DLL的引用\x0d\x0a如果是非托管的，已API函數(shù)方式調(diào)用的DLL，使用DllImport方式申明DLL函數(shù)\x0d\x0a\x0d\x0a不過一般這種情況是吧IP地址等配置信息寫在配置文件里面，若XML，INI，應用程序配置文件等方式\x0d\x0a\x0d\x0a配置文件用戶可以直接打開查看，連接字符串寫在那里，數(shù)據(jù)庫就不安全了。

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

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

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

思路

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

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

于是我們在程序加載的時候 調(diào)用Application AddMessageFilter（Me） 然而 默認情況下一個Form或者控件是不能接受拖放的文件的 我們調(diào)用一個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 ） 拖放完成

顯示文件內(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.NET中檢索文件信息

您是否曾經(jīng)希望了解如何檢索要在您自己的應用程序中使用的特定文件的屬性？如果您要在 VB NET 中開發(fā)的應用程序依賴于特定的環(huán)境 那么在執(zhí)行程序中的代碼之前 您需要檢查文件的屬性 例如 您可能需要了解特定文件隨之發(fā)行的產(chǎn)品 或者是文件的版本號 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 類 要獲得這些信息簡直易如反掌 　如果啟動 Windows 資源管理器 右擊一個文件名 然后從彈出式菜單中選擇 屬性 則會看到該文件的 屬性 窗口 屬性 窗口顯示了選定文件的有關信息 假設您在任務管理器的 TASKMAN EXE 文件名上右擊 圖 顯示了該文件的 屬性 對話框 　

)this style width= ;

通過使用 FileVersionInfo 類 您可以在 VB NET 應用程序中提供相同的功能 根據(jù)應用程序的需要 您可以復制 屬性 對話框中顯示的全部信息 也可以復制其中的一部分 圖 顯示了我們將要創(chuàng)建的應用程序 它將用來復制 屬性 對話框中顯示的部分信息

image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;

要創(chuàng)建演示程序 請啟動 VB NET 并開始一個名為 Retrieving File Properties（檢索文件屬性）的新項目 按照圖 所示 向 Form 添加七個文本框控件 七個標簽控件和一個按鈕控件 接下來 將以下代碼添加到 Get Properties（獲取屬性）按鈕的 Click 事件

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= e e

Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 獲取記事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 檢索文件說明（名稱）TextBox Text = FileProperties FileDescription 檢索文件版本TextBox Text = FileProperties FileVersion 檢索文件的內(nèi)部名稱TextBox Text = FileProperties InternalName 檢索文件的舊名稱TextBox Text = FileProperties OriginalFilename 檢索產(chǎn)品名稱TextBox Text = FileProperties ProductName 檢索產(chǎn)品版本TextBox Text = FileProperties ProductVersion 檢索語言TextBox Text = FileProperties LanguageEnd Sub

現(xiàn)在 按 F 鍵執(zhí)行該應用程序 當您單擊 Get Properties（獲取屬性）按鈕時 程序?qū)@示 TASKMAN EXE 文件的有關信息 如圖 中所示

Get Properties（獲取屬性）按鈕的 Click 事件代碼調(diào)用 GetVersionInfo 方法 該方法返回一個 FileVersionInfo 類 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一個完全限定的文件 如果沒有指定正確的路徑名 則該方法僅返回文件名本身 而不返回文件信息 調(diào)用 GetVersionInfo 后 就像我們在演示程序中所做的一樣 只需通過類就可以檢索特定的屬性 　FileVersionInfo 類包含很多屬性 您可以通過查詢這些屬性來檢索文件信息 表 僅顯示了我們在演示程序中查詢的屬性 但是可以在 MSDN 中通過搜索 FileVersionInfo 類說明找到完整的列表 　表 FileVersionInfo 類可以使用的屬性　

cellSpacing= cellPadding= width= border= %

屬性

%

說明

%

FileDescription

%

檢索指定文件的說明

%

FileVersion

%

檢索指定文件的版本號

%

InternalName

%

檢索指定文件的內(nèi)部名稱 （并不是所有的文件都關聯(lián)有內(nèi)部名稱 ）

%

OriginalFilename

%

檢索指定文件在首次創(chuàng)建時最初被賦予的名稱

%

ProductName

%

檢索指定文件的產(chǎn)品名稱 它是此文件隨之發(fā)行的產(chǎn)品的名稱 （并不是所有的文件都關聯(lián)有產(chǎn)品名稱 ）

%

ProductVersion

%

檢索指定文件的產(chǎn)品版本 它是 ProductName 屬性的版本

%

Language

%

檢索指定文件的版本資源中的 Microsoft 語言標識符（顯示為字符串）

lishixinzhi/Article/program/net/201311/12277

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文件. vbnet pdf
瀏覽路徑：http://chinadenli.net/article16/hgdcgg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供標簽優(yōu)化、網(wǎng)站策劃、營銷型網(wǎng)站建設、網(wǎng)站收錄、搜索引擎優(yōu)化、服務器托管

廣告

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