[VB]ini配置文件的读写

VB C# 入门编程练习,关于TXT文件读写,配置文件的编写

[VB]ini配置文件的读写

'此代码演示了ini配置文件的读写
'先在工程文件目录下建立一个文件,名称为"Set.ini"(不建也可以)
'内容是:(不要直接复制)
'[WindowData]
'Caption=快乐的王子的INI文件读写

Private 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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Form_Click()
If WritePrivateProfileString("WindowData", "Caption", CStr(Me!txtdata.Text), App.Path & "\Set.ini") Then
MsgBox "写入数据成功", 64, "快乐的王子的INI文件读写"
Else
MsgBox "写入数据失败", 16, "快乐的王子的INI文件读写"
End If
End Sub

Private Sub Form_Load()
Dim V As String * 260
Me.AutoRedraw = True
Me.ScaleMode = 3
Me.Caption = "快乐的王子的INI文件读写"
Me.FontSize = 12
GetPrivateProfileString "WindowData", "Caption", "载入失败", V, 260, App.Path & "\Set.ini"
With Me.Controls.Add("VB.TextBox", "txtData", Me)
.Text = V
.Visible = True
.FontSize = 10
End With
End Sub

'美化用的代码↓
Private Sub Form_Resize()
If Me.WindowState <> 0 Then Me.WindowState = 0
Me!txtdata.Move 0, 0, Me.ScaleWidth - 75, 20
Me.Line (Me.ScaleWidth - 75, 0)-(Me.ScaleWidth, 20), QBColor(7), BF
Me.CurrentX = Me.ScaleWidth - 70
Me.CurrentY = 2
Me.Height = 780
Me.Print "点击修改"
End Sub


'总结:这里使用的是两个API函数(GetPrivateProfileString 和 WritePrivateProfileString)
'GetPrivateProfileString用于读数据,格式:GetPrivateProfileString(区段名,项目名,出错反回值,储存用变量名,该变量长度,文件全名)
'WritePrivateProfileString用于写数据,格式:G
etPrivateProfileString(区段名,项目名,新数据,文件全名)
'这两个API返回值若是0,就证明失败了
'注意:
'GetPrivateProfileString中的储存用变量名在DIM时要这样:
'Dim 储存用变量名 As String * 该变量长度