vb一道关于列表框的问题，急

2024-11-22 18:24:53

推荐回答（5个）

回答（1）：

问题:1 列表框名为L1, 你却有时用L1,有时用list1
2 a要定义全局变量

Dim i As Integer
Dim a As String
Private Sub L1_dblClick()
For i = 0 To 3
If L1.Selected(i) = True Then
L1.AddItem a
End If
Next
End Sub
Private Sub Text1_Change()
a = Text1.Text
End Sub

回答（2）：

错误424意思是对象未定义.你的列表框名称为L1, 那么List1.Selected.... List1.Additem中的list1就是未定义的对象了,把它们改成L1.Selected....L1.Additem
还有你的变量a也应该先定义一下,在Dim i As Integer下面加上Dim a As String
还有你的逻辑也有点乱,你把L1.AddItem a改为L1.AddItem Text1.Text,那么Sub Text1_Change()这一过程,以及变量a根本不需要

回答（3）：

上面声明的应该是a

dim a as string

Private Sub L1_dblClick()
dim i as integer '这里声明 i
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next
End Sub

回答（4）：

列表框名称是L1,你代码里面的list1.Selected(i)这类的list1 都应该改成 L1

回答（5）：

Option Explicit
Dim i, a

Private Sub List1_DblClick()
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next i
End Sub

Private Sub Text1_Change()
a = Text1.Text
End Sub
我试着没错啊