问两个关于VB的问题

来源：百度知道 编辑：UC知道 时间：2024/09/21 16:16:41
我在做一个登陆窗口，注册时将用户名和设定的密码保存到TXT中，已经实现，但只能保存一组，重新注册时，就会把上次保存的内容覆盖掉，这是为什么？应该怎么写？
另一个，当点击登陆按钮时，怎么读取保存的用户名和密码，并且进行核对？
以上，高手帮忙解答下，谢谢！

覆盖问题，估计你保存文件用的Output,Output会覆盖，改用Append,只追加不覆盖，可以试试。

至于读取，你加个文本控件或列表控件（运行时不可见就可以了），读取文本文档，再用字符串处理函数处理。

'==================================================
'通用Ini文件操作函数
'==================================================
Dim Ret As Long
Dim Start As Long
Public FileName As String
Public MaxthonPath As String
Public TimeID As Integer
Const BufSize = 10240
Dim buf As String * BufSize
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib