vb代码；登录窗口输入用户名和密码

设Command1是登陆按钮，Text1是用户名框，Text2是密码框，代码如下。

-------------------------------

Private Sub Command1_Click()

If Not (Text1Text = 改为用户名 And Text2Text = 改为密码) Then

MsgBox "输入错误"

Text1Text = ""

Text2Text = ""

End If

End Sub

'假设你的登录窗口有一个文本框控件,名为Text1,用来输入密码; 一个按钮,名为cmdOK,用来点击登录; 窗体Form1是你输对密码后要显示的窗体,则用如下代码即可

Private Sub cmdOK_Click()

If Text1Text = "password" Then '把password改成你的密码

Form1Show

Unload Me

Else

Msgbox "密码错误,请重新输入"

End If

End Sub

程序界面

先把登录的界面设计好（输入用户名的是text1，输入密码的是text2）把text2的passwordchar值设为“”，这样当用户输入密码时，显示的字符就是“”了。

接着设计用户跳转的页面（可自己设计）

欢迎界面

然后，回到form1，鼠标左键双击确定按钮，进入代码窗口，输入：

If Text1Text = "rain" And Text2Text = "345" Then

  MeHide

Form2Show

Else

Msgbox "用户名称或密码错误",vbCritical, "提示"

Text1Text = ""

Text2Text = ""

End If

代码窗口

用VB向导做就好了：

VB中点击文件->新建工程->选择“VB引用程序向导”->点击六次下一步(当然，这六个页面都可以进行修改，按你需要)->

勾选“可接受ID和密码的“登录”对话框”，其他三个界面需要的话也可以勾选->然后点击完成->其中的frmLogin就是登录的界面了

界面和代码自动生成，只要修改部分就好了

Private Sub Cmd_Ok_Click()

Dim t As Integer

t = t + 1

If t >= 3 Then End '登陆三次自动退出

If trim(Txt_usernametext) = "a" And trim(Txt_passwordtext) = "b" Then

Form2Show

Elseif trim(Txt_usernametext) <> "a" and trim(Txt_passwordtext) = "b" then

i = MsgBox("您输入的用户名错误", vbRetryCancel + 16, "错误")

If i <> 4 Then

End

else

Txt_usernameSelStart = 0

Txt_usernameSelLength = Len(Txt_usernametext)

End If

elseif trim(Txt_usernametext) = "a" and trim(Txt_passwordtext) <> "b" then

i = MsgBox("您输入的密码错误", vbRetryCancel + 16, "错误")

If i <> 4 Then

End

else

Txt_passwordSelStart = 0

Txt_passwordSelLength = Len(Txt_passwordtext)

else

i = MsgBox("您输入的用户名和密码都错误", vbRetryCancel + 16, "错误")

If i <> 4 Then

End

else

Txt_usernametext=""

Txt_passwordtext=""

End If

End If

End Sub

以上就是关于vb代码；登录窗口输入用户名和密码全部的内容，包括:vb代码；登录窗口输入用户名和密码、用vb怎样设置登录密码，不需要用户名；密码正确则打开程序 。、VB 程序实例：设计登录程序，用户名（rain）和密码(345)匹配则进入下一个页面，否则给出提示等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！