Question

如何用vb6.0制作软件 有登陆命令的 会的再给分 密码错误会弹出窗口“密码错误”

Answer 1

密码为固定的，可以这么写：
private sub command1_click()
if text1.text="123456“then'如果等于123456那么
unload form1
load form2
form2.show
else
msgbox"密码错误",0+48,“安全提示"
end if
end sub
密码需要修改保存的话相对要复杂点，涉及到text的输入与输出。
下面这段代码是将文本文件mmjl.txt输出到label1中
Dim TempFile As Long
Dim LoadBytes() As Byte
TempFile = FreeFile
Open "D:\mmjl.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Label1.Caption = StrConv(LoadBytes, vbUnicode)
这下面这段是将text2.text中内容保存在mmjl.txt中
Open "D:\mmjl.txt" For Binary As #1
Put #1, , Text2.Text
Close #1
不足之处，仅供参考。

Answer 2

单个界面就可以了，密码需要保存吗？扣扣为五六三一三六七三九