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循环,所有记录表的字段
Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) '添加列表头与rs字段相同的名字
Next
lv.GridLines = True '显示网格
lv.FullRowSelect = True '整行模式选择
lv.View = lvwReport '设置视图为列表视图
Set RsPage = rs '复制rs
If rs.EOF = True Then '判断是记录的结束
Else '判断不是记录的结束
RsPage.MoveFirst '移到第一个记录
Call ShowPage(RsPage, 1) '显示第一页
End If
End Sub
Private Sub ShowPage(rs As Recordset, nPage As Integer)
rs.AbsolutePage = nPage '显示参数nPage页
lv.ListItems.Clear '列表清空
Dim item As ListItem '声明列表
If rs.EOF = True Then Exit Sub '判断是记录的结束,退出函数
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))) '填写行的其他字段
rs.MoveNext '移到下一个记录
Private Sub lv_Click()
If lv.ListItems.Count = 1 Then '如果行数不小于1
For i = 1 To lv.ListItems.Count
If lv.ListItems(i).Selected Then ' 显示记录的每一段的内容
Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))
Command1(1).Enabled = True '按钮可以使用
String.Format 方法 (String, Object):
将指定的 String 中的格式项替换为指定的 Object 实例的值的文本等效项.
下面的代码示例演示数字、日期和枚举的标准格式设置说明符.
阅读代码示例时,经常会遇到注释符号 ('). 此符号通知 Visual Basic 编译器忽略在它后面的文本（即注释）. 注释是为了方便阅读而为代码添加的简短的解释性说明.
在所有过程的开头加入一段说明过程功能特征（过程的作用）的简短注释是一个很好的编程做法. 这对您自己和检查代码的任何其他人都有好处. 应该把实现的详细信息（过程实现的方式）与描述功能特征的注释分开. 若给说明加入了实现的详细信息,切记在更新函数时对这些详细信息进行更新.
注释可以和语句同行并跟随其后,也可以另占一整行. 以下代码阐释了这两种情况.
.NET Framework 定义了标准和自定义格式说明符,用于格式化数字、日期和时间以及枚举.各种格式化输出字符串的方法（例如 Console.WriteLine 和所有类型的 ToString方法）,以及一些分析输入字符串的方法（例如 DateTime.ParseExact）都使用格式化说明符.
所以,x 是通过程序对格式说明符例如#进行解析来进行格式化的
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.
也可以用在文本前加关键字 REM 的方式给代码添加注释. 但符号 ' 和"注释"/"取消注释"按钮更易于使用,而且需要的空间和内存更少.
首先选取你要注释的文本块,然后Ctrl-K Ctrl-C 这样对你选择的文本块完成注释．
而如果你要取消已完成注释的文本块,则Ctrl-K Ctrl-U即可.
以上就是土嘎嘎小编为大家整理的vb.net多行注释的简单介绍vb.net多行注释的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！