VB如何检测text3的内容是否等于txt文本内第二行的内容！

Question

我想简单做一个登陆功能的软件 text1是帐号 text2是密码 和两个按钮，一个按钮是登陆，一个按钮是修改密码！ 修改密码：检测text3的内容是否与D盘1.txt里面第二行的内容相同！

Answer 1

思路，先读出D：\1.txt里面第二行的内容 存放到一个变量里，再判断是否相等 Private Sub Command1_Click() Dim filep As String filep = "d;\1.txt" filep = App.Path & "\1.txt" temphh = 0 Open filep For Input As #1 Do While Not EOF(1) temphh = temphh + 1 Line Input #1, tempnr If temphh = 2 Then Exit Do Loop if text3.text= tempnr then ''此处写入相等时的操作 else '此处写入不相等时的操作，如提示用户重新输入 end if End Sub