如何在VB下做出一个类似表格的界面，
答案:1 悬赏:0 手机版
解决时间 2021-02-14 19:03
- 提问者网友：最爱你的唇
- 2021-02-14 13:07
如何在VB下做出一个类似表格的界面，
最佳答案
- 五星知识达人网友：蓝房子
- 2021-02-14 13:30
用ListView控件
工程-部件Microsoft Windows Common Controls 6.0
Private Sub Form_Load()
With ListView1
.View = lvwReport
.GridLines = True
.ColumnHeaders.Add , , "用户", 800
.ColumnHeaders.Add , , "数量", 800
.ColumnHeaders.Add , , "金额", 800
.ColumnHeaders.Add , , "备注", 800
End With
End Sub
Private Sub Command1_Click()
Dim li As ListItem
Set li = ListView1.ListItems.Add(, , "张三")
li.ListSubItems.Add , , "5"
li.ListSubItems.Add , , "10000"
li.ListSubItems.Add , , "重要"
End Sub
工程-部件Microsoft Windows Common Controls 6.0
Private Sub Form_Load()
With ListView1
.View = lvwReport
.GridLines = True
.ColumnHeaders.Add , , "用户", 800
.ColumnHeaders.Add , , "数量", 800
.ColumnHeaders.Add , , "金额", 800
.ColumnHeaders.Add , , "备注", 800
End With
End Sub
Private Sub Command1_Click()
Dim li As ListItem
Set li = ListView1.ListItems.Add(, , "张三")
li.ListSubItems.Add , , "5"
li.ListSubItems.Add , , "10000"
li.ListSubItems.Add , , "重要"
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯