新建一個Sub : Main
目前創(chuàng)新互聯(lián)建站已為上1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計、儋州網(wǎng)站維護(hù)等服務(wù),公司將堅持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
Private Sub Main()
xxx.show 'xxx指啟動窗體
'載入圖片、數(shù)據(jù)庫之類的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-屬性將"Main"作為啟動對象
哈哈簡單哪
第一步:登陸網(wǎng)頁代碼
第二步:登陸以后判斷是否登陸成功
有兩種方法:1.獲取網(wǎng)頁代碼,判斷網(wǎng)頁字符有無”登陸成功”字樣
源代碼:
2.就是判斷網(wǎng)頁是否跳轉(zhuǎn)到了某一頁
源代碼:
兩種方法結(jié)合起來用,可以判斷網(wǎng)頁是否無法連接
創(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("登錄失敗,請確認(rèn)用戶名和密碼")
End If
End Sub
End Class
me.dispose()
樓主針對這個問題我也糾結(jié)過很久不過就在剛剛我找到了問題所在:
還是用me.close()
打開
項目
》
最下面一行有一個屬性》
應(yīng)用程序》下面
有一個關(guān)機模式
改為:當(dāng)最后一個窗體關(guān)閉時。。。注意
me.close要寫在窗體show()后面
例如
寫成
f2.show()
me.close()
不要寫成
me.close()
f2.show()
當(dāng)前題目:vb.net登錄界面代碼 vb中登錄的代碼怎么寫
當(dāng)前路徑:http://m.rwnh.cn/article0/dosgdoo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營銷推廣、定制開發(fā)、商城網(wǎng)站、營銷型網(wǎng)站建設(shè)、微信小程序、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)