有没有人在啊，想请讲解下，我想利用VB编程将一组数据添加到listbox中,怎么实现.？
添加时要同时将这个数据所代表的变量和这个数据本身同时添加进去。请各位帮帮忙我想利用VB编程将一组数据添加到listbox中,怎么实现.
最新回答
欲往
2024-10-31 02:31:01
a=1
list1.additem “变量a的值为：" & a
绝绝子
2024-10-31 07:46:28
追问
我的数据时一组WinCC采集下位机的一组动态数据通过OPC传到VB中，我现在是可以让他显示在Text文本中了，但数据量比较大，所以就想弄一个listbox。
追答
还是说清楚数据结构吧。比如一个数据x代表温度 那么就list1.additem "温度="& x,不知道你还有什么特殊的要求
追问
我想要的就是
温度1 20
温度2 30
温度3 40
基本就是这样，如果用Text的时候就是建立一个控件数组，是Text1(i).Text就行了，这个到底怎么弄，怎么建立数组，我的数据量有40多个，但我不想让这个List窗口大，所以需要滚动，滚动是自己加上的吗。谢谢了，帮忙了
追答
listbox的滚动条是超出显示范围自动出现的，不需要添加。你可以这样
list1.additem "温度“ & list1.listcount+1 &" " & x 'x表示接收到的数据。
如果用textbox的话，你可以建立控件组，方法是在窗体添加一个textbox，放在合适的位置，.然后右键点击它，复制，然后在窗体空白处点右键，粘贴。会问你是否建立控件组，点是。然后把粘贴出来的text1(1)删除，只留下text1(0)。在窗体的load事件里添加以下代码：
‘这里是添加40个textbox,分4列，每列10个
Private Sub Form_Load()
For i = 1 To 39
Load Text1(i)
Text1(i).Left = (i \ 10) * (Text1(0).Width + 200) + Text1(0).Left
Text1(i).Top = (i Mod 10) * (Text1(0).Height + 100) + Text1(0).Top
Text1(i).Visible = True
Next
End Sub
这样就添加好了40个textbox控件组。剩下的就是把你的数据填进去了。
热门标签
