VB.NET的 把重點(diǎn)的語(yǔ)句注釋下就行了

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

創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)與策劃設(shè)計(jì),邛崍網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:邛崍等地區(qū)。邛崍做網(wǎng)站價(jià)格咨詢:18982081108

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 = "班級(jí)='" schclass "'"

Else

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

End If

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

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

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

dvresult.Sort = "學(xué)號(hào)"

‘按剛才txtClass里輸入的班級(jí)查詢

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文本框?yàn)榭?，提示并中斷函?shù)

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

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

Exit Sub

End If

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

Dim mycon As New OleDbConnection

Dim mycmd As New OleDbCommand

Dim reader As OleDbDataReader

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

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

Server.MapPath("Msg.mdb")

‘打開連接對(duì)象

mycon.Open()

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

mycmd.Connection = mycon

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

mycmd.CommandType = CommandType.Text

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

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

reader = mycmd.ExecuteReader()

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

If reader.Read = False Then

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

Else

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

Response.Redirect("lwmsg.aspx")

End If

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

reader.Close()

‘關(guān)閉連接

mycon.Close()

End Sub

VB.NET能夠多行注釋嗎？求高手

Dim clh As ColumnHeader '聲明列表頭

Dim rs As New ADODB.Recordset '聲明一個(gè)變量

lv.ColumnHeaders.Clear’Lv清空列表頭

lv.ListItems.Clear '清空列表

lv.GridLines = True '顯示格線

lv.FullRowSelect = True '整行選擇模式

lv.View = lvwReport ’設(shè)置視圖為列表視圖

rs.Open "select * from 入庫(kù)", Cnn '運(yùn)行查詢

For i = 0 To rs.Fields.Count - 1 ’for循環(huán)，所有記錄表的字段

Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表頭與rs字段相同的名字

Next

lv.GridLines = True ’顯示網(wǎng)格

lv.FullRowSelect = True ’整行模式選擇

lv.View = lvwReport ’設(shè)置視圖為列表視圖

Set RsPage = rs ’復(fù)制rs

RsPage.PageSize = 40 ’每頁(yè)顯示40個(gè)記錄

Label5.Caption = RsPage.PageCount ’顯示頁(yè)的數(shù)量

If rs.EOF = True Then ’判斷是記錄的結(jié)束

Label7.Caption = 0 ’顯示0

Label5.Caption = 0 ’顯示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用標(biāo)簽1-4

Next

Else '判斷不是記錄的結(jié)束

Label7.Caption = 1 ’顯示1

RsPage.MoveFirst '移到第一個(gè)記錄

Call ShowPage(RsPage, 1) ’顯示第一頁(yè)

End If

End Sub

Private Sub ShowPage(rs As Recordset, nPage As Integer)

rs.AbsolutePage = nPage '顯示參數(shù)nPage頁(yè)

lv.ListItems.Clear '列表清空

Dim item As ListItem ’聲明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判斷是記錄的結(jié)束，退出函數(shù)

Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值

For j = 1 To rs.Fields.Count - 1

item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填寫行的其他字段

Next

rs.MoveNext '移到下一個(gè)記錄

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不為空時(shí)，F(xiàn)rmPJsy顯示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行數(shù)不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 顯示記錄的每一段的內(nèi)容

Text1(6).Text = Trim(lv.ListItems(i).Text)

Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))

Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))

Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))

Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))

Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))

Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))

DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))

Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))

Command1(1).Enabled = True ’按鈕可以使用

Command1(2).Enabled = True

End If

Next

End If

End Sub

vb.net 中有幾種注釋？？有多行注釋嗎？

首先選取你要注釋的文本塊，然后Ctrl-K Ctrl-C 這樣對(duì)你選擇的文本塊完成注釋．

而如果你要取消已完成注釋的文本塊，則Ctrl-K Ctrl-U即可。

求具體VB.NET注釋

這時(shí)用vb6.0改寫的吧.net配置文件不用ini了，前面5行，判斷符合條件則獲取相關(guān)文本框中的內(nèi)容，在下面4行把相關(guān)內(nèi)容就是前面5行中的后4行的內(nèi)容寫進(jìn)ini配置文件，然后令btnDefault可用，同時(shí)調(diào)用btnDefault.PerformClick函數(shù)

Private Sub frmDbConn_Load是該form啟動(dòng)加載的一些參數(shù)，即獲取配置文件中的相關(guān)信息，同時(shí)把信息顯示在相關(guān)的文本框中。

vb 中注釋多行的 命令是什么 ？

String.Format 方法 (String, Object):

將指定的 String 中的格式項(xiàng)替換為指定的 Object 實(shí)例的值的文本等效項(xiàng)。

下面的代碼示例演示數(shù)字、日期和枚舉的標(biāo)準(zhǔn)格式設(shè)置說明符。

閱讀代碼示例時(shí)，經(jīng)常會(huì)遇到注釋符號(hào) (')。 此符號(hào)通知 Visual Basic 編譯器忽略在它后面的文本（即注釋）。 注釋是為了方便閱讀而為代碼添加的簡(jiǎn)短的解釋性說明。

在所有過程的開頭加入一段說明過程功能特征（過程的作用）的簡(jiǎn)短注釋是一個(gè)很好的編程做法。 這對(duì)您自己和檢查代碼的任何其他人都有好處。 應(yīng)該把實(shí)現(xiàn)的詳細(xì)信息（過程實(shí)現(xiàn)的方式）與描述功能特征的注釋分開。 若給說明加入了實(shí)現(xiàn)的詳細(xì)信息，切記在更新函數(shù)時(shí)對(duì)這些詳細(xì)信息進(jìn)行更新。

注釋可以和語(yǔ)句同行并跟隨其后，也可以另占一整行。 以下代碼闡釋了這兩種情況。

.NET Framework 定義了標(biāo)準(zhǔn)和自定義格式說明符，用于格式化數(shù)字、日期和時(shí)間以及枚舉。各種格式化輸出字符串的方法（例如 Console.WriteLine 和所有類型的 ToString方法），以及一些分析輸入字符串的方法（例如 DateTime.ParseExact）都使用格式化說明符。

所以，x 是通過程序?qū)Ω袷秸f明符例如#進(jìn)行解析來進(jìn)行格式化的

This?is?a?comment?beginning?at?the?left?edge?of?the?screen.

text1.Text?=?"Hi!"???'?This?is?an?inline?comment.

'?This?comment?is?too?long?to?fit?on?a?single?line,?so?we?break??

'?it?into?two?lines.?Some?comments?might?need?three?or?more?lines.

通過選擇一行或多行代碼，然后在“編輯”工具欄上選擇“注釋”按鈕和“取消注釋”按鈕，可以添加或移除某段代碼的注釋符。

也可以用在文本前加關(guān)鍵字 REM 的方式給代碼添加注釋。 但符號(hào) ' 和“注釋”/“取消注釋”按鈕更易于使用，而且需要的空間和內(nèi)存更少。

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

html

head

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

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

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

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

'以下代碼中，往values中添加項(xiàng)目

????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) '在頁(yè)面加載時(shí)發(fā)生的事件

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

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

'以下代碼中，往values中添加項(xiàng)目

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

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

????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的代碼實(shí)在不懂了