以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新版编辑器报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177624)
--  作者：yifan3429
--  发布时间：2022/5/28 20:40:00
--  新版编辑器报错
 If e.Col.name="code" Then
    Syscmd.Project.CommandWindow()
    Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
    frm.text="代码编辑器"
    For Each c As  System.Windows.Forms.Control In frm.Controls
        If c.name="SplitContainer1" Then
            c.controls.Item(0).controls.Item(0).controls.Item(0).controls.Item(0).controls.Item(0).controls.Item(0).controls.Item(0).text=e.Row("code")
        End If
    Next
    Dim lbl As new System.Windows.Forms.button
    lbl.Text = "保存代码"
    lbl.name="保存代码"
    lbl.Location = New Point(  frm.Controls("button3").left -80, frm.Controls("button3").Top)
    lbl.Anchor = System.Windows.Forms.AnchorStyles.bottom Or System.Windows.Forms.AnchorStyles.right  \'面板锚定
    If frm.Controls.Contains(lbl) = False Then
        frm.Controls.Add(lbl)
        AddHandler frm.Controls("保存代码").Click,AddressOf SaveCode_Click
    End If
    e.Cancel=True
End If
--  作者：chen37280600
--  发布时间：2022/5/29 12:19:00
--  
这种改造编辑器的，应该不是官方支持的用法，需要自行研究吧
--  作者：狐狸爸爸
--  发布时间：2022/5/29 15:13:00
--  
不管新旧，自己改造，就意味着得自力更生。