
如何在VB下做出一个类似表格的界面,
要求:能将从串口进来的数据按照条件填入表格中,例如:用户名称,数量,金额,等等。希望高手能解决~~~能直接用的追加分!!!就是VB的界面能像表格一样显示数据。。。。。。。...
要求:能将从串口进来的数据按照条件填入表格中,例如:用户名称,数量,金额,等等。希望高手能解决~~~能直接用的追加分!!!
就是VB的界面能像表格一样显示数据。。。。。。。
请问CXH20080808里面单元格如何编辑和填充数据?我不会VB哈,谢谢!! 展开
就是VB的界面能像表格一样显示数据。。。。。。。
请问CXH20080808里面单元格如何编辑和填充数据?我不会VB哈,谢谢!! 展开
1个回答
展开全部
用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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询