Question

如何用VB6.0设置一个修改密码的按钮？

我自己根据需要，想设计一个修改密码的按钮，如图，初始密码是123，但是新修改的密码不能在重新启动时加载，请大侠指点，本人是菜鸟。

代码台下：
Dim A As Double
Dim X As Double

Private Sub Form_Load()
X = 123
A = X
End Sub

Private Sub Command1_Click() '密码登录
If Form1.Text1.Text = Trim(A) Then
MsgBox "恭喜您，密码正确"
Label1 = "欢迎你进入VB世界"
Label1.Alignment = 2
Text1.Visible = False

Else
MsgBox "密码不正确，请重新输入"
Form1.Text1.Text = ""
End If
End Sub
Private Sub Command2_Click() '修改密码
B = InputBox("请输入原有密码", 密码输入)
If B = A Then
B1 = InputBox("请输入新密码", 密码输入)
B2 = InputBox("请输入新密码", 密码输入)

If B2 = B1 Then
MsgBox "密码修改成功"
X.Load = B1
Else
MsgBox "新密码不一致，请重新修改"

End If

Else
MsgBox "原有密码不正确，请重新修改"
End If

End Sub

Answer 1

你需要将密码存放在某个地方，比如某个文件或者注册表里面，每次登陆需要提出该值与输入的值对比，判断是否可以登陆，修改密码时需要将新密码替换旧密码写入文件或注册表

Answer 2

提示：
你的这个初试密码是保存在程序里的，而你修改后的新密码是无法保存在程序里的，那就得使用文件形式来保存！这就是为什么许多程序自己会有许多各种各样的文件的原因。