要想方便點的話，在代碼模式下，右擊工具欄，在彈出菜單里把“編輯”項選中(如果已經(jīng)選中就不必選了)，我用的是英文版的是edit，這時候編輯工具欄就顯示出來了。選中要注釋的行，然后點編輯工具欄里有幾條橫線的那個圖標(biāo)(在一個手形圖標(biāo)的后邊，中間是藍(lán)，上下是黑色的)，就是進(jìn)行塊注釋，要取消注釋，點快注釋后邊那個帶箭頭的圖標(biāo)就可以了。
創(chuàng)新互聯(lián)專注于都江堰網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供都江堰營銷型網(wǎng)站建設(shè)，都江堰網(wǎng)站制作、都江堰網(wǎng)頁設(shè)計、都江堰網(wǎng)站官網(wǎng)定制、微信平臺小程序開發(fā)服務(wù)，打造都江堰網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供都江堰網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
String.Format 方法 (String, Object):
將指定的 String 中的格式項替換為指定的 Object 實例的值的文本等效項。
下面的代碼示例演示數(shù)字、日期和枚舉的標(biāo)準(zhǔn)格式設(shè)置說明符。
閱讀代碼示例時，經(jīng)常會遇到注釋符號 (')。 此符號通知 Visual Basic 編譯器忽略在它后面的文本（即注釋）。 注釋是為了方便閱讀而為代碼添加的簡短的解釋性說明。
在所有過程的開頭加入一段說明過程功能特征（過程的作用）的簡短注釋是一個很好的編程做法。 這對您自己和檢查代碼的任何其他人都有好處。 應(yīng)該把實現(xiàn)的詳細(xì)信息（過程實現(xiàn)的方式）與描述功能特征的注釋分開。 若給說明加入了實現(xiàn)的詳細(xì)信息，切記在更新函數(shù)時對這些詳細(xì)信息進(jìn)行更新。
注釋可以和語句同行并跟隨其后，也可以另占一整行。 以下代碼闡釋了這兩種情況。
.NET Framework 定義了標(biāo)準(zhǔn)和自定義格式說明符，用于格式化數(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 的方式給代碼添加注釋。 但符號 ' 和“注釋”/“取消注釋”按鈕更易于使用，而且需要的空間和內(nèi)存更少。
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 ’設(shè)置視圖為列表視圖
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 ’設(shè)置視圖為列表視圖
Set RsPage = rs ’復(fù)制rs
RsPage.PageSize = 40 ’每頁顯示40個記錄
Label5.Caption = RsPage.PageCount ’顯示頁的數(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 '移到第一個記錄
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 ’判斷是記錄的結(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 '移到下一個記錄
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 ’ 顯示記錄的每一段的內(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
'''兩段程序就是利用點虐 的連接對象的功能來完成登錄的實例
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
重慶分公司
重慶分公司
