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

参考

下载信息  [文件大小：324.0 KB  下载次数：8]

点击浏览该文件:外部编辑器_测试.table

将代码编辑器里面的保存下来会了。问下打开命令窗口后我怎么把指定内容自动输入进去呢？

代码保存到表格：

'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 = "保存代码"

现在只有反向不会了，让表格内容自动输入命令窗口

比如代码

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