如题,我有一个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
在执行时,点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
'代码没有问题.估计是把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
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