Private Sub Command1_Click()
中方ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書(shū)未來(lái)市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)的ssl證書(shū)銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書(shū)合作)期待與您的合作!
Static i As Integer
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "請(qǐng)輸入用戶名和密碼", vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
End If
If Text1.Text = "admin" And Text2.Text = "admin" Then
MsgBox "用戶名密碼正確", vbOKOnly, "提示"
i = 0
Else
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
If i 3 Then
MsgBox "用戶名或密碼錯(cuò)誤,請(qǐng)重新輸入", vbOKOnly, "提示"
i = i + 1
End If
If i = 3 Then
MsgBox "輸入3次錯(cuò)誤用戶名或密碼,程序?qū)⑼顺?, vbOKOnly, "提示"
Unload Me
End If
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "用戶名"
Label2.Caption = "密 碼"
Text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*"
Command1.Caption = "確定"
End Sub
你去學(xué)習(xí)如何建立窗體,如何調(diào)出窗體,隱藏窗體,等等,就可以了。如果這個(gè)些不會(huì),你就沒(méi)法做成注冊(cè)的。
創(chuàng)建完相應(yīng)的用戶名,密碼控件之后,輸入以下代碼:
Imports System.Data.OleDb
Public Class Form1
Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
Dim m_username As String
Dim m_userpwd As String
Dim cmd_result As MsgBoxResult
Dim m_da As New OleDbDataAdapter
Dim m_ds As New DataSet
Dim m_command As New OleDbCommand
Dim strsql As String
m_username = txtusername.Text
m_userpwd = txtuserpwd.Text
strsql = " select * from user_info where username='" m_username "' and userpwd='" m_userpwd "'"
OleDbConnection1.Open()
m_command.CommandType = CommandType.Text
m_command.CommandText = strsql
m_command.Connection = OleDbConnection1
m_da.SelectCommand = m_command
m_da.Fill(m_ds, "user_info")
If m_ds.Tables("user_info").Rows.Count 0 Then
cmd_result = MsgBox("歡迎登錄", MsgBoxStyle.OKOnly, "提示")
Else
MsgBox("登錄失敗,請(qǐng)確認(rèn)用戶名和密碼")
End If
End Sub
End Class
用格式轉(zhuǎn)換器(格式工廠)把ico格式轉(zhuǎn)換成其他可識(shí)別的格式
然后在添加
下一步(你的意思是要在界面設(shè)計(jì)中 往窗體上添加工具欄嗎?)
工具箱中 ---- 菜單和工具欄 ----- MenuStrip
窗體上方出現(xiàn) '請(qǐng)?jiān)俅捂I入'(vs2010中) 的框框 點(diǎn)一下就可以放"打開(kāi)"什么的了
右面屬性中找到Image屬性.可以更改你自己的圖片了.
知道了嗎?
還有疑問(wèn)你就追問(wèn) ````赫赫
1.首先添加2個(gè)label控件,一個(gè)caption為用戶名,一個(gè)為密碼然后分別在2個(gè)label控件后面添加一個(gè)text控件,
2.將text的text屬性設(shè)置為空再添加2個(gè)button按鈕,一個(gè)名為登陸,一個(gè)名為取消簡(jiǎn)要代碼如下:
private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '這里寫驗(yàn)證代碼... ?'通過(guò)驗(yàn)證后要干么elsemsgbox("用戶名或者密碼不正確!")end if end subprivate sub button2_click()endend sub
網(wǎng)站題目:vb.net注冊(cè)界面設(shè)計(jì) vb設(shè)計(jì)注冊(cè)頁(yè)面
當(dāng)前路徑:http://jinyejixie.com/article16/dosdhgg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制開(kāi)發(fā)、關(guān)鍵詞優(yōu)化、網(wǎng)站收錄、云服務(wù)器、靜態(tài)網(wǎng)站、自適應(yīng)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)