vb6.0 textbox2怎么显示不出来数据,换成 textbox1就可以了呢

Posted 2023-04-25

属性设置有问题，把textbox2删了，复制textbox1，并粘贴，选择不建立控件数组就可以啦 参考技术A 不可能的了，肯定是属性设置有问题了！ 参考技术B text2.text="要显示的内容"
如果显示不出来，可能是你textbox2控件属性设置有问题，前景颜色是不是设成白色的了。 参考技术C textbox2 的visible属性设置成了false吧 参考技术D 窗体上有textbox2么？

VB 如何让ListView选中的内容显示在Textbox中

有一个ListView控件，名字是ListView1
还有一TextBox控件，名字是TextBox1
我的目的是：选定ListView1中的一项时，将选定项的内容输出到文本框TextBox1中，
代码该怎么写啊？哪位高手能帮帮我？

假设你的数据都存在于数据库中，列名content，并且listview的首列是主键值id，还有已经建立了一个数据库连接对象Conn，那么可以在listview_itemclick事件代码中这样写：
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim sql As String
Dim rs As ADODB.Recordset
sql = "select content from article where id=" & Item.Text
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
TextBox1.Text = rs(1)
End If
rs.Close
End Sub

或许我把你的问题想得复杂了点，你要取得内容就在listview里面，那么这样写：
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox1.Text = item.subitems(1) '假设你的内容是存放在第2列
End Sub 参考技术A '获取点击的内容
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)'ItemClick：单击某行或某ListItem时触发。参数中可以获得被单击的ListItem对象。
Dim intX As Integer '定义一个整数变量
intX = ListView1.SelectedItem.Index
TextBox1.Text= ListView1.ListItems(intX).Text
End Sub