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

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

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

2.將text的text屬性設(shè)置為空再添加2個(gè)button按鈕，一個(gè)名為登陸，一個(gè)名為取消簡要代碼如下：

private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '這里寫驗(yàn)證代碼... ?'通過驗(yàn)證后要干么elsemsgbox("用戶名或者密碼不正確！")end if end subprivate sub button2_click()endend sub

請用vb.net寫一個(gè)模擬的登錄界面

解決方案資源管理器中右鍵菜單，添加，WINDOWS窗體，彈出的對話框中，左欄已安裝的模板中選擇WINDOWS FORMS ，右邊中找到 登錄窗體。添加 。程序會(huì)添加一個(gè)登錄界面。很方便。你試下。

想用vb.net做一個(gè)登陸界面 在這個(gè)界面顯示一個(gè)指針時(shí)鐘。就像下面的。誰有現(xiàn)成的例子么？

這個(gè)控件不是.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

下面是注冊用的，可以同時(shí)檢查是否有重名。

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 = "請檢查頁面中是否有錯(cuò)誤！"

end if

end if

end sub

本文標(biāo)題：關(guān)于vb.net登陸界面實(shí)例的信息
當(dāng)前路徑：http://chinadenli.net/article6/hhjcig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、建站公司、商城網(wǎng)站、響應(yīng)式網(wǎng)站、電子商務(wù)、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)