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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84179)

--  作者：fox-BT
--  发布时间：2016/4/25 11:49:00
--  [求助]
已知：设置了按钮A，按钮B
问题：点击按钮A，弹出按钮B的代码编辑器
请问代码怎么写？

--  作者：大红袍
--  发布时间：2016/4/25 11:52:00
--
做不到。

--  作者：fox-BT
--  发布时间：2016/4/25 11:55:00
--
好，明白，谢谢

--  作者：fox-BT
--  发布时间：2016/4/25 12:05:00
--

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

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

--  作者：大红袍
--  发布时间：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
--  发布时间：2016/4/25 12:54:00
--

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

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

--  作者：大红袍
--  发布时间：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

--  作者：fox-BT
--  发布时间：2016/4/25 15:09:00
--

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

请问这个也取消怎么写

--  作者：fox-BT
--  发布时间：2016/4/25 15:12:00
--
看到了，谢谢！