楼上两位好！我会持续更新的。
4.感觉foxtable代码编辑不够酷，可以参考论坛两位高人的帖子，用第三方代码编辑器：
blackzhu：Foxtable中调用Notepad++写代码的方法
shanshuizhujian：代码编辑器改造 用Sublime Text 辅助编辑
根据上述帖子，我用Sublime Text 3扩展了Foxtable代码编辑，具体实现方法：
1）当然要先下载Sublime Text 3，并安装。
2）添加内部函数：
'函数名：SublimeTextEdit，代码：
'调用SublimeText编辑器
If FileSys.DirectoryExists(ProjectPath & "Temp") Then
Else
FileSys.CreateDirectory(ProjectPath & "Temp")
End If
Dim CodeRichTextBox As Windows.Forms.RichTextBox
Dim frm = args(0)
If frm.name = "Class197" Then
CodeRichTextBox = frm.Controls("SplitContainer1").Panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
Else
CodeRichTextBox = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
End If
FileSys.WriteAllText(ProjectPath & "Temp\Code.Fox",CodeRichTextBox.Text,False)
CodeRichTextBox.SelectAll
Dim Proc As New Process
Proc.WaitForClose = True
Proc.File = "C:\Program Files\Sublime Text\sublime_text.exe"
Proc.Arguments = ProjectPath & "Temp\Code.Fox"
Proc.Start
Dim CodeStr As String = FileSys.ReadAllText(ProjectPath & "Temp\Code.Fox")
If CodeStr = CodeRichTextBox.Text Then Return Nothing
CodeRichTextBox.Text = CodeStr
3）在全局代码中的Default添加代码：
'启动Sublime Text
Public Sub SublimeTextEdit_Click(ByVal sender As Object, ByVal e As EventArgs)
Functions.Execute("SublimeTextEdit", sender.findform)
End Sub
4）在计划管理中新增一个计划，代码如下：
Dim frmCodeEditor As Windows.Forms.Form = Windows.Forms.Form.ActiveForm
If frmCodeEditor Is Nothing Then Return
'CurrentTable.Current("第一列") = frmCodeEditor.Name
If frmCodeEditor.Name <> "Class197" And frmCodeEditor.Name <> "Class260" Then Return
If frmCodeEditor.Controls("BtnSublimeTextEdit") IsNot Nothing Then Return
Dim tbtn
If frmCodeEditor.name = "Class197" Then
tbtn = frmCodeEditor.controls("Button5")
Else
tbtn = frmCodeEditor.controls("btnSQL")
End If
Dim BtnSublimeTextEdit As New Windows.Forms.Button
With (BtnSublimeTextEdit)
.Name = "BtnSublimeTextEdit"
.Anchor = windows.Forms.AnchorStyles.Left Or windows.Forms.AnchorStyles.Bottom
.Top = tbtn.Top
.Left = 300
.Width = 90 '.Size = tbtn.Size
.Text = "Sublime Text"
AddHandler .Click,AddressOf SublimeTextEdit_Click
End With
frmCodeEditor.Controls.Add(BtnSublimeTextEdit)
不知道为何，Sublime Text 3打开代码后，颜色无法加亮，变成白色，而如果我单独打开code.fox，是可以正常加亮颜色的，奇怪，哪位知道缘故？欢迎回帖，我补充好。
[此贴子已经被作者于2016/11/15 13:13:40编辑过]
加好友 
发短信
Post By：2016/11/13 21:01:00 [只看该作者]
此主题相关图片如下：导入菜单模板.png