- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口表滚动条识别的问题【已解决】 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171568)
-- 发布时间：2021/9/3 14:04:00
-- 窗口表滚动条识别的问题【已解决】
如下截图中，设置列宽时，横滚动条 刚刚好显示时（存在纵向滚动条） ，却识别不出，正确应该识别为 3（纵横），这个需要微调列宽才能测试出来
此主题相关图片如下：qq图片20210903140518.png
[此贴子已经被作者于2021/9/4 3:28:20编辑过]
-- 发布时间：2021/9/3 14:06:00
--
这个没有办法，自己微调到合适的位置吧
-- 发布时间：2021/9/3 14:14:00
--
这个问题就是导致了 固定合计行的 控件 显示位置问题了
Dim hg As Integer = sender.rows(sender.rows.count -1).Height \'控件高
If hg = -1 Then
hg = sender.rows(sender.rows.count -1).HeightDisplay
End If
Dim gh = sender.Height - 1
Select Case sender.ScrollBarsVisible \'显示了滚动条 0无 1横向 2纵向 3横纵
Case 1,3
gh = gh - 19
End Select
If sender.Controls.ContainsKey("Myhuizong") = False Then \'不存在汇总控件,则添加
Dim huizong As new C1.Win.C1FlexGrid.C1FlexGrid
With huizong
.name = "Myhuizong"
.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None \'无边框
.Cols.Count = sender.Cols.Count
.rows.count = 2
.Rows(0).Height = 0 \'隐藏标题行
.Enabled = False \'不能使用控件
.styles.emptyarea.backcolor = sender.styles.emptyarea.backcolor
\'.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None \'不显示焦点框
.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never \'不高亮显示选定区
End With
sender.Controls.add(huizong) \'加入控件
End If
Dim k As Integer = 2
Dim hui As C1.Win.C1FlexGrid.C1FlexGrid = sender.Controls("Myhuizong")
Select Case sender.ScrollBarsVisible \'显示了滚动条 0无 1横向 2纵向 3横纵
Case 0,2
hui.ScrollBars = 2
Case Else
hui.ScrollBars = 0
End Select
With hui \'调整位置
.left = 0
If sender.Rows(sender.Rows.count -1).Top < sender.Height - sender.rows(sender.rows.count -1).Height * 2 Then
.Top = sender.GetCellRect(sender.Rows.count-1, 1).y
Else
.top = gh - hg - 1
End If
.width = sender.width
.Height = hg + 2
.Rows(1).Height = hg
End With
此时该 固定合计行 的高度 就没有 -19 导致显示不出来
[此贴子已经被作者于2021/9/3 14:15:20编辑过]
-- 发布时间：2021/9/3 14:45:00
--
Dim gh = sender.Height - 1
Select Case sender.ScrollBarsVisible \'显示了滚动条 0无 1横向 2纵向 3横纵
Case 1,3
gh = gh - 19
End Select
改为
Dim gh = sender.ScrollableRectangle.height + 19
-- 发布时间：2021/9/4 3:28:00
--
