关于VB 的combo控件
界面上有一个combo控件,下拉菜单里面A和B两种不同选择。还有两个frame控件。当combo里面的内容是A时,frame1 显示,当combo里面的内容是B时,frame2 显示。Private Sub Frame2_Click()
If Combo.Text = a Then
Frame1.Visible = True
End If
End Sub
这个程序不能实现这个功能,怎样实现呢?
Private Sub Combo1_Click() Select Case Combo1.Text Case Is = "A" Frame2.Visible = False Frame1.Visible = True Case Is = "B" Frame1.Visible = False Frame2.Visible = True End Select End Sub Private Sub Form_Load() Combo1.AddItem "A" Combo1.AddItem "B" End Sub