新聞中心
VB.NET能夠多行注釋嗎?求高手
Dim clh As ColumnHeader '聲明列表頭
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶,將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:域名申請(qǐng)、虛擬空間、營(yíng)銷軟件、網(wǎng)站建設(shè)、隆堯網(wǎng)站維護(hù)、網(wǎng)站推廣。
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
關(guān)于VB點(diǎn)虐 得注釋
''' summary 簡(jiǎn)介
''' /summary
''' param name="sender"/param sender參數(shù)含族鬧義
''' param name="e"/param e參數(shù)含義
''' remarks 評(píng)論(一般不用)
''' /remarks
''' varsion 版本
''信穗源' /varsion
例:比如我有個(gè)方法,我用c#,可能語(yǔ)法和你不一樣
''' summary
''' 獲滑態(tài)取用戶信息
''' /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ǔ)句注釋下就行了
'''兩段程序就是利用點(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
’提示用戶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")
‘打開(kāi)連接對(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)聽(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
當(dāng)前名稱:關(guān)于vb點(diǎn)虐 去注釋的信息
本文網(wǎng)址:http://fisionsoft.com.cn/article/ddpgdij.html