文本控件

来源:百度知道 编辑:UC知道 时间:2024/09/23 11:04:06
窗体上一个Listbox,一个Textbox,两个Button,双击listbox里的内容,显示在textbox里,单击button,Button的caption显示在textbox里,且前一次加入的内容仍在

代码如下。第二个Button你也没说干什么的,我也没发写,就不写了/
===============
Private Sub Command1_Click()
Text1.Text = Text1.Text & Command1.Caption
End Sub

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

text1.text=text1.text & command1.caption
Private Sub List1_DblClick()
Text1.Text = List1.Text
End Sub