關(guān)于VB.net得注釋

''' summary 簡(jiǎn)介

創(chuàng)新互聯(lián)成立于2013年，先為乳源等服務(wù)建站，乳源等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為乳源企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。

''' /summary

''' param name="sender"/param sender參數(shù)含義

''' param name="e"/param e參數(shù)含義

''' remarks 評(píng)論(一般不用)

''' /remarks

''' varsion 版本

''' /varsion

例:比如我有個(gè)方法,我用c#,可能語(yǔ)法和你不一樣

''' summary

''' 獲取用戶信息

''' /summary

''' param name="UserName"

'''用戶名

'''/param

''' remarks

''' /remarks

''' varsion

'''1.0.0.0

''' /varsion

public void GetUser(String UserName)

{}

就OK了,像你說(shuō)的

1.aaaaa

2.bbbbb

只是多兩行,就完了

''' param name="aaaaa"

'''aaaaaa

'''/param

''' param name="bbbbb"

'''bbbbb

'''/param

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

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

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類(lèi)型的。

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

Server.MapPath("Msg.mdb")

‘打開(kāi)連接對(duì)象

mycon.Open()

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

mycmd.Connection = mycon

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

mycmd.CommandType = CommandType.Text

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

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

reader = mycmd.ExecuteReader()

‘如果執(zhí)行不成功，即沒(méi)有得到結(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)聽(tīng)

reader.Close()

‘關(guān)閉連接

mycon.Close()

End Sub

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

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

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