怎么用VB設(shè)計一個登陸界面？

1.首先添加2個label控件，一個caption為用戶名，一個為密碼然后分別在2個label控件后面添加一個text控件，

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),呈貢企業(yè)網(wǎng)站建設(shè),呈貢品牌網(wǎng)站建設(shè),網(wǎng)站定制,呈貢網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,呈貢網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

2.將text的text屬性設(shè)置為空再添加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做一個登陸界面 在這個界面顯示一個指針時鐘。就像下面的。誰有現(xiàn)成的例子么？

這個控件不是.net Fremawork自帶的，是用戶自己添加的控件，你可以去網(wǎng)上找這樣的控件，在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="用戶名或密碼有問題，請確認(rèn)后重新輸入！"

end try

else

message.text="用戶名或密碼有問題，請確認(rèn)后重新輸入！"

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 '不存在，寫入數(shù)據(jù)庫

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