vb一道关于列表框的问题，急
题目：在窗体上画一个文本框，名称为text1，text属性为空白。再画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“AAAA”,“BBBB”,“CC...
题目：在窗体上画一个文本框，名称为text1，text属性为空白。再画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“AAAA”,“BBBB”,“CCCC”,“DDDD”。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。
代码如下：
Dim i As Integer
Private Sub L1_dblClick()
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next
End Sub
Private Sub Text1_Change()
a = Text1.Text
End Sub
说是实时错误424，但我看不出来哪儿是错的，请指点 展开
代码如下：
Dim i As Integer
Private Sub L1_dblClick()
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next
End Sub
Private Sub Text1_Change()
a = Text1.Text
End Sub
说是实时错误424，但我看不出来哪儿是错的，请指点 展开
6个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
