以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何调用命令窗口写代码，并将写下来的代码保存出来？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136622)
--  作者：zto001
--  发布时间：2019/6/17 17:24:00
--  [求助]如何调用命令窗口写代码，并将写下来的代码保存出来？
[求助]如何调用命令窗口写代码（表格内）或者修改代码（表格内），并将写下来的代码保存出来？
--  作者：有点甜
--  发布时间：2019/6/17 17:53:00
--  

参考

 

下载信息  [文件大小：324.0 KB  下载次数：8]
图片点击可在新窗口打开查看点击浏览该文件:外部编辑器_测试.table
--  作者：zto001
--  发布时间：2019/6/18 14:15:00
--  

将代码编辑器里面的保存下来会了。问下打开命令窗口后我怎么把指定内容自动输入进去呢？
--  作者：zto001
--  发布时间：2019/6/18 14:18:00
--  

代码保存到表格：

 

\'CodeRichTextBox.SelectAll
\'Dim Proc As New Process
\'Proc.WaitForClose = True
\'Proc.File = "notepad"
\'Proc.Arguments = ProjectPath & "Code.Fox"
\'Proc.Start
Dim CodeStr As String = FileSys.ReadAllText(ProjectPath & "Code.Fox")
Dim d As Row = Tables("表A").AddNew()
d("第一列")=CodeStr
\'If CodeStr = CodeRichTextBox.Text Then Return Nothing
\'CodeRichTextBox.Text = CodeStr

 

 

更换为：    .Text = "保存代码"

 

 

现在只有反向不会了，让表格内容自动输入命令窗口
--  作者：有点甜
--  发布时间：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