共有 1090 人关注过本帖
标题：我在 listbox 里显示了一列数组，见附件，现在我想在其后面显示两列其他数组 ...
等　级：论坛游民
帖　子：34
专家分：18
结帖率：100%
&&已结贴√
&&问题点数：20&&回复次数：12&&&
我在 listbox 里显示了一列数组，见附件，现在我想在其后面显示两列其他数组，内容与前面的数组没有关联，不知道用什么函数，那个 Format 函数可以吗？怎
我在listbox里显示了一列数组，见附件，现在我想在其后面显示两列其他数组，内容与前面的数组没有关联，不知道用什么函数，那个Format函数可以吗？怎么用呢？
等　级：论坛游民
帖　子：34
专家分：18
请哪位大神指点一下 啊
来　自：chongqing
等　级：论坛游民
帖　子：34
专家分：97
回复 2 楼 kunsong
你的附件呢？
有兴趣可以加我QQ
等　级：论坛游民
帖　子：34
专家分：18
回复 2 楼 kunsong
不知道附件去哪里了，就是我想在listbox 显示三列数组，相当于第一个数组是序号，第二个数组是年龄，第三个数组是工时的那种，里面数字先用任意一个数吧，可以不？
等　级：论坛游民
帖　子：34
专家分：18
大神们，帮忙啊
来　自：chongqing
等　级：论坛游民
帖　子：34
专家分：97
听你这情况好像可以 发个示意图看看。
这是我的理解：
*************
*1 XX XX：XX*
*2 XX XX：XX*
*3 XX XX：XX*
*4 XX XX：XX*
.............
*n XX XX：XX*
你是要这效果么？
有兴趣可以加我QQ
等　级：贵宾
威　望：27
帖　子：652
专家分：3402
listbox虽然也支持多列显示，但是单一数据类型，如果将listbox的columns值设为2，当在listbox添加数据大于当前显示行数时，就会从第二列开始显示，你这种情况适合使用MSFlexGrid控件显示你的数据，如果非要用listbox显示多列数据，就只能自己写代码格式化显示效果了，好像format函数不行。
等　级：论坛游民
帖　子：34
专家分：18
回复 6 楼 tw_love_code
等　级：论坛游民
帖　子：34
专家分：18
回复 7 楼 lowxiong
来　自：chongqing
等　级：论坛游民
帖　子：34
专家分：97
&&得分:20&
这是我给的效果的代码：
程序代码：
Dim a(<font color=#) As Integer
Dim b(<font color=#) As String
Private Sub Command1_Click()
&&& For j = <font color=# To <font color=# Step <font color=#
&&&&&&&&x = InputBox(&请输入年龄&, &获取年龄&)
&&&&&&&&a(j) = x
&&& Next j
&&&&&&&&&&&&
Private Sub Command2_Click()
&&& For j = <font color=# To <font color=# Step <font color=#
&&&&&&&&y = InputBox(&请输入工时&, &获取工时&)
&&&&&&&&b(j) = y
&&& Next j
Private Sub Command3_Click()
&&& For i = <font color=# To <font color=# Step <font color=#
&&&&&&&&rec = Format(i + <font color=#, &<font color=#&)&&'为了整齐输出
&&&&&&&&nl = Format(a(i), &<font color=#&)
&&&&&&&&List1.List(i) = rec & &---& & nl & &---& & b(i)
&&& Next i
这是程序界面：
这是试运行效果：
[ 本帖最后由 tw_love_code 于
19:41 编辑 ]
附件: 只有本站会员才能下载或查看附件，请
有兴趣可以加我QQ
版权所有，并保留所有权利。
Powered by , Processed in 0.026590 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved删除指定行后出现的空行 如何解决
新手的第一个程序求帮忙_VB Dotnet大全_优良自学吧 |
当前位置： >
> ListBox1
删除指定行后出现的空行 如何解决
新手的第一个程序求帮忙优良自学吧提供ListBox1
删除指定行后出现的空行 如何解决
新手的第一个程序求帮忙,ListBox1 删除指定行后出现的空行 怎么解决 新手的第一个程序求帮忙Dim&str&As&IO.StreamReader&=&New&IO.StreamReader("F:\记录",&SystemListBox1
删除指定行后出现的空行 怎么解决
新手的第一个程序求帮忙Dim&str&As&IO.StreamReader&=&New&IO.StreamReader("F:\记录",&System.Text.Encoding.Default)
&&&&&&&&Dim&ts&As&String()&=&str.ReadToEnd.Split(Chr(10))&'如果chr(10)不行可以换chr(13)
&&&&&&&&ListBox1.Items.AddRange(ts)
&&&&&&&&str.Close()
启动程序时候读取
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
删除指定行内容
&&&&&&&&&&&&&Dim&sw&As&System.IO.StreamWriter
&&&&&&&&&&&&&&&&sw&=&New&System.IO.StreamWriter("F:\采花\采花地址.txt",&False,&System.Text.Encoding.Default)&'false&&全新保存,true是指以追加的方式保存文件
&&&&&&&&&&&&&&&&For&i&=&0&To&ListBox1.Items.Count&-&1
&&&&&&&&&&&&&&&&&&&&sw.WriteLine(ListBox1.Items(i))
&&&&&&&&&&&&&&&&Next
&&&&&&&&&&&&&&&&sw.Close()
保存ListBox1内容
当我删除指定行内容后,保存&&&&&下次再启动程序,ListBox1里面就会出现一个空行
这个空行怎么解决
因为我这个程序点击ListBox1的选项就有事件发生,可是ListBox1出现空行,点击到空行&就会出错
求解决的办法!------解决方案--------------------引用:Dim&str&As&IO.StreamReader&=&New&IO.StreamReader("F:\记录",&System.Text.Encoding.Default)
&&&&&&&&Dim&ts&As&String()&=&str.ReadToEnd.Split(Chr(10))&'如果chr(10)不行可以换chr(13)
&&&&&&&&ListBox1.Items.AddRange(ts)
&&&&&&&&str.Close()
启动程序时候读取
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
删除指定行内容
&&&&&&&&&&&&&Dim&sw&As&System.IO.StreamWriter
&&&&&&&&&&&&&&&&sw&=&New&System.IO.StreamWriter("F:\采花\采花地址.txt",&False,&System.Text.Encoding.Default)&'false&&全新保存,true是指以追加的方式保存文件
&&&&&&&&&&&&&&&&For&i&=&0&To&ListBox1.Items.Count&-&1
&&&&&&&&&&&&&&&&&&&&sw.WriteLine(ListBox1.Items(i))
&&&&&&&&&&&&&&&&Next
&&&&&&&&&&&&&&&&sw.Close()
保存ListBox1内容
当我删除指定行内容后,保存&&&&&下次再启动程序,ListBox1里面就会出现一个空行
这个空行怎么解决
因为我这个程序点击ListBox1的选项就有事件发生,可是ListBox1出现空行,点击到空行&就会出错
求解决的办法!
这里是因为换行符的原因，若我没有估错的话，这一个空行应该是listbox中的最后一项为空行。因此，将数据读取修改如下即可：
&&&&&&&&Dim&sr&As&System.IO.StreamReader&=&New&System.IO.StreamReader("E:\记录.txt",&System.Text.Encoding.Default)
&&&&&&&&While&(Not&sr.EndOfStream)
&&&&&&&&&&&&ListBox1.Items.Add(sr.ReadLine())
&&&&&&&&End&While
（本文来自互联网，不代表搜站(/)的观点和立场）本站所有内容来自互联网,若本站收录的信息无意侵犯了贵司版权，请给我们来信()，我们会及时处理和回复，谢谢编辑推荐 - 龙镇 - 朱衣点头 - 琦 琦 - 小豹子 - 司星子韦 - 春雨 - 深山绿竹 - 失意的程序人生 - 墅墅 - 极北冰蓝 - 张琦/主编 - 蟹悠悠 - 人生无梦 - [美]斯图尔德 著 任文科 译 - 天至道最近更新VB如何保存listbox里的内容,下次打开本程序里内容不变_百度知道
VB如何保存listbox里的内容,下次打开本程序里内容不变
提问者采纳
&#39;//保存Private Sub Form_Unload(Cancel As Integer)
Dim i As Long, Temp As String
For i = 0 To List1.ListCount - 1
If Temp = && Then
Temp = List1.List(i)
Temp = Temp & vbNewLine & List1.List(i)
Open IIf(Len(App.Path) = 3, App.Path, App.Path & &&#92;&) & &data.dat& For Output As #1
Print #1, List1.ListCount & vbNewLine & Temp
Close #1End Sub&#39;//加载Private Sub Form_Load()
Dim Path As String, Item As Long, Temp As String, i As Long
Path = IIf(Len(App.Path) = 3, App.Path, App.Path & &&#92;&) & &data.dat&
If Dir(Path, vbDirectory) = && Then Exit Sub
Open Path For Input As #1
Line Input #1, Temp
Item = Val(Temp)
For i = 1 To Item
Line Input #1, Temp
List1.AddItem Temp
Close #1End Sub
其他类似问题
为您推荐：
listbox的相关知识
其他1条回答
保存到文件中,下次打开本程序时再读取文件
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb listbox如何导出到txt
[问题点数：40分，结帖人dxlz]
vb listbox如何导出到txt
[问题点数：40分，结帖人dxlz]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
2011年12月 VB大版内专家分月排行榜第二2011年9月 VB大版内专家分月排行榜第二2011年8月 VB大版内专家分月排行榜第二2010年8月 VB大版内专家分月排行榜第二2009年9月 VB大版内专家分月排行榜第二
2012年2月 VB大版内专家分月排行榜第三2011年11月 VB大版内专家分月排行榜第三2011年3月 VB大版内专家分月排行榜第三2011年1月 VB大版内专家分月排行榜第三2010年3月 VB大版内专家分月排行榜第三2010年2月 VB大版内专家分月排行榜第三2009年10月 VB大版内专家分月排行榜第三2009年8月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。vb.net listbox绑定数据并点击一个用户名就把相关数据在textbox里面显示内容_百度知道
&#39;假设选中A客户 &你的表名是 YourTable && & & & &#39;打开数据库& & & & Dim strCon As String = &你的数据库连接字符串&& & & & Dim myConn As Data.OleDb.OleDbConnection& & & & myConn = New System.Data.OleDb.OleDbConnection()& & & & myConn.ConnectionString = strCon& & & & myConn.Open()& & & & Dim sql As String = &select 身份证号……Email from YourTable where 客户名=‘& & A & &’ && & & & Dim da As New OleDbDataAdapter(sql, myConn)& & & & Dim dt As New DataTable& & & & da.fill(dt)& & & & myConn.Close()& & & & txt身份证号.text = dt.Rows(0)(0)...............& & & & txtEMAIL.text = dt.Rows(0)(8)下面的例子跟你的情况一个道理。无非是看显示的东西经历什么样的操作得来。
其他类似问题
为您推荐：
listbox的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁