VB制作登录框密码账户确认进入另一个窗口

谁给个vb的登入界面代码 要求：一打开就出现一个登入界面。密码，账号都是123456。如果输入对了就~

command1:
if text1.text="123456" then
iftext2.text="123456" then

'登陆成功的代码

else

MsgBox "密码错误", vbOKOnly, "提示：密码错误"
end if

else
MsgBox "账号错误", vbOKOnly, "提示：账号错误"
end if

miui的安全中心右上角有个软件锁，360也有

首先添加两个窗体form1和form2，再在form1上添加控件:Label1、Label2、textbox1、textbox2和一个command1。
假如form1是系统的“欢迎界面” form2是“系统界面”，那么在form1中写下：

Dim i As Integer
Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "admin" Then
Form1.Hide
Form2.Show
Else
i = i + 1
MsgBox "用户名或密码错误" & vbLf & vbLf & " " & "( " & i & " of " & "3 )", vbInformation, " 警告"
End If
If i >= 3 Then
MsgBox "登陆失败，程序关闭", vbCritical, "登陆失败"
Unload Form1
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "请输入用户名："
Label2.Caption = "请输入密码："
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登 陆"
Form1.Caption = "用户登陆验证窗口"
End Sub


name=text1.text
pass=text2.text
if name="Admin" and pass ="123456" then
form2.show
else
msgbox "用户名或者密码错误！"
end if

要源码？
留下e-mail，我给你发！！！！！！！！！

---

安西县18398529261： VB制作登录框密码账户确认进入另一个窗口 - ？
勾冯功劳： 首先添加两个窗体form1和form2,再在form1上添加控件:Label1、Label2、textbox1、textbox2和一个command1. 假如form1是系统的“欢迎界面” form2是“系统界面”,那么在form1中写下:Dim i As Integer Private Sub Command1_Click(...

安西县18398529261： 用VB做一个登陆界面 用户名 密码 验证码 点确定按钮跳转到一个界面 - ？
勾冯功劳： Private Sub Command1_Click() If text3.Text = mYZ Then xxx Else xxx End If End Sub Private Function mYZ() mYZ = xxx End Function

安西县18398529261： 怎样在VB中实现在文本框中输入用户名和密码后点击按钮进入另一个页面 - ？
勾冯功劳： 用if then 和Load和show OK

安西县18398529261： vb做登录系统如何实现点击确认就进入系统了 - ？
勾冯功劳： 首先添加两个窗体form1和form2,再在form1上添加控件:Label1、Label2、textbox1、textbox2和一个command1.假如form1是系统的“欢迎界面” form2是“系统界面”,那么在form1中写下:Dim i As Integer Private Sub Command1_Click() ...

安西县18398529261： 用VB编写程序(设计密码验证登录窗体,密码正确显示登录成功,否则若三次错误,退出程序) - ？
勾冯功劳： 先设计好界面,(如:用标签控件,2个文本框,)在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框的属性名称中输入username.在设置字体 想要输入错误密码三次退出程序方法如下; 在密码的代码框中输入:unload.me chick=3. End sub

安西县18398529261： vb2005怎样才能实现账户和密码正确才进入另一个窗体 - ？
勾冯功劳： 在登录窗体加载时让另一个窗体隐藏. 判断账户和密码输入正确后卸载登录窗体并显示另一个窗体.

安西县18398529261： 简单的正确验证用户名密码后进入系统的VB代码 - ？
勾冯功劳： 你先添加一个文本框名为text1 和一个命令按钮名为command1,把文本框的passwordChar 属性值设为* 先默认密码为123,密码可以修改的 Private Sub Command1_Click() Dim i As String If Val(Text1.Text) = 123 Then i = MsgBox(＂密码正确!进入系统!＂, 48, ＂验证结果＂) Else i = MsgBox(＂密码错误!无法进入!＂, 48, ＂验证结果＂) End If End Sub

安西县18398529261： 想在ppt中vb中做一个登录界面,不过只要验证密码就可以了,密码正确就到下一张,否则提示密码错误. - ？
勾冯功劳： 在 视图-工具栏-选择VB,在弹出的界面,点VB编辑器就可编程了.添加一个文本框和按钮,文件框输入密码,按钮验证密码.

安西县18398529261： VB做登录界面,当正确输入帐户和密码,显示登录成功时怎样进入系统界面,如何写代码?在哪写? - ？
勾冯功劳： 弄一个登录的界面.先新添加一个窗体,在这个窗体上放上你要的控件,比如放用户名呀,密码呀什么的.然后右键点击你的VB右边的那个小窗口也就是导航窗口上的“工程1”(注,如果你已给你的工程取了名字,此处应该显示的是你取的名字),然后选择“工程项1属性”,这时会弹出一个对话框,里面有个“通用”选项卡,在这个界面里有个启动对象,把你刚建立的窗体设置在里里,然后点击确定,这时程序将可以从你刚建立的窗体启动,你只要在这个刚建立的窗体代码里写上验证密码的代码就可以了,如果密码错误就“end”,正确就＂Load 你的主窗体＂.

安西县18398529261： VB中,如果登录界面的用户名称是jenny,密码是12345,点确定按钮就进入一个主界面,程序代码是什么?急!？
勾冯功劳： 登陆界面为form1,加一个Text1,输入用户名,text2,输入密码,一个按钮,用来登陆,进入的主界面为form2,代码如下 Private sub command1_click() if text1.text=＂jenny＂ and text2.text=＂12345＂ then form2.show else msgbox (＂用户名不存在或密码错误!＂) end if end sub