listview 窗口 点击代码:
'生成编译函数
Dim code As String
code= " dim name as string = args(0) " & vbcrlf
code= code & " Select Case name " & vbcrlf
For Each dr As DataRow In DataTables("导航").DataRows
If dr("代码")> "" Then
code = code & " case " & """" & dr("名称") & """" & vbcrlf
code = code & dr("代码") & vbcrlf
End If
Next
code= code & "end Select " & vbcrlf
Functions.Remove("nav")
Functions.Add("nav",Code)
Functions.Complie
内部函数,“增加页签”代码:
Dim name As String = Args(0)
'msgbox(name)
Dim text As String = Args(1)
Dim tab As WinForm.TabControl = forms("主页").Controls("TabControl1")
If tab.TabPages(name) Is Nothing Then
tab.TabPages.Add(name,text)
Dim pb = tab.BaseControl
Forms(name).OPEN(-1000,-1500)
Forms(name).BaseForm.TopLevel = False
Forms(name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(name).BaseForm)
tab.SelectedPage = tab.TabPages(name)
Else
tab.SelectedPage = tab.TabPages(name)
End If
design_savecode 函数代码:
'在命令窗口编辑后,保存代码
Dim code As String
Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
Dim obj = frm.controls("SplitContainer1")
If obj.name="SplitContainer1" Then
Dim editor = obj.panel1.controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
'msgbox(editor.text)
CurrentTable.value = editor.text
'frm.close
End If
全局代码:
'页签主页不能关闭
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
If e.TabPage.Name = "主页" And vars("canclose")=True Then
vars("canclose")=False
e.Cancel = True
End If
Return
End Sub
'保存代码
Public Sub SaveCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Functions.Execute("Design_SaveCode")
End Sub
Public hszd As new Dictionary(of String,String)
Public hsdms As new Dictionary(of String,String)