- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]菜单使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72355)
-- 发布时间：2015/7/28 21:38:00
-- [求助]菜单使用
红袍老师，
没有找到合适例子学习下，关于窗口如何添加下拉菜单的？
[此贴子已经被作者于2015/7/29 0:02:48编辑过]
-- 发布时间：2015/7/28 21:40:00
--
1、可以用弹出菜单；
2、可以用窗口；
| 下载信息 [文件大小：300.0 KB 下载次数：62] | |
 点击浏览该文件:窗口菜单.table |
-- 发布时间：2015/7/28 22:37:00
--
红袍老师，
能否根据表生成呢
类似递归科目
Dim mep As System.Windows.Forms.MenuStrip= args(0)
Dim dt As DataTable = args(1)
Dim gz As String = args(2)
For Each dr As DataRow In dt.Select("","编码规则") \'按代码顺序添加
Dim km As String = dr("编码规则")
If km.StartsWith(mep.name) AndAlso km.Length = mep.Name.Length + val(gz(dr("编码级次")-1)) Then
Dim cd As new System.Windows.Forms.ToolStripMenuItem= mep.Items.AddRange(new System.Windows.Forms.ToolStripItem(){km()})
Functions.Execute("AddChildren",cd,dt,gz)
End If
Next
-- 发布时间：2015/7/28 22:39:00
--
上传例子
-- 发布时间：2015/7/28 22:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口菜单.table |
劳烦您了
-- 发布时间：2015/7/28 23:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口菜单 (1).table |
-- 发布时间：2015/7/28 23:27:00
--
红袍老师，
窗口的click 事件
应该怎么写呢，下面的不执行
If e.Sender.Name="010101" Then
Forms("窗口1").Open
End If
-- 发布时间：2015/7/28 23:37:00
--
是不是 我的表 需要增加一列备注 然后把代码 放进列里 点击菜单 执行 列里面对代码
-- 发布时间：2015/7/29 9:26:00
--
以下是引用blsu33在2015/7/28 23:37:00的发言：
是不是 我的表 需要增加一列备注 然后把代码 放进列里 点击菜单 执行 列里面对代码
是不是 我的表 需要增加一列备注 然后把代码 放进列里 点击菜单 执行 列里面对代码
可以，但是，这样你就需要动态的编译代码了
http://www.foxtable.com/help/topics/1487.htm
-- 发布时间：2015/7/29 9:26:00
--
以下是引用blsu33在2015/7/28 23:27:00的发言：
红袍老师，
红袍老师，
窗口的click 事件
应该怎么写呢，下面的不执行
If e.Sender.Name="010101" Then
Forms("窗口1").Open
End If
事件绑定在全局代码那里。