求具體VB.NET注釋

這時用vb6.0改寫的吧.net配置文件不用ini了，前面5行，判斷符合條件則獲取相關文本框中的內容，在下面4行把相關內容就是前面5行中的后4行的內容寫進ini配置文件，然后令btnDefault可用，同時調用btnDefault.PerformClick函數

創新互聯服務項目包括霍城網站建設、霍城網站制作、霍城網頁制作以及霍城網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，霍城網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到霍城省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

Private Sub frmDbConn_Load是該form啟動加載的一些參數，即獲取配置文件中的相關信息，同時把信息顯示在相關的文本框中。

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

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

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

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

Dim selestr As String

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

If schclass "" Then

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

Else

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

End If

‘創建一個DataView對象，即將數據集DataSet11里的學生成績表的DefaultView實例化

Dim dvresult As DataView = DataSet11.學生成績.DefaultView

’按學號字段排序

dvresult.Sort = "學號"

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

dvresult.RowFilter = selestr

dvresult.RowStateFilter = DataViewRowState.CurrentRows

’然后將篩選的結果輸入到datagrid上

DataGrid1.DataSource = dvresult

End Sub

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

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

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

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

Exit Sub

End If

‘定義鏈接、執行、閱讀 對象

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()

’將連接對象復制到執行對象上

mycmd.Connection = mycon

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

mycmd.CommandType = CommandType.Text

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

’然后將執行對象的監聽實例化

reader = mycmd.ExecuteReader()

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

If reader.Read = False Then

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

Else

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

Response.Redirect("lwmsg.aspx")

End If

’關閉監聽

reader.Close()

‘關閉連接

mycon.Close()

End Sub

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

html

head

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

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

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

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

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

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

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

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

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

'設置下拉列表框的數據源為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) '在頁面加載時發生的事件

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

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

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

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

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

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

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

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

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

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

'設置下拉列表框的數據源為values

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

????????DataList1.DataBind

??????End If

????End Sub

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

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

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

???????Return "奇數" '返回“奇數”

??????Else '否則

???????Return "偶數" '返回“偶數”

??????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

?????數字值: %# Container.DataItem %

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

????/ItemTemplate

???/asp:DataList

??/form

/body

/html

其他ASP的代碼實在不懂了

網頁標題：vb.net注釋程序的簡單介紹
本文地址：http://www.yijiale78.com/article40/hhcpho.html

成都網站建設公司_創新互聯，為您提供網站排名、響應式網站、品牌網站制作、企業網站制作、商城網站、網站內鏈

廣告

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