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

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

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

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

[求助]

Post By：2016/4/25 11:49:00 [只看该作者]

已知：设置了按钮A，按钮B

问题：点击按钮A，弹出按钮B的代码编辑器

请问代码怎么写？

大红袍

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

加好友

发短信

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

Post By：2016/4/25 11:52:00 [只看该作者]

做不到。

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

Post By：2016/4/25 11:55:00 [只看该作者]

好，明白，谢谢

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

Post By：2016/4/25 12:05:00 [只看该作者]

此主题相关图片如下：qq图片20160425120257.png

想问一下，当弹出代码编辑器的时候，能否不显示上图圈着的内容，只留下一个编辑框

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

fox-BT

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

加好友

发短信

等级：童狐帖子：242 积分：2040 威望：0 精华：0 注册：2016/1/6 15:08:00

Post By：2016/4/25 12:54:00 [只看该作者]

此主题相关图片如下：qq图片20160425124947.png

如果把上图圈着的也去掉，剩下代码输入框、确定按钮和取消按钮，就行了

代码怎么写

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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