求一份VB.NET的注冊頁面的代碼

創建完相應的用戶名，密碼控件之后，輸入以下代碼：

創新互聯建站-專業網站定制、快速模板網站建設、高性價比沁水網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式沁水網站制作公司更省心,省錢,快速模板網站建設找我們，業務覆蓋沁水地區。費用合理售后完善，10余年實體公司更值得信賴。

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

vb.net 排列組合 代碼

第一題:

不需要任何控件,代碼如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("數字的個數", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請輸入數字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "請輸入大于0的數字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "個數字", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請輸入數字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

Next

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

Next

Next

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Next

Print "已經把"; N; "個數寫入到"; App.Path; "\1.txt 到 "; N; ".txt中.請查看."

End Sub

'已經運行過.

第二題:

DIM 是變量聲明語句,它的格式為:

dim 變量名[as 格式] [,變量名[as 格式][,變量名[as 格式]......]

其中:

變量名:以字母或漢字開始的字串,代表一個變量

格式有以下幾種:

屬于數字的有五種:

(1)字節型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)長整形:long(可取值范圍很大的正負整數)

(4)單精度型:single(可取值小數)

(5)雙精度型:double(可取值范圍更大,小數位數更多的小數)

字符串型:string(可代表由字母\數字或漢字組成的字符集合)

布爾型:boolean(取值為ture\false)

日期型:date(可表示形如2009-5-26 02:36這樣的組合)

如果要用姓名\住址\單位名稱...等用字符串型(string)

eg:dim name as string(用name變量表示名字時,聲明成字符串變量)

如果是用數字需要做計算,如工資\合計\人數....等要用數字型,但有一個原則,優先選用范圍小的(按照字節型(byte)\整形(integer)\長整形(long)\單精度型(single)\雙精度型(double)的順序選擇),夠用就可以了,這樣可以占用內存少,運算速度快.

eg:dim count as integer(用integer表示員工人數時,可聲明成整形變量)

eg:dim sum as single(用sum表示工資時,可聲明成單精度型變量)

不知是否說得清楚了.

關于Visual Studio ,vb.net語言代碼

If DateTime.Now.Hour 6 And DateTime.Now.Hour 12 Then Me.Text = "上午好"

If DateTime.Now.Hour 12 And DateTime.Now.Hour 18 Then Me.Text = "下午好"

If DateTime.Now.Hour 18 And DateTime.Now.Hour 20 Then Me.Text = "晚上好"

跪求vb.net代碼

新建窗口，添加picture控件

利用line()方法畫線

line(開始x坐標,開始y坐標)-(結束x坐標,結束y坐標),線的顏色，畫線的方式(默認為線，B為矩形無填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫也可以調用窗口的line方法即form.line()

網頁題目：vb.net代碼百度云,VBNET下載
地址分享：http://vcdvsql.cn/article26/heddjg.html

成都網站建設公司_創新互聯，為您提供面包屑導航、搜索引擎優化、自適應網站、網頁設計公司、靜態網站、營銷型網站建設

廣告

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