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

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

公司主營業(yè)務：成都網(wǎng)站建設、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出墨江免費做網(wǎng)站回饋大家。

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里的學生成績表的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按鈕觸發(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()

’將連接對象復制到執(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í)行不成功，即沒有得到結果集就提示否則將結果集的用戶名賦值給一個session以供其他頁面使用

If reader.Read = False Then

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

Else

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

Response.Redirect("lwmsg.aspx")

End If

’關閉監(jiān)聽

reader.Close()

‘關閉連接

mycon.Close()

End Sub

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

Dim clh As ColumnHeader '聲明列表頭

Dim rs As New ADODB.Recordset '聲明一個變量

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

lv.ListItems.Clear '清空列表

lv.GridLines = True '顯示格線

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

lv.View = lvwReport ’設置視圖為列表視圖

rs.Open "select * from 入庫", Cnn '運行查詢

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 ’設置視圖為列表視圖

Set RsPage = rs ’復制rs

RsPage.PageSize = 40 ’每頁顯示40個記錄

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

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

Label7.Caption = 0 ’顯示0

Label5.Caption = 0 ’顯示0

For i = 1 To 4

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

Next

Else '判斷不是記錄的結束

Label7.Caption = 1 ’顯示1

RsPage.MoveFirst '移到第一個記錄

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

End If

End Sub

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

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

lv.ListItems.Clear '列表清空

Dim item As ListItem ’聲明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判斷是記錄的結束，退出函數(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 '移到下一個記錄

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不為空時，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 ’ 顯示記錄的每一段的內容

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中，怎么批量注釋一段程序

菜單“視圖”-“工具欄”-“編輯”，該工具欄可以批量設置注釋或者取消注釋（以行為基礎）

VB中注釋

Public file_name As String '聲明全局變量,存儲文件名

Private Sub 瀏覽_Click() '[按鈕?]單擊事件

CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '設置通用對話框過濾 xls文件 或 所有文件

CommonDialog1.ShowOpen '顯示打開對話框

file_name = CommonDialog1.FileName '得到用戶選擇的文件名

If file_name = "" Then Exit Sub '判斷文件名是否有效,無效則退出過程

List1.Clear '清空列表框

Dim xlExcel As Excel.Application '聲明Excel應用程序實例

Dim xlBook As Excel.Workbook '聲明Excel工作簿實例

Dim xlSheet As Excel.Worksheet '聲明Excel表單實例

Set xlExcel = CreateObject("Excel.Application") '生成Excel應用程序實例

Set xlBook = xlExcel.Workbooks.Open(file_name) '打開xls文件

xlExcel.Visible = False '在后臺處理,不顯示Excel窗口

For i = 1 To xlBook.Sheets.Count '遍歷所有工作表

Set xlSheet = xlBook.Worksheets(i)

xlSheet.Activate '激活第i個工作表

List1.AddItem xlSheet.Name '將工作表名添加到列表框

DoEvents '讓系統(tǒng)響應一下其他消息

Next

xlBook.Close '關閉工作簿

xlExcel.Quit '退出Excel

End Sub

Private Sub List1_Click() '列表框單擊事件

If Text1.Text = "" Then Exit Sub '如果Text1文本框沒有內容則退出過程

If file_name = "" Then Exit Sub '如果用戶選擇的文件名無效則退出過程

Dim Con As New ADODB.Connection 'ADODB連接對象聲明

Dim ConStr As String '聲明字符串變量

Con.CursorLocation = adUseClient '設置游標引擎的位置,相關請參閱MSDN

ConStr = "driver=sql server;server=(local);uid=sa;pwd=56776606;database=knife;" '賦值:用sa賬號,56776606為密碼,連接本機SQLServer的knife數(shù)據(jù)庫

Con.Open ConStr '打開連接

Con.Execute "SELECT * INTO " Text1.Text " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" file_name "'," List1.Text "$)"

'access、Oracle等數(shù)據(jù)庫可以用SELECT....INTO....from...語句，可以在事先不創(chuàng)建表的情況下，直接將查詢結果保存到一個新創(chuàng)建的表中。

'請不要見笑,貌似SQLServer不能這么做,當然我沒有試驗,我從來沒這么做過,這個是把List1選擇的工作表作為數(shù)據(jù)表,Text1制定的作為目標工作表

Con.Close '關閉連接

Set Con = Nothing '釋放變量

MsgBox "導入成功！" '提示數(shù)據(jù)導入成功

Beep '制造dooooong的一聲他媽的噪音

End Sub

Private Sub 導入Excel_Click() '單擊事件

'碌碌無為

End Sub

VB 怎樣一起注釋多行語句

1、首先，雙擊進入代碼窗口。

2、然后按下單引號即可開始注釋。

3、這時我們可以看到被注釋的語句是綠色的文字。

4、也可以打開編輯窗口。

5、然后點擊此按鈕即可多行注釋。

6、也可以點擊這個取消多行注釋。

注意事項：

VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建Active X控件，用于高效生成類型安全和面向對象的應用程序[ 。