我想做个上位机界面,点菜单中各个选项怎么样实现界面的切换?我的界面很多,不想点一个菜单中选项就弹出一个窗口,那样就会有很多窗口。

解决方案 »

  1.   

    sstab选项卡来切换

    多frame重叠,通过frame.visible隐藏、显示来切换
      

  2.   

    每个界面就是一个form,form1.visible=true/false进行切换
      

  3.   

    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
      

  4.   

    可以把前一个窗体隐藏再显示后一个窗体
    或者你直接在窗体上建立一个frame把控件放在它上面平时隐藏用到的时候让他显示到顶层
      

  5.   

    介绍你一个控件吧,不用自己去弄这么多。DirectSkin.7.0.2网站
    my blog
    http://ufo-crackerx.blog.163.com/