如题,我有一个TabStrip1,上面有两个tab,index分别是1,2。tab1上有一个FrameIn,tab2上有一个FrameOut.
在执行时,点tab1,可以显示出FrameIn来;但是点tab2时,虽然可以执行到下面的case 2的代码,debug执行到了FrameOut.Visible = True
语句,但是执行后FrameOut.Visible 仍然为false。
请问是什么原因?
多谢!
Private Sub TabStrip1_Click()
    Select Case TabStrip1.SelectedItem.Index
            Case 1                               ' 修改收入有效
                          FrameOut.Visible = False
                          
                          FrameIn.Caption = "收入"
                          FrameIn.Visible = True
            Case 2                              ' 修改支出有效
                          FrameIn.Visible = False
                          
                          FrameOut.Caption = "支出"
                          FrameOut.Visible = True
    End Select
End Sub

解决方案 »

  1.   


    '代码没有问题.估计是把Frameout画在FrameIn上面了.
    '当FrameIn.Visible = False时Frameout也跟着隐藏起来.
    Private Sub TabStrip1_Click()    Select Case TabStrip1.SelectedItem.Index
                Case 1                               ' 修改收入有效
                              Frameout.Visible = False
                              
                              FrameIn.Caption = "收入"
                              FrameIn.Visible = True
                Case 2                              ' 修改支出有效
                              FrameIn.Visible = False
                              Frameout.Caption = "支出"
                              Frameout.Visible = True
        End Select
    End Sub
      

  2.   

    Private Sub Form_Load()
          FrameIn.Move TabStrip1.ClientLeft, _
          TabStrip1.ClientTop, _
          TabStrip1.ClientWidth, _
          TabStrip1.ClientHeight
          FrameOut.Move TabStrip1.ClientLeft, _
          TabStrip1.ClientTop, _
          TabStrip1.ClientWidth, _
          TabStrip1.ClientHeight
          End Sub
      Private Sub TabStrip1_Click()
        Select Case TabStrip1.SelectedItem.Index
        Case 1                               ' 修改收入有效
        FrameIn.ZOrder 0
            FrameIn.Caption = "收入"
        Case 2                              ' 修改支出有效
          FrameOut.ZOrder 0
        FrameOut.Caption = "支出"
        End Select
    End Sub
      

  3.   

    多谢各位。像2楼说的,我把FrameOut画在FrameIn上了。居然忘了这一茬!!!