Option Explicit Private fCurPicCtnIndex As Long Private Sub Form_Load() Dim i As Long fCurPicCtnIndex = picContainer.LBound For i = picContainer.LBound To picContainer.UBound If (i = picContainer.LBound) Then picContainer(i).Visible = True Else picContainer(i).Visible = False
End If
Next i End Sub'--------------------------------------------------------------------------------------- ' 过程名 : ChangeContainer ' 时间 : 2010-6-30 13:49 ' 作者 : 杨过.网狐.cn(csdn bcrun) ' 功能 : 切换到新的容器 ' 说明 : ' 备注 : '--------------------------------------------------------------------------------------- ' Private Sub ChangeContainer(ByVal index As Long) If (index = fCurPicCtnIndex) Then Exit Sub If ((index < picContainer) Or (index > picContainer.UBound)) Then Exit Sub picContainer(index).Visible = True picContainer(fCurPicCtnIndex).Visible = False fCurPicCtnIndex = index End Sub
或
多frame重叠,通过frame.visible隐藏、显示来切换
Private fCurPicCtnIndex As Long
Private Sub Form_Load()
Dim i As Long
fCurPicCtnIndex = picContainer.LBound
For i = picContainer.LBound To picContainer.UBound
If (i = picContainer.LBound) Then
picContainer(i).Visible = True
Else
picContainer(i).Visible = False
End If
Next i
End Sub'---------------------------------------------------------------------------------------
' 过程名 : ChangeContainer
' 时间 : 2010-6-30 13:49
' 作者 : 杨过.网狐.cn(csdn bcrun)
' 功能 : 切换到新的容器
' 说明 :
' 备注 :
'---------------------------------------------------------------------------------------
'
Private Sub ChangeContainer(ByVal index As Long)
If (index = fCurPicCtnIndex) Then Exit Sub
If ((index < picContainer) Or (index > picContainer.UBound)) Then Exit Sub
picContainer(index).Visible = True
picContainer(fCurPicCtnIndex).Visible = False
fCurPicCtnIndex = index
End Sub
或者你直接在窗体上建立一个frame把控件放在它上面平时隐藏用到的时候让他显示到顶层
my blog
http://ufo-crackerx.blog.163.com/