可以在表属性里面,通过调整菜单布局和样式来调整菜单的大小的位置。调整效果可以参考帮助文档:http://www.sanmugrid.com/help/index.htm?page=00755%E5%B1%9E%E6%80%A7.htm
如果实在想通过代码修改的话,可以考虑在表事件的AfterLoad事件中写代码设置调整。如果在表事件中写代码,获得表的引用得注意用sender参数。
- '获得对表的引用
- Dim tbl As SmGrid=Proj.CurrentSmGrid
- '如果是在事件中,可以通过事件获得
- 'Dim tbl As SmGrid=sender
- '如果能获得菜单及其的容器对象
- If tbl.GridMenu IsNot Nothing AndAlso TypeOf tbl.GridMenu Is BaseGridMenu AndAlso TypeOf tbl.GridMenu.Parent Is SplitterPanel Then
- '获得菜单的容器
- Dim split As SplitContainer = TryCast(tbl.GridMenu.Parent.Parent, SplitContainer)
- '根据分区面板的方向来决定通过哪个属性来修改菜单的尺寸
- If split.Orientation =System.Windows.Forms.Orientation.Horizontal Then
- split.SplitterDistance = 50
- Else
- split.Height = 50
- End If
- End If
复制代码
|