VB中listbox怎么用？

来源：百度知道 编辑：UC知道 时间：2024/05/18 17:52:17
两个listbox，程序如下：
Private Sub Form_Load()
List1.AddItem "一"
List1.AddItem "二"
List2.AddItem "三"
List2.AddItem "四"
End Sub
还有4个复选框check1（1），check1（2），check1（3），check1（4）
一个command按钮
实现如下功能：
如果list1选择1，list2选择3，按command则check1（1）被选中
如果list1选择1，list2选择4，按command则check1（2）被选中
如果list1选择2，list2选择3，按command则check1（3）被选中
如果list1选择2，list2选择4，按command则check1（4）被选中

Private Sub Command1_Click()
If List1.Text = "一" Then
If List2.Text = "三" Then Call chkselect(1)
If List2.Text = "四" Then Call chkselect(2)
End If
If List1.Text = "二" Then
If List2.Text = "三" Then Call chkselect(3)
If List2.Text = "四" Then Call chkselect(4)
End If
End Sub

Sub chkselect(index As Integer)
Dim i%
For i = 1 To 4
Check1(i).Value = 0
Next
Check1(index).Value = 1
End Sub

Private Sub Form_Load()
List1.AddItem "一"
List1.AddItem "二"
List2.AddItem "三"
List2.AddItem "四"
End Sub

Private Sub Command1_Click()
If List1.ListIndex < 0 Then
MsgBox ("list1未选")
Exit Sub
End If

If List2.ListIndex < 0 Then
MsgBox ("list2未选")
Exit Sub
End If

Check1(1).Value = 0