Foxtable(狐表) → 用户栏目 → 专家坐堂 → Functions.Execute问题


  共有2207人关注过本帖树形打印复制链接

主题：Functions.Execute问题
帅哥哟，离线，有人找我吗？
swagger
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		Functions.Execute问题  发帖心情 Post By：2019/11/28 11:44:00 [只看该作者]

listview点击图标，触发单元格 Functions.Execute("增加页签",name,name)，弹出窗口（譬如‘订单’窗口），开发版的电脑能够操作窗口控件和表格，但是其它电脑没法操作窗口控件和表格。请看下问题出在哪里？

[此贴子已经被作者于2019/11/28 11:46:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
swagger
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		  发帖心情 Post By：2019/11/28 11:46:00 [只看该作者]

内部函数，“增加页签”代码：
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/28 12:04:00 [只看该作者]

联系客服重新激活一下Foxtable

 回到顶部
帅哥哟，离线，有人找我吗？
swagger
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		  发帖心情 Post By：2019/11/28 13:28:00 [只看该作者]

不用发其它代码了吗，是激活问题，还是代码问题呢？

 回到顶部
帅哥哟，离线，有人找我吗？
swagger
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		  发帖心情 Post By：2019/11/28 13:43:00 [只看该作者]

已经联系过客服，说激活码没问题

 回到顶部
帅哥哟，离线，有人找我吗？
swagger
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		  发帖心情 Post By：2019/11/28 13:59:00 [只看该作者]

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)
 回到顶部
帅哥哟，离线，有人找我吗？
swagger
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00 		  发帖心情 Post By：2019/11/28 13:59:00 [只看该作者]

导航表代码 cellbuttonclick 


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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/28 14:32:00 [只看该作者]

请上传实例测试

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询