vb中listview的列表格式里面的列名怎么设置

如图:我把listview控件设置为checkboxes=True'带选择框的列表样式我想设置列名怎么设置啊?请高手指教</img>... 如图:我把listview控件设置为checkboxes=True '带选择框的列表样式
我想设置列名 怎么设置啊? 请高手指教 </img>
展开
 我来答
匿名用户
推荐于2018-05-06
展开全部
д孤雁亦孇飞 说的对

ListView的View必须是lvwReport才能显示表头。

下面给你段ListView的操作代码

你往窗体上画两个按钮,一个ListView

Dim i As Long
Private Sub Command1_Click()
ListView1.ColumnHeaders.Add , , "第 " & ListView1.ColumnHeaders.Count + 1 & "项"
For i = 0 To ListView1.ColumnHeaders.Count - 1
ListView1.ColumnHeaders(i + 1).Width = (ListView1.Width - 100) / ListView1.ColumnHeaders.Count
Next
End Sub
Private Sub Command2_Click()
ListView1.ListItems.Add , , "第 " & ListView1.ListItems.Count + 1 & "表"
For i = 1 To ListView1.ColumnHeaders.Count - 1
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , i
Next
End Sub
Private Sub Command3_Click()
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub
Private Sub Form_Load()
ListView1.LabelEdit = lvwAutomatic
ListView1.View = lvwReport
Me.Move Left, Top, 5775, 5205
ListView1.Move 0, 0, Me.Width - 130, Me.Height - 1200
Command1.Move 720, 4000, 1095, 375
Command2.Move 2160, 4000, 1095, 375
Command3.Move 3600, 4000, 1095, 375
Command1.Caption = "添加项"
Command2.Caption = "添加表"
Command3.Caption = "删除选定表"
End Sub 答案补充 ~~~错了,三个按钮。。。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式