Question

vb 读取文本内容,与文本框内容进行比较,明明内容是一样,但比较结果为不一样

vb 读取文本内容,与文本框内容进行比较,明明内容是一样,但比较结果为不一样
新建工程
在FORM1 中 添加六个按钮,一个LABEL
新建一个FORM2窗体, 添加一个LABEL,一个文本框,一个按钮
再新建一个FORM3窗体, 添加两个LABEL,两个文本框,一个按钮
具体代码如下:
form1:Public pw As String

Private Sub Command1_Click()

Shell "cmd /k shutdown -s -t 1800 -c 游戏时间到了 ", vbHide

isclose = 0

End Sub

Private Sub Command2_Click()

Shell "cmd /k shutdown -s -t 3600 -c 游戏时间到了 ", vbHide

isclose = 0

End Sub

Private Sub Command3_Click()

Shell "cmd /k shutdown -s -t 7200 -c 游戏时间到了 ", vbHide

isclose = 0

End Sub

Private Sub Command4_Click()

Shell "cmd /k shutdown -s -t 10800 -c 游戏时间到了 ", vbHide

isclose = 0

End Sub

Private Sub Command5_Click()

Form2.Show

End Sub

Private Sub Command6_Click()

Form3.Show

End Sub

Private Sub Form_Load()

pw = openfile("e:\autoshutdown.txt")

'MsgBox pw

Command5.Caption = "取消"

Command6.Caption = "修改密码"

End Sub

Public Function openfile(ByVal filepath As String) As String '读入文件函数

Dim data As String

Open filepath For Input As #1

While Not EOF(1)

Line Input #1, sline

data = data & sline & vbCrLf

Wend

Close #1

openfile = data

End Function
复制代码form2:Private Sub Command1_Click()

If Trim(Text1.Text) = Trim(Form1.pw) Then

'MsgBox xx

Shell "cmd /k shutdown -a", vbHide

Form2.Hide

Else: Text1.Text = ""

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "密码:"

Text1.PasswordChar = "*"

Text1.Text = ""

Command1.Caption = "确定"

Command1.Default = True

'MsgBox Form1.pw

End Sub
复制代码form3:Private Sub Command1_Click()

Dim aa

aa = Form1.pw

Dim bb

bb = Text1.Text

If InStr(aa, bb) <> 0 Then

Form1.pw = Text2.Text

'Print pw

Dim path As String

Dim txt As String

path = "e:\autoshutdown.txt"

txt = Form1.pw

Call savefile(path, txt)

Form3.Hide

Else: Text1.Text = ""

Text2.Text = ""

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "旧密码:"

Text1.PasswordChar = "*"

Text1.Text = ""

Label2.Caption = "新密码:"

Text2.PasswordChar = "*"

Text2.Text = ""

Command1.Caption = "确定"

Command1.Default = True

End Sub

Public Function savefile(ByVal filepath As String, ByVal txt As String) '保存文件函数

Open filepath For Output As #1

Print #1, txt

Close #1

End Function
复制代码

可以加分

Answer 1

'替换这个函数看看：
Public Function openfile(ByVal filepath As String) As String '读入文件函数

Dim data As String
Open filepath For Input As #1

While Not EOF(1)

Line Input #1, sline
data = data & sline & vbNewLine'你忽略了最后1个换行符

Wend

Close #1

openfile = Left(data, Len(data) - Len(vbNewLine))'去掉被你忽略的换行符

End Function

Answer 2

这样看看：
MsgBox "-" & Trim(Text1.Text) & "-" & vbCrLf & _
"-" & Trim(Form1.pw) & "-"