Foxtable(狐表)用户栏目专家坐堂 → 新版编辑器报错


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

主题:新版编辑器报错

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
新版编辑器报错  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:7959 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By:2022/5/29 12:19:00 [只看该作者]

这种改造编辑器的,应该不是官方支持的用法,需要自行研究吧

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/5/29 15:13:00 [只看该作者]

不管新旧,自己改造,就意味着得自力更生。

 回到顶部