星空网 > 软件开发 > ASP.net

VBA控件ListBox的BoundColumn和TextColumn用法,Value和Text的用法

       在使用Excel编写VBA程序时,用到ListBox,然后研究了下它的所有属性。其实这个控件功能很不好用,太老了,最重要的是还不支持鼠标滚轮,很不好操作,但是考虑到兼容性,还是使用它。

 

       其实读取、写入数据用ListBox.List已经足够了,而BoundColumn和TextColumn主要是用于读取数据,有什么鸟用?我也不是很清楚,但是可以像下面这样用。这两个参数相当于设置了列的索引(j),只需选中行(i)即可读取对应的数据List(i,j)。其中,BoundColumn与Value关联;TextColumn与Text关联。

Private Sub CommandButton1_Click()     ListBox1.ListIndex = 0   '选中第一行,不选中的话,读取不到数值,  ListBox1.BoundColumn = 2  '该属性从1开始计数,即现在对应的列索引为1;默认值为1  ListBox1.TextColumn = 3   '该属性从1开始计数,即现在对应的列索引为2;默认值为-1,如果不赋值将无法读取数据  Debug.Print "value = " & ListBox1.Value '输出 value = 0,1  Debug.Print "text = " & ListBox1.Text  '输出 text = 0,2End SubPrivate Sub UserForm_Initialize()  Dim i As Integer  Dim j As Integer    ListBox1.ColumnCount = 5  '设置5列  i = 0  While i < 10    ListBox1.AddItem    j = 0    While j < ListBox1.ColumnCount      ListBox1.List(i, j) = CStr(i) & "," & CStr(j)      j = j + 1    Wend    i = i + 1  WendEnd Sub

 

关键词:VBA  ListBox BoundColumn TextColumn Value Text 说明 参数 使用方法 Excel




原标题:VBA控件ListBox的BoundColumn和TextColumn用法,Value和Text的用法

关键词:

*特别声明:以上内容来自于网络收集,著作权属原作者所有,如有侵权,请联系我们: admin#shaoqun.com (#换成@)。

测试新功能:https://www.goluckyvip.com/tag/13538.html
isting:https://www.goluckyvip.com/tag/13539.html
buna:https://www.goluckyvip.com/tag/1354.html
Etsy促销:https://www.goluckyvip.com/tag/13540.html
出口电商新政:https://www.goluckyvip.com/tag/13541.html
顺丰官宣:https://www.goluckyvip.com/tag/13542.html
无锡旅游景点竹海 - 无锡的竹海:https://www.vstour.cn/a/363178.html
5月贾汪好玩的地方 贾汪哪有好玩的地方:https://www.vstour.cn/a/363179.html
相关文章
我的浏览记录
最新相关资讯
海外公司注册 | 跨境电商服务平台 | 深圳旅行社 | 东南亚物流