| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2994 人关注过本帖, 1 人收藏
标题:我在 listbox 里显示了一列数组,见附件,现在我想在其后面显示两列其他数组 ...
只看楼主 加入收藏
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:12 
我在 listbox 里显示了一列数组,见附件,现在我想在其后面显示两列其他数组,内容与前面的数组没有关联,不知道用什么函数,那个 Format 函数可以吗?怎
我在listbox里显示了一列数组,见附件,现在我想在其后面显示两列其他数组,内容与前面的数组没有关联,不知道用什么函数,那个Format函数可以吗?怎么用呢?
搜索更多相关主题的帖子: 风景 
2014-05-03 15:11
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
收藏
得分:0 
请哪位大神指点一下 啊
2014-05-03 15:18
tw_love_code
Rank: 2
来 自:chongqing
等 级:论坛游民
威 望:2
帖 子:34
专家分:97
注 册:2012-7-7
收藏
得分:0 
回复 2 楼 kunsong
你的附件呢?

失踪几年,我又回来啦
2014-05-03 15:44
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
收藏
得分:0 
回复 2 楼 kunsong
不知道附件去哪里了,就是我想在listbox 显示三列数组,相当于第一个数组是序号,第二个数组是年龄,第三个数组是工时的那种,里面数字先用任意一个数吧,可以不?
2014-05-03 16:24
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
收藏
得分:0 
大神们,帮忙啊
2014-05-03 16:52
tw_love_code
Rank: 2
来 自:chongqing
等 级:论坛游民
威 望:2
帖 子:34
专家分:97
注 册:2012-7-7
收藏
得分:0 
听你这情况好像可以 发个示意图看看。
这是我的理解:
*************
*1 XX XX:XX*
*2 XX XX:XX*
*3 XX XX:XX*
*4 XX XX:XX*
.............
*n XX XX:XX*

你是要这效果么?

失踪几年,我又回来啦
2014-05-03 18:20
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
listbox虽然也支持多列显示,但是单一数据类型,如果将listbox的columns值设为2,当在listbox添加数据大于当前显示行数时,就会从第二列开始显示,你这种情况适合使用MSFlexGrid控件显示你的数据,如果非要用listbox显示多列数据,就只能自己写代码格式化显示效果了,好像format函数不行。
2014-05-03 18:36
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
收藏
得分:0 
回复 6 楼 tw_love_code
对的啊
2014-05-03 18:39
kunsong
Rank: 2
等 级:论坛游民
帖 子:34
专家分:18
注 册:2014-4-20
收藏
得分:0 
回复 7 楼 lowxiong
嗯,谢谢
2014-05-03 18:40
tw_love_code
Rank: 2
来 自:chongqing
等 级:论坛游民
威 望:2
帖 子:34
专家分:97
注 册:2012-7-7
收藏
得分:20 
这是我给的效果的代码:
程序代码:
Dim a(10) As Integer
Dim b(10) As String
Private Sub Command1_Click()
    
    For j = 0 To 9 Step 1
        
        x = InputBox("请输入年龄", "获取年龄")
        a(j) = x
        
    Next j
            
End Sub

Private Sub Command2_Click()

 
    For j = 0 To 9 Step 1
        
        y = InputBox("请输入工时", "获取工时")
        b(j) = y
        
    Next j

End Sub

Private Sub Command3_Click()

    For i = 0 To 9 Step 1
        
        rec = Format(i + 1, "000")  '为了整齐输出
        nl = Format(a(i), "000")
        List1.List(i) = rec & "---" & nl & "---" & b(i)
        
    Next i
End Sub


这是程序界面:
图片附件: 游客没有浏览图片的权限,请 登录注册

这是试运行效果:
图片附件: 游客没有浏览图片的权限,请 登录注册

望采纳!

[ 本帖最后由 tw_love_code 于 2014-5-3 19:41 编辑 ]

失踪几年,我又回来啦
2014-05-03 19:37
快速回复:我在 listbox 里显示了一列数组,见附件,现在我想在其后面显示两列其 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056186 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved