13518219792
將以下代碼保存到模塊中：
10年積累的成都做網站、成都網站制作、成都外貿網站建設經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先網站設計后付款的網站建設流程，更有平和免費網站建設讓你可以放心的選擇與我們合作。
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
調用方法：
Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)
txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")
Filter 屬性設置當前文件名篩選字符串，該字符串確定出現在對話框的“文件類型”框中的選項。
openFileDialog1.InitialDirectory = "c:\\" ;
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;
openFileDialog1.FilterIndex = 1 ; // 獲取或設置文件對話框中當前選定篩選器的索引；
openFileDialog1.RestoreDirectory = true ;
對于每個篩選選項，篩選器字符串都包含篩選器說明，后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。
Visual Basic .NET支持動態屬性，其動態屬性儲存在一個應用程序配置文件中，該文件在應用程序執行時將會被讀到。使用動態屬性可以在不重新編譯應用程序的情況下改變一些屬性值。你可以使用它們保存數據庫連接字符串、應用程序日志信息或者服務器連接信息。
要看動態屬性的例子，首先在Visual Basic中創建一個Windows應用程序。添加一個TextBox到默認窗體中；確認TextBox是被選中的，然后在屬性窗口中定位Dynamic屬性。
點擊Advanced標簽旁邊的省略號按鈕，打開一個對話框，該對話框中列出了TextBox所有的屬性，選擇Text屬性，鍵映射框將會被激活。鍵映射決定了鍵儲存在配置文件中的值。點擊確定關閉對話框。
