求助下拉窗口大小

roger.wang · roger.wang

回复 1楼Neha的帖子

没有直接的属性，需要写逻辑代码实现。

原理如下：
1 获得数据的行、列的总长度
2 在窗体show的时候，重新设置Form的Height、Width

截图

代码

Private Sub AutoSetWidth_Height()
'调整文字宽度
Me._flex.AutoSizeCols()
Me._flex.AutoSizeRows()
Dim totalHeight As Integer = 10
For Each item As C1.Win.C1FlexGrid.Row In _flex.Rows
totalHeight += item.HeightDisplay
Next
Dim totalWidth As Integer = 10
For Each item As C1.Win.C1FlexGrid.Column In _flex.Cols
totalWidth += item.WidthDisplay
Next
Me.Height = totalHeight
Me.Width = totalWidth
End Sub

复制代码

Neha · Neha

谢谢，那点击那个加号的时候那个大小怎么跟着变呢

roger.wang · roger.wang

回复 3楼Neha的帖子

原理和上面的雷同。

即，捕捉加号 +， -的事件，再次进行height, width；然后给Form赋值。

好像是这个事件：AfterCollapse。你需要试试。

Neha · Neha

回复 4楼roger.wang的帖子

不行啊，我这里做不到。求代码啊！

roger.wang · roger.wang

回复 5楼Neha的帖子

Private Sub _flex_AfterCollapse(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.RowColEventArgs) Handles _flex.AfterCollapse
AutoSetWidth_Height()
End Sub

试试这个函数

Neha · Neha

十分感谢

Neha · Neha

回复 6楼roger.wang的帖子

点加号的时候会闪一下为什么呢？怎么解决？

roger.wang · roger.wang

回复 8楼Neha的帖子

闪的原因：
AfterCollapse事件后，重新设置窗体的width, height导致的。

因为要动态resize窗体，目前无法消除这个副作用。

		自动登录	找回密码
密码			立即注册

[已处理] 求助下拉窗口大小

本帖子中包含更多资源

8 个回复

本帖子中包含更多资源

活字格认证

微信认证勋章

元老葡萄