当前位置:编程学习 > VB >>

注册代码VB语言 有的,分全给他

注册代码VB语言,谁能给我 --------------------编程问答-------------------- 没看懂?注册控件的代码? --------------------编程问答-------------------- 我觉得是注册机之类的,把用户名拿去随便算算就得了。 --------------------编程问答--------------------
引用 2 楼 alifriend 的回复:
我觉得是注册机之类的,把用户名拿去随便算算就得了。
+2 --------------------编程问答--------------------
Private Sub Command1_Click() '注册
Dim OldUserName, OName() As String
If Text1.Text <> "" And Text2.Text <> "" Then '如果注册用户名与密码都不为空,则开始注册
Open "C:\user.dat" For Input As #1 '读取已注册用户的账户文件,判断新注册用户名与已注册用户名是否重复
Do Until EOF(1)
Line Input #1, OldUserName
OName() = Split(OldUserName, ",")
If OName(0) = Text1.Text Then MsgBox "该用户名已注册,请重新选择用户名", , "占用": Close #1: Exit Sub
Loop
Close #1
Open "C:\user.dat" For Append As #1
 Print #1, Text1.Text & "," & Text2.Text '保存新注册的用户信息
Close #1
MsgBox "恭喜您,您的注册已经成功!", , "成功"
End If
End Sub
Private Sub Command2_Click() '登录
Dim OldUserName As String
Open "C:\user.dat" For Input As #1 '读取已注册用户的账户文件,判断登录用户名与密码是否一致
Do Until EOF(1)
Line Input #1, OldUserName
If OldUserName = Text1.Text & "," & Text2.Text Then MsgBox "恭喜您,您的登录已经成功!", , "登录成功": Close #1: Exit Sub
Loop
Close #1
MsgBox "用户名或密码错误,请重新输入!", 16, "错误": Exit Sub
End Sub

百度的你看能用不  --------------------编程问答-------------------- ...没猜明白的路过. --------------------编程问答-------------------- 现在的汉语语法是不是也有改变了..... --------------------编程问答-------------------- if username <> "abc" then end
这个算么? --------------------编程问答-------------------- 我是才学的 每个都看下学习 多看 都学!
补充:VB ,  资源
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,