資訊好好玩

0愛的鼓勵 0訂閱站台

簡單示範一下,要用這個需到VB Controls下載=>下載INI控制項
放兩個Command和四個Text,注意名稱,接下來什麼都不用打,只要貼上即可,並且存檔一下,先按一下Command1,之後關掉程式,在開啟程式,再按Command2,就是這樣

'寫入
Private Sub Command1_Click()
　Text1 = "王小明"
　Text2 = "王小美"
　Text3 = "陳曉東"
　Text4 = "陳進興"
　If Right(App.Path, 1) = "\" Then
　　IniFile = App.Path & "VB記事本.ini"
　Else
　　IniFile = App.Path & "\VB記事本.ini"
　End If
　INI1.FileName = IniFile
　INI1.WriteKey "王姓", "名字1", Text1
　INI1.WriteKey "王姓", "名字2", Text2
　INI1.WriteKey "陳姓", "名字1", Text3
　INI1.WriteKey "陳姓", "名字2", Text4
End Sub

'讀取
Private Sub Command2_Click()
　If Right(App.Path, 1) = "\" Then
　　IniFile = App.Path & "VB記事本.ini"
　Else
　　IniFile = App.Path & "\VB記事本.ini"
　End If
　INI1.FileName = IniFile
　Text1 = INI1.GetKey("王姓", "名字1")
　Text2 = INI1.GetKey("王姓", "名字2")
　Text3 = INI1.GetKey("陳姓", "名字1")
　Text4 = INI1.GetKey("陳姓", "名字2")
End Sub

INI檔裡的格式
[王姓]
名字1=王小明
名字2=王小美
[陳姓]
名字1=陳曉東
名字2=陳進興