添加窗体,添加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
运行后,达到你的要求,效果如下:
Private Sub List1_DblClick()
Text1.Text = List1.Text
End Sub