怎么用VB设计一个登陆界面？

1.首先添加2个label控件，一个caption为用户名，一个为密码然后分别在2个label控件后面添加一个text控件，

“真诚服务，让网络创造价值”是我们的服务理念，创新互联公司团队10年如一日始终坚持在网站建设领域,为客户提供优质服。不管你处于什么行业，助你轻松跨入“互联网+”时代，PC网站+手机网站+公众号+重庆小程序开发。

2.将text的text属性设置为空再添加2个button按钮，一个名为登陆，一个名为取消简要代码如下：

private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '这里写验证代码...  '通过验证后要干么elsemsgbox("用户名或者密码不正确！")end if end subprivate sub button2_click()endend sub

vb.net若要设计一个要求用户输入密码登陆界面则接受用户密码输入可使用的最佳

Try

Conn = New SqlConnection("Data Source = ASTRAYBI-PC;Initial Catalog = Attendsystem;"  "Integrated Security = false; User ID=sa;Password=********")

Conn.Open()

Comm = New SqlCommand("pwd_CheckPass", Conn)

Comm.CommandType = CommandType.StoredProcedure

Comm.Parameters.Add("@CHKName", SqlDbType.VarChar, 30).Value = TBuser.Text

Comm.Parameters.Add("@CHKPass", SqlDbType.VarChar, 10).Value = TBpwd.Text

Comm.Parameters.Add("@ISValid", SqlDbType.VarChar, 20).Direction = ParameterDirection.Output

Comm.ExecuteNonQuery()

If Comm.Parameters("@ISValid").Value = "Good" Then

MessageBox.Show("Welcome!")

Attendsys.Show()

Me.Hide()

Else

MessageBox.Show("Wrong Password Or Unexisted User!")

End If

Catch ex As Exception

MessageBox.Show(ex.ToString())

End Try

具体步骤是建立数据库连接，赋值textbox控件，验证！

VB.net制作启动界面

新建一个Sub ： Main

Private Sub Main()

xxx.show 'xxx指启动窗体

'载入图片、数据库之类的

Unload xxx

{from}.show '{from}指主界面

End Sub

然后在工程-属性将"Main"作为启动对象

当前文章：vb.net用户界面设计 vb设计登录界面与代码界面
分享地址：http://hbruida.cn/article/dohchhs.html