1、VB设计一个登陆(注册)界面
将以下代码复制到Form1.frm中，然后用vb打开Form1.frm。
’代码开始
VERSION
5.00
Begin
VB.Form
Form1
Caption
=
"Form1"
ClientHeight
=
1260
ClientLeft
=
60
ClientTop
=
345
ClientWidth
=
4065
LinkTopic
=
"Form1"
ScaleHeight
=
1260
ScaleWidth
=
4065
StartUpPosition
=
3
'窗口缺省
Begin
VB.CommandButton
C1
Caption
=
"确定"
Height
=
495
Left
=
960
TabIndex
=
2
Top
=
480
Width
=
1815
End
Begin
VB.TextBox
T1
Height
=
270
Left
=
840
TabIndex
=
0
Top
=
120
Width
=
2895
End
Begin
VB.Label
Label1
AutoSize
=
-1
'True
BorderStyle
=
1
'Fixed
Single
Caption
=
"账号："
Height
=
240
Left
=
120
TabIndex
=
1
Top
=
120
Width
=
600
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Private
Sub
C1_Click()
Static
num
As
Integer
'定义静态变量，储存次数
If
T1
=
"abcd"
Then
'假设账号为abcd
MsgBox
"登录成功"
End
ElseIf
num
=
3
-
1
Then
MsgBox
"你无权使用本系统"
End
Else
MsgBox
"账号错误,再次一次"
num
=
num
+
1
End
If
End
Sub
'代码结束
2、vb设计用户登陆的简单界面
'Text1用来输入密码，Cmd1是“登录”按钮
Private Sub Cmd1_Click()
If UCase(Text1.Text) = "ABC" Then ’将text1中字母全变大写再判断
MsgBox "欢迎使用本系统内!"
Else
MsgBox "密码错误，容请重新输入！"
End If
End Sub
Private Sub Form_Load()
Text1.text = ""
Text1.PasswordChar = "*" ‘使Text1中字符为*
End Sub
'大概就是这样了。。。求分分~~
3、VB制作登录以及注册界面
呵呵。朋友是不是想要杀鸡的先生也给你杀猪啊。VB制作的是独立的应用程序，你不能把它当作别的什么来用的。抱歉。我并不知道，你真正想怎么做。
4、VB与Access设计登录界面
你的conn虽然定义了，但是没有打开，rs_login肯定open不了...
需要这样：
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\xxx.mdb;Jet OLEDB:Database Password=数据库密码"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
当然连接字串中的数版据库路权径和密码要改成你的...
祝你成功！
5、VB设计登录程序，设计简单的用户登录程序
Dim
AAA
As
String
Private
Sub
Command1_Click()
Dim
aa,
bb
aa
=
"admin"
'账号
bb
=
"admin888"
'密码复
AAA
=
Val(AAA)
+
1
'记录登录次数制
If
Val(AAA)
>=
3
Then
'等于大于3次，提示并退出程序
MsgBox
"你已经错误输入三次！"
End
End
If
If
Text1
=
aa
And
Text2
=
bb
Then
'如果输入正确
MsgBox
"登录成功!"
Me.Hide
form2.Show
'登录成功后，转到form2界面
Else
'如果输入错误
MsgBox
"账号或密码输入错误!"
End
If
End
Sub
Private
Sub
Form_Load()
Label1
=
"欢迎光临！"
End
Sub
6、VB制作一个简单登录页面
那是肯定无法实现你说的置换的，你的值是保存在代码里的，那就是固定的，即使你置换了，下次启动程序又恢复到最初值了。要达到你说的置换，就需要使用文件来实现保存、置换更新等等功能。
7、VB登录窗口制作代码和流程
'主窗口为form2， form1为登陆窗口，上面有2个text、1个command控件
Private Sub Command1_Click()
Static n
If Text1 = "119" Then
If Text2 = "911" Then
Form2.Show
Unload Me
Else
MsgBox "密码错误！"
Text2 = ""
Text2.SetFocus
End If
Else
MsgBox "用户名错误！"
Text1 = ""
Text1.SetFocus
End If
n = n + 1
If n = 3 Then Unload Me '错误次数3次
End Sub
8、用VB设计一个登陆界面，急！！！
Private Sub Command1_Click()
Static i As Integer
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "请输入用户名和密码", vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
End If
If Text1.Text = "admin" And Text2.Text = "admin" Then
MsgBox "用户名密码正确", vbOKOnly, "提示"
i = 0
Else
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
If i < 3 Then
MsgBox "用户名或密码错误，请重新输入", vbOKOnly, "提示"
i = i + 1
End If
If i = 3 Then
MsgBox "输入3次错误用户名或密码，程序将退出", vbOKOnly, "提示"
Unload Me
End If
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "用户名"
Label2.Caption = "密 码"
Text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*"
Command1.Caption = "确定"
End Sub
9、怎样用VB设计一个用户注册登录系统
怎么处理？当然是将用户数据保存到数据库中去啦！也可以保存到文本文件，看你 喜欢咯，既然不用代码也没什么好说的
10、VB设计登录程序，设计简单的用户登录程序
Dim AAA As String
Private Sub Command1_Click()
Dim aa, bb
aa = "admin" '账号
bb = "admin888" '密码
AAA = Val(AAA) + 1 '记录登录次数
If Val(AAA) >= 3 Then '等于大于3次，提示并退出程序
MsgBox "你已经错误输入三专次！"
End
End If
If Text1 = aa And Text2 = bb Then '如果输入正确
MsgBox "登录成功!属"
Me.Hide
form2.Show '登录成功后，转到form2界面
Else '如果输入错误
MsgBox "账号或密码输入错误!"
End If
End Sub
Private Sub Form_Load()
Label1 = "欢迎光临！"
End Sub