VB设置密码的问题?高手进!

来源：百度知道编辑：UC知道时间：2024/06/15 02:39:22

Private Sub Command1_Click()
Dim strpass As String
Open App & "\pass.txt" For Input As #1 @@@@@@@@@@@@@@
Input #1, strpass
Close #1
If Text1.Text = strpass Then
Unload Me
frmg1.Show
Else
MsgBox ("密码错误！请重新输入")
End If

End Sub

Private Sub Command2_Click()
frmenditpass.show1

End Sub
后面一串@@的就是报错的地方,如何让它自动找到正确密码并在窗口中判断pass.txt里的密码是否和输入的相同??

窗体

－－－－－－－－－－
请输入密码: text1 ＼

确定输入修改密码＼

这样写语法错误啊。。。

Input 函数示例
本示例使用 Input 函数来一次读文件中一个字符，并将它显示到立即窗口。本示例假设 TESTFILE 文件内含数行文本数据。

Dim MyChar
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
MyChar = Input(1, #1) ' 读入一个字符。
Debug.Print MyChar ' 显示到立即窗口。
Loop
Close #1 ' 关闭文件。

VB设置密码的问题?高手进! 电脑密码设置问题的高手进 VB设置开机动态密码问题 vb设置的问题? 路由密码设置问题(高手进) VB的问题，高手进 vb的问题高手进！！ VB程序设置密码验证密码问题，VB的设置密码的问题