以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  e 参数传递冲突怎么结局  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175951)
--  作者：yifan3429
--  发布时间：2022/3/24 23:11:00
--  e 参数传递冲突怎么结局

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20220324230927.png
图片点击可在新窗口打开查看
 代码必须有 e参数
调用函数 时使用 e 参数就会报错

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20220324230852.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/3/24 23:11:20编辑过]
--  作者：有点蓝
--  发布时间：2022/3/24 23:25:00
--  
第二段代码放在哪个事件的？有e参数吗？
--  作者：yifan3429
--  发布时间：2022/3/25 0:36:00
--  
是自定义函数
放在 MainTableChanged
函数时有 e参数的
[此贴子已经被作者于2022/3/25 0:37:49编辑过]
--  作者：有点蓝
--  发布时间：2022/3/25 8:55:00
--  
先看完：http://www.foxtable.com/webhelp/topics/0604.htm


MainTableChanged

切换主表后执行，也就是MainTable发生变化后执行。
此事件无e参数，这是因为系统变量MainTable可以直接返回所选择的主表。
--  作者：yifan3429
--  发布时间：2022/3/26 17:17:00
--  
 这是一个菜单界面 不同的主表就有不同的菜单 没有e参数的话怎么解决呢 切换重新生成


Dim e = args(0)
For Each c As Object In e.Form.controls("TabControl1").TabPages(0).children
    e.Form.RemoveControl(c.name)
Next

\'遍历窗口所有控件 清除后重新加载新的控件

e.form.panel.parent.parent.Width = 220    \'设定窗口的宽度
e.Form.Text = CurrentTable.Name & "_ 菜单"

e.Form.StopRedraw()

Dim Button2 As WinForm.Button
Button2 = e.Form.CreateControl("刷新", ControlTypeEnum.Button)
\'Button.Text = "Foxtable"
Button2.Image = GetImage("Reject16.ico")
Button2.Left = e.Form.Width - 30
Button2.Top = e.Form.Height -30
Button2.Width = 25
Button2.Height = 25
Button2.BackColor = Color.White
Button2.BorderSize = 0
e.Form.AddControl(Button2)
--  作者：有点蓝
--  发布时间：2022/3/26 17:21:00
--  
e.Form改为forms("xx窗口")