vb listbox 如何换行？

Posted 2023-04-02

vb listbox 如何换行？我用text1设置了多行 但是listbox中显示的内容还不是text1中显示的内容， 比如text1设置了Text1.MultiLine = True text1.ScrollBars = 2 ，第一行显示为你好吗 第二行为 我很好 但在listbox中显示就为 你好吗我很好 我希望能像text1那样显示 求高人指点!

程序中：
List1.AddItem "你好吗"
List1.AddItem "我很好"
或者在设计阶段在List1的List属性中输入：
你好吗
我很好
注意换行的时候按住Ctrl再按回车键 参考技术A 文本框内容添加到列表框：

dim a() as string
a=split(text1,vbcrlf)
for i=0 to ubound(a)
list1.additem a(i)
next 参考技术B 应该用split$函数把文本框的内容分解为几个项，赋值给一个动态数组，然后用循环语句依次添加到listbox中。
具体的代码就不给你了，这几天考试，没时间。你按照这个思路做就可以了。

VB8 如何将 listbox1 和 listbox2 链接在一起以填充标签？

【中文标题】VB8 如何将 listbox1 和 listbox2 链接在一起以填充标签？

【英文标题】：VB8 How to have a listbox1 and listbox2 link together to populate a label?

【发布时间】：2016-03-21 05:03:40

【问题描述】：

所以我搜索了这个解决方案，但找不到我需要的。

在 vb8 中，我有 2 个列表框。 Listbox1 包含文本性质的项目。而 Listbox2 包含数字性质的项目。

Listbox1 包含文本： 狗指数 = 0 猫指数 = 1 鸟类指数 = 2 鱼指数 = 3 Listbox2 包含数字： 12 索引 = 0 14 索引 = 1 78 索引 = 2 94 索引 = 3

所以我想在 Listbox1 中选择一个项目并让它自动将相应的数字（通过 listbox2 的索引）输入到标签中。

即。当狗被选中时，它的 selectedindex 为 0。我试图获取它，以便在 label1 中它是 listbox2 的 0 的 selectedindex，即 = 12

我一直在尝试操纵我在互联网上找到的许多不同的代码，但没有任何效果。

感谢您提供的任何帮助。

我在 google 上找到了这段代码，并一直在尝试对其进行操作，但仍然无法正常工作。

           ' Get the currently selected item in the ListBox.
    Dim curItem As String = ListBox1.SelectedIndex.ToString()

    ' Find the string in ListBox2.
    Dim index1 As Integer = ListBox2.FindString(curItem)
    ' If the item was not found in ListBox 2 display a message box, otherwise select it in ListBox2.
    If index1 = -1 Then
        MessageBox.Show("Item is not available in ListBox2")
    Else
        ListBox2.SetSelected(index1, True)
    End If

【问题讨论】：

添加您当前的代码，SO 将帮助您使其工作。

问题是我真的不知道从哪里开始，我对 vb 很陌生。

*** 不是谷歌。谷歌就是谷歌。

我已经连续使用 google 5 个小时了。

我也在“google”上找到了这段代码，我一直在尝试操纵它来为我工作。 ' 获取 ListBox 中当前选中的项。 Dim curItem As String = ListBox1.SelectedIndex.ToString() ' 在 ListBox2 中查找字符串。 Dim index1 As Integer = ListBox2.FindString(curItem) ' 如果在 ListBox 2 中没有找到该项目，则显示一个消息框，否则在 ListBox2 中选择它。 If index1 = -1 Then MessageBox.Show("Item is not available in ListBox2") Else ListBox2.SetSelected(index1, True) End If

【参考方案1】：

LMAO，所以我偶然想出了如何回答我自己的问题。

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged





    ListBox2.SelectedIndex = ListBox1.SelectedIndex




End Sub

谢谢大家。

然后将数字输入到标签中：

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
    Label1.Text = ListBox2.Text

End Sub