VB如何用ComboBox实现窗口跳转功能

来源：百度知道 编辑：UC知道 时间：2024/06/06 13:04:47
FORM1中有一个ComboBox 和一个Command按钮
如何使FORM 2 对应ComboBox中的list1
使FORM 3 对应ComboBox中的list2
就是实现窗口和ComboBox一一对应
选择再进行确定后
可以实现窗口跳转

Option Explicit

Private Sub Command1_Click()
If Combo1.ListIndex = 0 Then
Load Form2
Form2.Show
Else
Load Form3
Form3.Show
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem Form2.Name
Combo1.AddItem Form3.Name
Combo1.ListIndex = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Form_1 As Form

For Each Form_1 In Forms
If Form_1.hWnd <> Me.hWnd Then Unload Form_1
Next
End Sub