'函数调用0===================
'Dim contMenu As String = "导航树右键菜单(报表表格右键菜单)" '
'Dim ContextMenu As Windows.Forms.ContextMenuStrip = Functions.Execute("Tree_CreatViewMenu",contMenu )
'e.Form.Controls("TreeView1").BaseControl.ContextMenuStrip = ContextMenu ''绑定右键菜单控件
'''功能:定义右键菜单 leexianfeng 日期:2016-11-27 10:28:57
'''通过参数,定义不同空间的右键菜单 leexianfeng 日期:2019-3-27 13:06:00
'函数调用1===================
Dim contMenu As String = args(0)
Dim cms As Windows.Forms.ContextMenuStrip = New System.Windows.Forms.ContextMenuStrip
Select Case contMenu
Case "导航树右键菜单"
Dim fMenu1 As new System.Windows.Forms.ToolStripMenuItem("更改数量",GetImage(projectpath & "images\show.ico"))
cms.items.clear()
cms.Items.Add(fMenu1) '为全局变量CMS 也就是右键菜单添加 "菜单一"
Case "报表表格右键菜单"
Dim fMenu1 As new System.Windows.Forms.ToolStripMenuItem("刷新方案表",GetImage(projectpath & "images\show.ico"))
Dim fMenu2 As new System.Windows.Forms.ToolStripMenuItem("输出方案表",GetImage(projectpath & "images\show.ico"))
Dim fMenu3 As new System.Windows.Forms.ToolStripMenuItem("编辑方案表",GetImage(projectpath & "images\show.ico"))
Dim fMenu4 As new System.Windows.Forms.ToolStripMenuItem("新增项目",GetImage(projectpath & "images\show.ico"))
Dim fMenu5 As new System.Windows.Forms.ToolStripMenuItem("删除项目",GetImage(projectpath & "images\show.ico"))
Dim fMenu6 As new System.Windows.Forms.ToolStripMenuItem("导出方案图纸",GetImage(projectpath & "images\show.ico"))
cms.items.clear()
cms.Items.Add(fMenu1) '为全局变量CMS 也就是右键菜单添加 "菜单一"
cms.Items.Add(fMenu2)
cms.Items.Add(fMenu3)
cms.Items.Add(fMenu4)
cms.Items.Add(fMenu5)
cms.Items.Add(fMenu6)
End Select
Return cms
''---------------------------------------------------------------------------------------------------------------------------
[此贴子已经被作者于2019/3/27 15:39:17编辑过]
加好友 
发短信
Post By：2017/12/27 8:33:00 [只看该作者]
