[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2178人关注过本帖树形打印复制链接主题：[求助]

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/25 11:52:00 [显示全部帖子]

做不到。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/25 12:22:00 [显示全部帖子]

做一个计划管理，输入下面的内容

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class197" Then
        Dim sp = frm.Controls("SplitContainer1").panel1.controls("MyCodeEditor21").controls("SplitContainer1")
        sp.panel2.visible = False
        sp.SplitterDistance = sp.width
    ElseIf frm.name = "Class260" Then
        Dim sp = frm.Controls("MyCodeEditor1").Controls("SplitContainer1")
        sp.panel2.visible = False
        sp.SplitterDistance = sp.width
    End If
End If

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/25 15:09:00 [显示全部帖子]

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class197" Then

    ElseIf frm.name = "Class260" Then
        frm.controls("btnCommand").visible = False
        frm.controls("btnSql").visible = False
        If frm.controls("panel1") Is Nothing Then
            Dim edit = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
            Dim p As new windows.Forms.panel
            p.name = "panel1"
            p.Dock = 5
            p.controls.add(edit)
            frm.controls.add(p)
            frm.Controls("MyCodeEditor1").Visible = False

            frm.controls("button3").visible = False
            frm.controls("button4").visible = False
            frm.controls("button5").visible = False
            frm.controls("btnCommand").visible = False
            frm.controls("btnSql").visible = False
        End If
    End If
End If

下一主题 >> << 上一主题

主题：[求助]