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


  共有1891人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
大红袍
  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


 回到顶部