新建一個(gè)Sub : Main
目前創(chuàng)新互聯(lián)建站已為上1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計(jì)、儋州網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
Private Sub Main()
xxx.show 'xxx指啟動(dòng)窗體
'載入圖片、數(shù)據(jù)庫(kù)之類的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-屬性將"Main"作為啟動(dòng)對(duì)象
哈哈簡(jiǎn)單哪
第一步:登陸網(wǎng)頁(yè)代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網(wǎng)頁(yè)代碼,判斷網(wǎng)頁(yè)字符有無(wú)”登陸成功”字樣
源代碼:
2.就是判斷網(wǎng)頁(yè)是否跳轉(zhuǎn)到了某一頁(yè)
源代碼:
兩種方法結(jié)合起來(lái)用,可以判斷網(wǎng)頁(yè)是否無(wú)法連接
創(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
me.dispose()
樓主針對(duì)這個(gè)問(wèn)題我也糾結(jié)過(guò)很久不過(guò)就在剛剛我找到了問(wèn)題所在:
還是用me.close()
打開(kāi)
項(xiàng)目
》
最下面一行有一個(gè)屬性》
應(yīng)用程序》下面
有一個(gè)關(guān)機(jī)模式
改為:當(dāng)最后一個(gè)窗體關(guān)閉時(shí)。。。注意
me.close要寫(xiě)在窗體show()后面
例如
寫(xiě)成
f2.show()
me.close()
不要寫(xiě)成
me.close()
f2.show()
當(dāng)前題目:vb.net登錄界面代碼 vb中登錄的代碼怎么寫(xiě)
當(dāng)前路徑:http://jinyejixie.com/article0/dosgdoo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營(yíng)銷推廣、定制開(kāi)發(fā)、商城網(wǎng)站、營(yíng)銷型網(wǎng)站建設(shè)、微信小程序、域名注冊(cè)
聲明:本網(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)