初學(xué)VB.NET四天`高手幫我注釋一下代碼

html

專注于為中小企業(yè)提供網(wǎng)站制作、網(wǎng)站設(shè)計服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)寶清免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了近1000家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

head

?script language="VB" runat="server"

??Sub Page_Load(sender As Object, e As EventArgs) '在頁面加載時發(fā)生的事件

???If Not IsPostBack Then '如果不是IsPostBack的話

????Dim values as ArrayList= new ArrayList() '新建一個名為values的數(shù)組列表

'以下代碼中，往values中添加項目

????values.Add ("北京")

????Values.Add ("上海")

????Values.Add ("天津")

????Values.Add ("哈爾濱")

'設(shè)置下拉列表框的數(shù)據(jù)源為values

????DropDown1.DataSource = values

????DropDown1.DataBind

???End If

??End Sub

?/script

/head

body

?form runat="server"

???asp:DropDownList ID="DropDown1" runat="server" /

?/form

/body

/html

html

head

??script language="VB" runat="server"

????Sub Page_Load(sender As Object, e As EventArgs) '在頁面加載時發(fā)生的事件

??????If Not IsPostBack Then '如果不是IsPostBack的話

????????Dim values as ArrayList= new ArrayList() '新建一個名為values的數(shù)組列表

'以下代碼中，往values中添加項目

????????values.Add (0)

????????values.Add (1)

????????values.Add (2)

????????values.Add (3)

????????values.Add (4)

????????values.Add (5)

????????values.Add (6)

'設(shè)置下拉列表框的數(shù)據(jù)源為values

????????DataList1.DataSource = values

????????DataList1.DataBind

??????End If

????End Sub

定義一個名為EvenOrOdd的函數(shù)，參數(shù)有number，返回一個字符串

????Function EvenOrOdd(number As Integer) As String

??????If (number Mod 2 0) Then '如果number÷2的余數(shù)不等于0

???????Return "奇數(shù)" '返回“奇數(shù)”

??????Else '否則

???????Return "偶數(shù)" '返回“偶數(shù)”

??????End If

????End Function

??/script

/head

body

??form runat="server"

???asp:DataList id="DataList1" runat="server"

????BorderColor="#000000"

????BorderWidth="1"

????GridLines="Both"

????CellPadding="3"

????CellSpacing="0"

????

????ItemTemplate

?????數(shù)字值: %# Container.DataItem %

?????偶/奇: %# EvenOrOdd(Container.DataItem) %

????/ItemTemplate

???/asp:DataList

??/form

/body

/html

其他ASP的代碼實在不懂了

VB.NET的 把重點的語句注釋下就行了

'''兩段程序就是利用.net的連接對象的功能來完成登錄的實例

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按鈕觸發(fā)的函數(shù)

Dim schclass As String = Trim(txtClass.Text) ‘將txtClass里文本賦值給變量schclass

Dim selestr As String

’提示用戶txtClass文本框不能為空

If schclass "" Then

selestr = "班級='" schclass "'"

Else

MsgBox("請輸入班級名稱", 64, "提示") ‘ 顯示保存成功提示信息

End If

‘創(chuàng)建一個DataView對象，即將數(shù)據(jù)集DataSet11里的學(xué)生成績表的DefaultView實例化

Dim dvresult As DataView = DataSet11.學(xué)生成績.DefaultView

’按學(xué)號字段排序

dvresult.Sort = "學(xué)號"

‘按剛才txtClass里輸入的班級查詢

dvresult.RowFilter = selestr

dvresult.RowStateFilter = DataViewRowState.CurrentRows

’然后將篩選的結(jié)果輸入到datagrid上

DataGrid1.DataSource = dvresult

End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按鈕觸發(fā)的函數(shù)

’如果txtUserName或txtPass文本框為空，提示并中斷函數(shù)

If txtUserName.Text = "" Or txtPass.Text = "" Then

Response.Write("script language=vbscriptalert""用戶名或密碼不能為空！""/script")

Exit Sub

End If

‘定義鏈接、執(zhí)行、閱讀 對象

Dim mycon As New OleDbConnection

Dim mycmd As New OleDbCommand

Dim reader As OleDbDataReader

’給連接對象賦值連接字符串，access類型的。

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

Server.MapPath("Msg.mdb")

‘打開連接對象

mycon.Open()

’將連接對象復(fù)制到執(zhí)行對象上

mycmd.Connection = mycon

‘然后就給執(zhí)行對象賦值執(zhí)行類型和執(zhí)行語句

mycmd.CommandType = CommandType.Text

mycmd.CommandText = "Select * from myuser Where 用戶名='" txtUserName.Text "'" " and 密碼='" txtPass.Text "'"

’然后將執(zhí)行對象的監(jiān)聽實例化

reader = mycmd.ExecuteReader()

‘如果執(zhí)行不成功，即沒有得到結(jié)果集就提示否則將結(jié)果集的用戶名賦值給一個session以供其他頁面使用

If reader.Read = False Then

Response.Write("script language=vbscriptalert""用戶名或密碼錯，你不能登錄！""/script")

Else

Session("username") = reader("用戶名")

Response.Redirect("lwmsg.aspx")

End If

’關(guān)閉監(jiān)聽

reader.Close()

‘關(guān)閉連接

mycon.Close()

End Sub

注釋一段VB代碼

Private Sub cmdDel_Click() '"刪除"命令按鈕 Dim res As Integer '定義變量res res = MsgBox("確實要刪除此行記錄？", _ vbExclamation + vbYesNo + vbDefaultButton2) '調(diào)用MsgBox彈出是否對話框，將用戶點選結(jié)果返回res變量 If res = vbYes Then '若用戶點擊“是”按鈕 AdodcCustomer.Recordset.Delete '將ADO數(shù)據(jù)庫控件AdodcCustomer記錄集的當前指針指向的記錄刪除 AdodcCustomer.Recordset.MoveNext '將ADO數(shù)據(jù)庫控件AdodcCustomer記錄集的當前指針向后移動一位 If AdodcCustomer.Recordset.EOF = True Then '若ADO數(shù)據(jù)庫控件AdodcCustomer記錄集的當前指針指向結(jié)尾 AdodcCustomer.Recordset.MoveLast '將ADO數(shù)據(jù)庫控件AdodcCustomer記錄集的當前指針移至末尾 End If '結(jié)束“If AdodcCustomer.Recordset.EOF = True Then”語句 End If '結(jié)束“If res = vbYes Then”語句 End Sub '結(jié)束“Private Sub cmdDel_Click()”過程

網(wǎng)站名稱：vb.net代碼注釋的簡單介紹
網(wǎng)頁路徑：http://chinadenli.net/article9/dsgjjih.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、品牌網(wǎng)站設(shè)計、網(wǎng)頁設(shè)計公司、面包屑導(dǎo)航、搜索引擎優(yōu)化、全網(wǎng)營銷推廣

廣告

聲明：本網(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)