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
加好友 
发短信
Post By：2019/6/26 10:50:00 [只看该作者]
