求助帖 程序运行不出来
本人初学VB6.0 在书上有个例子 可输进去不对 找不出错误 对了也没输入错误 就是运行不出来 高手帮帮忙吧Private Sub Command1_Click(Index As Integer)
Select Case Index '将选择的列表项从list移到list2
Case 1
If List1.ListCount = 0 Then
Exit Sub
End If
If List1.ListIndex = -1 Then
List1.SetFocus
List1.Selected(0) = True
End If
DoEvents '如果list1中没有选中的列表项则选择第一个列表项
List2.AddItem List1.Text '将选择的列表项从list1移到list2;将list1的所有列表项移到list2中
List1.RemoveItem List1.ListIndex
Case 2
If List1.ListCount = 0 Then
Exit Sub
If List1.ListIndex = -1 Then
List1.SetFocus
List1.Selected(0) = True
End If
DoEvents '如果list1中没有选中的列表项则选择第一个列表项
For i = (List1.ListCount - 1) To 0 Step -1
List2.AddItem List1.List(i)
DoEvents
Next i '讲list1中的所有列表项添加到list2中
List1.Clear '删除list1中的所有列表项;将选择列表项list2移到list1
Case 3
If List2.ListCount = 0 Then
Exit Sub
End If
If List2.ListIndex = -1 Then
List2.SetFocus
List2.Selected(0) = True
End If
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
Case 4
If List2.ListCount = 0 Then
Exit Sub
End If
If List2.ListIndex = -1 Then
List2.SetFocus
List2.Selected(0) = True
End If
For i = (List2.ListCount - 1) To 0 Step -1
List1.AddItem List2.List(i)
DoEvents
Next i
List2.Clear
End Select
End Sub
Private Sub Form_Load()
List1.AddItem "信息系统概论", 0
List1.AddItem "组织行为学", 1
List1.AddItem "会计学", 2
List1.AddItem "货币银行学", 3
List1.AddItem "西方经济学", 4
List1.AddItem "公共关系学", 5
List1.AddItem "博弈论", 6
End Sub