vb中双击listbox中一项使其在文本框中显示的程序

2025-03-22 12:31:23
推荐回答(2个)
回答1:

添加窗体,添加listbox控件list1,添加文本框text控件text1,代码如下:

Private Sub Form_Load()
For i = 1 To 20
List1.AddItem "编号:" & i
Next i
End Sub

Private Sub List1_DblClick()
Text1 = List1.List(List1.ListIndex)
End Sub

运行后,达到你的要求,效果如下:

回答2:

Private Sub List1_DblClick()
Text1.Text = List1.Text
End Sub