建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
vb 如何實(shí)現(xiàn)多行注釋呢
要想方便點(diǎn)的話，在代碼模式下，右擊工具欄，在彈出菜單里把“編輯”項(xiàng)選中(如果已經(jīng)選中就不必選了)，我用的是英文版的是edit，這時(shí)候編輯工具欄就顯示出來(lái)了。選中要注釋的行，然后點(diǎn)編輯工具欄里有幾條橫線的那個(gè)圖標(biāo)(在一個(gè)手形圖標(biāo)的后邊，中間是藍(lán)，上下是黑色的)，就是進(jìn)行塊注釋?zhuān)∠⑨專(zhuān)c(diǎn)快注釋后邊那個(gè)帶箭頭的圖標(biāo)就可以了。
網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、小程序制作、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶(hù)創(chuàng)新互聯(lián)還提供了鐵鋒免費(fèi)建站歡迎大家使用！
VB.NET的 把重點(diǎn)的語(yǔ)句注釋下就行了
'''兩段程序就是利用點(diǎn)虐 的連接對(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
’提示用戶(hù)txtClass文本框不能為空
If schclass "" Then
selestr = "班級(jí)='" schclass "'"
Else
MsgBox("請(qǐng)輸入班級(jí)名稱(chēng)", 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í)查詢(xún)
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""用戶(hù)名或密碼不能為空！""/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 用戶(hù)名='" txtUserName.Text "'" " and 密碼='" txtPass.Text "'"
’然后將執(zhí)行對(duì)象的監(jiān)聽(tīng)實(shí)例化
reader = mycmd.ExecuteReader()
‘如果執(zhí)行不成功，即沒(méi)有得到結(jié)果集就提示否則將結(jié)果集的用戶(hù)名賦值給一個(gè)session以供其他頁(yè)面使用
If reader.Read = False Then
Response.Write("script language=vbscriptalert""用戶(hù)名或密碼錯(cuò)，你不能登錄！""/script")
Else
Session("username") = reader("用戶(hù)名")
Response.Redirect("lwmsg.aspx")
End If
’關(guān)閉監(jiān)聽(tīng)
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)行查詢(xú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))) ’填寫(xiě)行的其他字段
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
文章題目：關(guān)于vb點(diǎn)虐 批量注釋的信息
URL網(wǎng)址：http://fisionsoft.com.cn/article/ddjhipe.html
