vblistbox显示数据（vb listbox如何分行显示数据）

：暂无数据 2026-09-04 02:20:09 ：0

本篇文章给大家谈谈vblistbox显示数据，以及vb listbox如何分行显示数据对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录

vb listbox如何分行显示数据
vb6 listbox如何始终显示最后一项
VB中的List控件里如何能横向显示数据
vb中文本框可以输出的内容如何在列表框里输出
vb 中要让listbox把数据库的查询结果列出来,怎么办
VB中ListBox所能显示的行数最大多少为什么不能达到32767怎样才能显示最多行

vb listbox如何分行显示数据

dim temp as string ’字符串
temp=... ’假定你以有的 163个数据
然后用 split 分隔开
dim s() as string
s = split (temp,",")
然后再定义个变量
dim data as string
’163条每行20条需要9行
For i = 0 To 19
data =""
For j = 0 To 7
data = data & s(i + j * 20)
Next j
List1.AddItem data
Next i
’’最后一行是第 161 162 163 个数据
data = s(160) & s(161) & s(162) ’s是数组下标从0开始的
List1.AddItem data

vb6 listbox如何始终显示最后一项

’使最后一行可见
listCount = list1.ListItems.count
If listCount 》 0 Then
list1.SetFocus
list1.ListItems(listCount).Selected = True
list1.ListItems(listCount).EnsureVisible
End If
上面代码的执行流程是先判断列表是否有内容，若有内容则取到最后一行编号，让最后一行选中，并显示之

VB中的List控件里如何能横向显示数据

假设随机变量为
rndX、
rndY、
rndZ，显示的固定个数为3，list控件是listbox1。
可以利用字符串的方式添加ITEM。
’====================================================
Dim
strITEM
as
Strign
’ITEM
strITEM
=
cSTR(rndX)
&
Space(1)
&
cSTR(rndY)
&
Space(1)
&
cSTR(rndZ)
’添加到LIST控件
listbox1.item.add(strITEM)
’====================================================
希望有帮助

vb中文本框可以输出的内容如何在列表框里输出

以下程序实现：在文本框输入内容，按回车键（Enter键）后，文本框中的内容输出到列表框。

1）在窗体上布置一个TextBox控件和一个ListBox控件

2）代码

Option Explicit
Private Sub Form_Load()
    ’ 窗体启动时，清空Text1和List1
    Text1.Text = ""
    List1.Clear
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    ’ 如果按下了回车键（回车键的Ascii码为13）
    If KeyAscii = 13 Then
        Dim s As String
        ’ 取出Text1中输入的内容并滤除前后的空格
        s = Trim(Text1.Text)

        If s 《》 "" Then
            ’ 如果Text1中输入的内容不为空，则添加到List1中
            List1.AddItem s
            ’ 添加后，清空Text1
            Text1.Text = ""
        End If
    End If
End Sub

3）运行效果

窗体启动时

在Text1中输入，按回车后，输入的内容在List1中显示

vb 中要让listbox把数据库的查询结果列出来,怎么办

要用几个listbox，如果用三个listbox来对应三个字段还好实现。
listbox.clear ’注意清除相同数据
for i =1 to adodc1.recordset.recordcount
listbox1.additem adodc1.recordset.filds(0)
adodc1.recordset.movenext
next i
如果是只用一个listbox可能要麻烦些。
数据库会连接吗？如果不会，我自己写了个方法，很方便使用的。