VB中的列表框问题

Question

两个列表框list1和list2
Private Sub list1_dblClick()
If List1.Selected(0) = True Then
text1.Text = text1.Text & vbCrLf & "√" 可以在text里打出√
为什么Private Sub list2_dbClick()
If List2.Selected(0) = True Then
Text1.Text = text1.Text & vbCrLf & "√"就不行了？

Answer 1

事件名少一个l
list2_dblClick()追问

有啊 Private Sub list2_dbClick()

追答

什么眼神啊
DB后面你确实少了一个l

Answer 2

我用下面的代码测试， List2可以在text里打出√，

Private Sub List1_DblClick()

If List1.Selected(0) = True Then

Text1.Text = Text1.Text & vbCrLf & "√"

End If

End Sub

Private Sub List2_DblClick()

If List2.Selected(0) = True Then

Text1.Text = Text1.Text & vbCrLf & "√"

End If

End Sub

张志晨