投稿日 | : 2003/04/27(Sun) 21:45 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: MSFlexGrid で画面に一度に表示できる行数、列数の取得 |
チョッと試して見ました。考え方の参考という事で
Private Sub Command1_Click()
Dim MFGWidth As Long
Dim FixColWid As Long
Dim i As Long
Dim ColPos As Long
Dim TotalWid As Long
'固定列の幅を取得
With MSFlexGrid1
If .FixedCols > 0 Then
For i = 0 To .FixedCols - 1
FixColWid = FixColWid + .ColWidth(i)
Next i
End If
MFGWidth = .Width - 80 'セルの区切りの分表示幅が狭くなるので
TotalWid = FixColWid
For i = .LeftCol To .Cols - 1
If MFGWidth > (TotalWid + .ColWidth(i)) Then
TotalWid = TotalWid + .ColWidth(i)
ColPos = i
Else
Exit For '抜け出さないと次を足してしまうので
End If
Next i
Debug.Print .LeftCol, ColPos, MFGWidth, TotalWid
End With
End Sub