- 积分
- 90
- 在线时间
- 83 小时
- 主题
- 8
- 注册时间
- 2013-11-11
- 帖子
- 76
- 最后登录
- 2024-7-28
- 帖子
- 76
- 软币
- 870
- 在线时间
- 83 小时
- 注册时间
- 2013-11-11
|
发表于 2016-2-5 22:48:04
|
显示全部楼层
在主程序中或类中调用 DisableXtraLayoutCustomizationMenu(me)即可在运行时不显示该窗口。
''' <summary>
''' 禁用窗体内所有LayoutControl的右键菜单功能
''' </summary>
''' <param name="control">使用窗体对象 Me </param>
Public Sub DisableXtraLayoutCustomizationMenu(ByVal control As Control)
For Each con As Control In control.Controls
If (con.Controls.Count > 0) Then
DisableXtraLayoutCustomizationMenu(con)
End If
If TypeOf (con) Is DevExpress.XtraLayout.LayoutControl Then
Dim a As DevExpress.XtraLayout.LayoutControl = con
a.AllowCustomizationMenu = False
End If
Next
End Sub |
|