关于vb.net登陆界面实例的信息

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

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

成都创新互联是一家集网站建设,呈贡企业网站建设,呈贡品牌网站建设,网站定制,呈贡网站建设报价,网络营销,网络优化,呈贡网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

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写一个模拟的登录界面

解决方案资源管理器中右键菜单，添加，WINDOWS窗体，弹出的对话框中，左栏已安装的模板中选择WINDOWS FORMS ，右边中找到 登录窗体。添加 。程序会添加一个登录界面。很方便。你试下。

想用vb.net做一个登陆界面 在这个界面显示一个指针时钟。就像下面的。谁有现成的例子么？

这个控件不是.net Fremawork自带的，是用户自己添加的控件，你可以去网上找这样的控件，在VS里添加引用就可以了

asp.net (vb)编写登陆页面（100分）

system.data.sqlclient,而access则是引用的system.data.oledb

sub qd1(sender as object,e as eventargs)

dim user,pas as string

user = xm.text

pas = mm.text

dim myconn as string

myconn = "provider=microsoft.jet.oledb.4.0;" "data source=" server.mappath("data/fang.mdb")

dim xm1,zw,qx as string

'检查用户名是否为空

if xm.text"" then

try

dim mysql as string

mysql="select * from 管理 where 用户名='" user "' and 密码='" mm "'"

dim mycmd as oledbdataadapter = new oledbdataadapter(mysql,myconn)

dim ds as dataset = new dataset()

mycmd.fill(ds,"管理")

dim mytable1 as datatable

mytable1=ds.tables("管理")

if user=mytable1.rows(0).item(1) and pas=mytable1.rows(0).item(3) then

xm.text=""

else

message.text="请重新输入！"

end if

catch ex as exception

message.text="用户名或密码有问题，请确认后重新输入！"

end try

else

message.text="用户名或密码有问题，请确认后重新输入！"

end if

end sub

下面是注册用的，可以同时检查是否有重名。

dim myconn as oledbconnection

dim mycmd,mycmd1,mycmd2,mycmd3 as oledbcommand

dim strcon as string

dim strsql,strsql1,strsql2 as string

strcon ="provider=microsoft.jet.oledb.4.0;""data source="server.mappath("data/fang.mdb")

myconn = new oledbconnection(strcon)

myconn.open()

strsql = "select * from 管理 where 管理.用户名='" m_1 "'"

mycmd = new oledbcommand(strsql,myconn)

dim reader as oledbdatareader

reader = mycmd.executereader()

if reader.read() then '若存在

message.text="您输入的用户名已存在，请重新输入！"

reader.close()

myconn.close()

else '不存在，写入数据库

reader.close()

if m_4="管理员" then

strsql1="insert into 管理() values()"

mycmd1 = new oledbcommand(strsql1,myconn)

mycmd1.executenonquery

myconn.close()

message.text="您已成功注册！"

else

strsql2="insert into 管理() values()"

mycmd2 = new oledbcommand(strsql2,myconn)

mycmd2.executenonquery

myconn.close()

message.text="您已成功注册！"

end if

end if

else

message.text = "请检查页面中是否有错误！"

end if

end if

end sub