VB中怎么才能把TXET中的数字写入指定文档中

来源：百度知道 编辑：UC知道 时间：2024/07/13 02:54:59
Private Sub Command1_Click()
Dim Text As String
Dim filename As String
filename = "c:\bott.ini"
Open filename For Output As #1
Print #1, "[dfconfig]"
Print #1, " lastqq=text1"
Print #1, " gamepath=C:\Program Files"
Close #1
End Sub

Private Sub Text1_Change()

End Sub
我用了个textbox 想实现lastqq= 自己输入的内容 要怎么解决和完善我的代码 QQ597384808
刚学VB 帮帮忙

改成 Print #1, " lastqq=" & textbox.text
OK?

其实对INI文件的读写用API函数比较方便
API函数是
读
GetPrivateProfileInt
写
WritePrivateProfileSection
WritePrivateProfileString
WritePrivateProfileStruct
WriteProfileSection
WriteProfileString
用法如下：
'*******************************************
' API函数声明
'*******************************************
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lIniFileName As String) As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As Any, ByVal lIniFile