Немного про combobox - VB

Формулировка задачи:

Задача: при выборе определенной строки из combobox должно появляться соответственно 1, 2 или 3 рамки Предварительно на форме делаю рамки невидимыми
Private Sub Combo1_click()
If Combo1.ListIndex = 0 Then
Frame1.Visible = True And Frame2.Visible = False And Frame3.Visible = False
    ElseIf Combo1.ListIndex = 1 Then
    Frame1.Visible = True And Frame2.Visible = True And Frame3.Visible = False
        ElseIf Combo1.ListIndex = 2 Then
        Frame1.Visible = True And Frame2.Visible = True And Frame3.Visible = True
End If
End Sub
В итоге ничего не происходит. Тоже самое если писать Private Sub Combo1_Change()


textual

Код к задаче: «Немного про combobox - VB»

Private Sub Combo1_Click()
    Select Case Combo1.ListIndex
        Case 0
            Call FrameShow(True, False, False)
        Case 1
            Call FrameShow(True, True, False)
        Case 2
            Call FrameShow(True, True, True)
    End Select
End Sub
 
Function FrameShow(bFrame1 As Boolean, bFrame2 As Boolean, bFrame3 As Boolean) As Long
    Frame1.Visible = bFrame1
    Frame2.Visible = bFrame2
    Frame3.Visible = bFrame3
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5

Источник
Похожие ответы