VB初学者~请教高手：listbox中如何插入文字（可单击）？？？最好有编码~~谢谢

比如用户在text1中输入了内容，然后点击按钮向listbox里面添加内容的话，代码很就很简单

Private Sub Command1_Click()

list1.additem text1.text

End Sub

如果是不想按按钮，那就用text1_change事件

你补充的内容的解决方案我给个思路，你参考一下：

用list1.list(list1.listindex)获取选中行的内容，然后如果listbox里面的数据不多的话，可以直接用

if list1.list(list1.listindex)="这里输入对应的条件"then

msgbox"这里填写你的详细提示"

end if（这种方法也可用select case代替）

如果数据量多，就搞一个小数据库，与数据库匹配

楼主您好！

aaaa和bbbb都是字符串，需要加上双引号("")

所以改成：

List1.AddItem "aaaa"

List1.AddItem "bbbb"

或者加入代码：

Dim aaaa As String,bbbb As String

aaaa = "aaaa"

bbbb = "bbbb"

望采纳~~

ListBox控件显示较长的选项列表，用户可从中选择一项或多项。如果项总数超出可以显示的项数，则自动向ListBox控件添加滚动条。ListBox控件列表中的每个元素称为项。图1所示为ListBox控件

功能描述：

ListBox控件显示较长的选项列表，用户可从中选择一项或多项。如果项总数超出可以显示的项数，则自动向ListBox控件添加滚动条。ListBox控件列表中的每个元素称为项，

说明：

① 该属性使用户可以获取对当前存储在 ListBox 中的项列表的引用。通过此引用，可以在集合中添加项、移除项和获得项的计数。

② 可以使用DataSource属性来 *** 控ListBox的项。如果使用DataSource属性向ListBox添加项，则可以使用Items属性查看ListBox中的项，但不能使用ListBox.ObjectCollection的方法向该列表添加项或从中移除项。

C# 代码如下：

SqlConnection con = new SqlConnection("server=12uid=sapwd=database=test")

con.Open()

SqlCommand com = new SqlCommand("select * from table",con)

SqlDataReader dr = com.ExecuteReader()

this.listBox1.Items.Clear()

while (dr.Read())

{

// this.listBox1.Items.Add(dr[0].ToString())

this.listBox1.Items.Add(dr[1].ToString())

//   this.listBox1.Items.Add(dr[2].ToString())

}

dr.Close()

con.Close()

---