- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码执行问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137001)
-- 发布时间：2019/6/26 10:50:00
-- 代码执行问题
If e.Col.name="代码" Then
\'\'代码输入
Syscmd.Project.CommandWindow()
Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
frm.text="代码编辑器:" \'& args(0).ChangedItem.Label
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("代码")
End If
Next
Dim x As Integer
Dim y As Integer
For Each c As System.Windows.Forms.Control In frm.Controls
If c.name="button3" Then
x=c.left
y=c.Top
End If
Next
Dim lbl As new System.Windows.Forms.button
lbl.Text = "保存代码"
lbl.name="保存代码"
lbl.Location = New Point(x-80, y)
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
此主题相关图片如下：存.jpg
此主题相关图片如下：存.jpg-- 发布时间：2019/6/26 12:03:00
--
请在全局代码定义 SaveCode_Click
http://www.foxtable.com/webhelp/topics/1938.htm