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_Load()
Command2.Caption = "写 ini"
End Sub
Private Sub Command2_Click()
Dim F As String
Dim A As String
F = "\shen.ini"
A = txtServerIP
dl = WritePrivateProfileString("ini", "IP", A, F)
If dl <> 0 Then MsgBox "写 ini 文件成功"
End Sub

以上这段代码可生成
shen.ini
[ini]
IP=192.168.1.1

要是想生成
shen.ini
IP=192.168.1.1
Port=12000
Name=张

应该怎么编法？？谢谢。。。。。。。。

[[it] 本帖最后由 mayong123 于 2008-11-7 23:17 编辑 [/it]]

这样的问题百度一下就出来了

好像没找到。。。

怎么会搜索不到呢?不会用关键字吧?
搜索 VB INI
N多你想要的结果,大约318000条
说实话 最让人痛心的不是做不出题目 而是答案摆在那里都找不到

[[it] 本帖最后由 三断笛 于 2008-11-8 07:16 编辑 [/it]]

您就当写入文本文件就可以了吧……

会写一个，就不会写三个？

恩。。
找到了。。。

Private Sub Command2_Click()
Dim dl As String
Dim F As String
Dim A As String
F = "\shen.ini"
A = txtServerIP
dl = WritePrivateProfileString("ini", "IP", A, F)
Dim B As String
B = txtServerPort
dl = WritePrivateProfileString("ini", "Port", B, F)
Dim C As String
C = txtName
dl = WritePrivateProfileString("ini", "Name", C, F)
If dl <> 0 Then MsgBox "写 ini 文件成功"
End Sub

谢谢了。。。

不是没有"[ini]"么？

程序执行没问题啊？？？