vb 定义全局变量

来源：百度知道 编辑：UC知道 时间：2024/05/20 02:25:30
1. 它包含2个列表框，左边为已开设的课程名称，通过 form_load事件加入，并按拼音字母排列；
2. 当单击某课程名称后，将该课程加入到右边列表框，并在左边列表框中删除该课程。
3 当右边课程数已满5门时，不允许加入，出现msgbox，（msgbox提示为超过5门，不能重选，按钮只有个确定）

'控件：List1 List2
'在属性窗口将 List1 的 Sorted 属性设置为 True
Private Sub Form_Load()
Me.Caption = "选择课程"
List1.AddItem "语文"
List1.AddItem "数学"
List1.AddItem "外语"
List1.AddItem "化学"
List1.AddItem "生物"
List1.AddItem "历史"
List1.AddItem "地理"
List1.AddItem "建筑"
List1.AddItem "计算机"
End Sub

Private Sub Form_Resize()
On Error Resume Next
List1.Move 0, 0, Me.ScaleWidth * 0.5, Me.ScaleHeight
List2.Move Me.ScaleWidth * 0.5, 0, Me.ScaleWidth * 0.5, Me.ScaleHeight
End Sub

Private Sub List1_Click()
If List2.ListCount >= 5 Then
MsgBox "课程已满 5 门，不能多选。", vbInformation, Me.Caption
Exit Sub
End If
If List1.ListIndex < 0 Then Exit Sub
List2.AddItem List1.List(List1.ListIndex)
List1.Remo