Filter 屬性設(shè)置當(dāng)前文件名篩選字符串，該字符串確定出現(xiàn)在對話框的“文件類型”框中的選項。
創(chuàng)新互聯(lián)公司專注于三穗企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),電子商務(wù)商城網(wǎng)站建設(shè)。三穗網(wǎng)站建設(shè)公司,為三穗等地區(qū)提供建站服務(wù)。全流程按需策劃設(shè)計，專業(yè)設(shè)計，全程項目跟蹤，創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設(shè)置文件對話框中當(dāng)前選定篩選器的索引；
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項，篩選器字符串都包含篩選器說明，后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。
Property用于標(biāo)識一個類成員為屬性而不是方法.屬性可以被獲取,屬性在被獲以的時候利用get句柄返回其值.屬性可以被賦值,這個過程是由set句柄完成的.這兩個句柄可以不同時存在.如果只有g(shù)et而沒有set,那屬性就是只讀的.如果只有set而沒有g(shù)et,那屬性就是只寫的.
就是定義了兩個屬性：s_name和s_sex
Overridable 表示這個屬性可以被重載。
將以下代碼保存到模塊中：
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileStringByKeyName Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
Public Function GetIniParam(NomFichier As String, NomSection As String, NomVariable As String) As String
Dim ReadString As String * 255
Dim returnv As String
Dim mResultLen As Integer
mResultLen = GetPrivateProfileString(NomSection, NomVariable, "(Unassigned)", ReadString, Len(ReadString) - 1, NomFichier)
If IsNull(ReadString) Or Left$(ReadString, 12) = "(Unassigned)" Then
Dim Tempvalue As Variant
Dim Message As String
Message = "配置文件 " NomFichier " 不存在."
returnv = ""
Else
returnv = Left$(ReadString, InStr(ReadString, Chr$(0)) - 1)
End If
GetIniParam = returnv
End Function
Public Function WriteWinIniParam(NomDuIni As String, sLaSection As String, sNouvelleCle As String, sNouvelleValeur As String)
Dim iSucccess As Integer
iSucccess = WritePrivateProfileStringByKeyName(sLaSection, sNouvelleCle, sNouvelleValeur, NomDuIni)
If iSucccess = 0 Then
WriteWinIniParam = False
Else
WriteWinIniParam = True
End If
End Function
調(diào)用方法：
Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)
txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")
Visual Basic .NET支持動態(tài)屬性，其動態(tài)屬性儲存在一個應(yīng)用程序配置文件中，該文件在應(yīng)用程序執(zhí)行時將會被讀到。使用動態(tài)屬性可以在不重新編譯應(yīng)用程序的情況下改變一些屬性值。你可以使用它們保存數(shù)據(jù)庫連接字符串、應(yīng)用程序日志信息或者服務(wù)器連接信息。
要看動態(tài)屬性的例子，首先在Visual Basic中創(chuàng)建一個Windows應(yīng)用程序。添加一個TextBox到默認(rèn)窗體中；確認(rèn)TextBox是被選中的，然后在屬性窗口中定位Dynamic屬性。
點擊Advanced標(biāo)簽旁邊的省略號按鈕，打開一個對話框，該對話框中列出了TextBox所有的屬性，選擇Text屬性，鍵映射框?qū)患せ睢ｆI映射決定了鍵儲存在配置文件中的值。點擊確定關(guān)閉對話框。
您是否曾經(jīng)希望了解如何檢索要在您自己的應(yīng)用程序中使用的特定文件的屬性？如果您要在 VB NET 中開發(fā)的應(yīng)用程序依賴于特定的環(huán)境 那么在執(zhí)行程序中的代碼之前 您需要檢查文件的屬性 例如 您可能需要了解特定文件隨之發(fā)行的產(chǎn)品 或者是文件的版本號 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 類 要獲得這些信息簡直易如反掌 如果啟動 Windows 資源管理器 右擊一個文件名 然后從彈出式菜單中選擇 屬性 則會看到該文件的 屬性 窗口 屬性 窗口顯示了選定文件的有關(guān)信息 假設(shè)您在任務(wù)管理器的 TASKMAN EXE 文件名上右擊 圖 顯示了該文件的 屬性 對話框
)this style width= ;
通過使用 FileVersionInfo 類 您可以在 VB NET 應(yīng)用程序中提供相同的功能 根據(jù)應(yīng)用程序的需要 您可以復(fù)制 屬性 對話框中顯示的全部信息 也可以復(fù)制其中的一部分 圖 顯示了我們將要創(chuàng)建的應(yīng)用程序 它將用來復(fù)制 屬性 對話框中顯示的部分信息
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 添加七個文本框控件 七個標(biāo)簽控件和一個按鈕控件 接下來 將以下代碼添加到 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í)行該應(yīng)用程序 當(dāng)您單擊 Get Properties（獲取屬性）按鈕時 程序?qū)@示 TASKMAN EXE 文件的有關(guān)信息 如圖 中所示
Get Properties（獲取屬性）按鈕的 Click 事件代碼調(diào)用 GetVersionInfo 方法 該方法返回一個 FileVersionInfo 類 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一個完全限定的文件 如果沒有指定正確的路徑名 則該方法僅返回文件名本身 而不返回文件信息 調(diào)用 GetVersionInfo 后 就像我們在演示程序中所做的一樣 只需通過類就可以檢索特定的屬性 FileVersionInfo 類包含很多屬性 您可以通過查詢這些屬性來檢索文件信息 表 僅顯示了我們在演示程序中查詢的屬性 但是可以在 MSDN 中通過搜索 FileVersionInfo 類說明找到完整的列表 表 FileVersionInfo 類可以使用的屬性
cellSpacing= cellPadding= width= border= %
屬性
%
說明
%
FileDescription
%
檢索指定文件的說明
%
FileVersion
%
檢索指定文件的版本號
%
InternalName
%
檢索指定文件的內(nèi)部名稱 （并不是所有的文件都關(guān)聯(lián)有內(nèi)部名稱 ）
%
OriginalFilename
%
檢索指定文件在首次創(chuàng)建時最初被賦予的名稱
%
ProductName
%
檢索指定文件的產(chǎn)品名稱 它是此文件隨之發(fā)行的產(chǎn)品的名稱 （并不是所有的文件都關(guān)聯(lián)有產(chǎn)品名稱 ）
%
ProductVersion
%
檢索指定文件的產(chǎn)品版本 它是 ProductName 屬性的版本
%
Language
%
檢索指定文件的版本資源中的 Microsoft 語言標(biāo)識符（顯示為字符串）
lishixinzhi/Article/program/net/201311/12277
重慶分公司
重慶分公司
