这是一个菜单界面 不同的主表就有不同的菜单 没有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)
加好友 
发短信
Post By：2022/3/24 23:11:00 [只看该作者]
此主题相关图片如下：微信截图_20220324230927.png
