mtr头部大小变化

db2176 · db2176

斑竹~~请问怎么处理？为什么我的Me.GcKinkoDetail.ColumnHeaders(0)找不到~~
或者看可以用别的办法来写代码不？（我的mtr的结构都发图给你了~每个cell都有自己的name~~）

robert · robert

我怀疑异常的原因是因为这时模板还没有设置给MultiRow，导致了ColumnHeaderSection的Count为0.所以我猜想，加一个判断就好了。

Private Sub gcMultiRow_SizeChanged(sender As Object, e As EventArgs)
If Me.gcMultiRow.ColumnHeaders.Count = 0 Then
Return
End If
Dim sizeDiff As Integer = Me.gcMultiRow.ClientRectangle.Width - Me.gcMultiRow.SectionWidth - SystemInformation.VerticalScrollBarWidth
Dim everyDiff As Integer = sizeDiff / Me.gcMultiRow.ColumnHeaders(0).Cells.Count
For i As Integer = 0 To Me.gcMultiRow.ColumnHeaders(0).Cells.Count - 1
Me.gcMultiRow.ColumnHeaders(0).Cells(i).HorizontalResize(everyDiff)
Next
End Sub

复制代码

db2176 · db2176

谢谢~~可以了~~我想请教一个别的问题~~下面是我写的form变化时的一个事件，是为了控制form的大小不能小于一个固定值~~但是我这个在运行时，缩小form的大小到这个固定值（strform_h，strform_w）后再继续缩小，放开鼠标，画面边线处会出现闪动的现象，但最终会达到出现的效果，我想请问这个闪动的现象可以有什么办法消除不？
Private Sub Z2103_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
      Dim strh As Integer ‘ 现在边框的大小
      Dim strw As Integer

      strh = Me.Size.Height
      strw = Me.Size.Width
      If strh <= strform_h Or strw <= strform_w Then
         Me.Size = New System.Drawing.Size(strform_h, strform_w)
         Exit Sub
      End If
End Sub

robert · robert

form上有MinimumSize属性，直接设置即可

db2176 · db2176

谢谢斑竹~~都可以了~~

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

mtr头部大小变化

回复 20# robert 的帖子

回复 24# robert 的帖子

活字格认证

微信认证勋章