Foxtable(狐表)用户栏目专家坐堂 → [求助]如何调用命令窗口写代码,并将写下来的代码保存出来?


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

主题:[求助]如何调用命令窗口写代码,并将写下来的代码保存出来?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/17 17:53:00 [显示全部帖子]

参考

 

下载信息  [文件大小:324.0 KB  下载次数:8]
图片点击可在新窗口打开查看点击浏览该文件:外部编辑器_测试.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/18 14:46:00 [显示全部帖子]

比如代码

 

Syscmd.Project.CommandWindow()
For Each frm As object In application.openforms
    If frm.Name = "Class260" Then
        Dim CodeRichTextBox  As System.Windows.Forms.RichTextBox
        msgbox(frm.text)
        If frm.text.contains("代码编辑器")
            CodeRichTextBox = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
        Else
            CodeRichTextBox = frm.Controls("SplitContainer1").Panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
        End If
        CodeRichTextBox.text = "msgbox(123)"
    End If
Next


 回到顶部