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