VB6 Windows8(64bit) FlexGrid

索引サイト
設定時エラーが出るのは承知の上でコンポーネント追加

無茶と思いながらも・・まあ動く

軽くデータ参照なら手軽だなあ。と




Private Sub Command1_Click()
With MSFlexGrid1
.Rows = 15 '0〜14
.Cols = 8 '0〜7
.FixedRows = 1 '行数
.FixedCols = 1 'カラム数

.Row = 0 '行設定
.ColWidth(0) = 1100
.ColWidth(1) = 900
For idx = 2 To 7
.ColWidth(lngCountI) = 1000
Next

.RowHeight(0) = 350
.Col = 1: .Text = "Col1"
.Col = 2: .Text = "Col2": .CellAlignment = flexAlignCenterCenter: .CellFontSize = 14
.Col = 3: .Text = "Col3": .CellAlignment = flexAlignCenterCenter
.Col = 4: .Text = "Col4": .CellAlignment = flexAlignCenterCenter
.Col = 5: .Text = "Col5": .CellAlignment = flexAlignCenterCenter
.Col = 6: .Text = "Col6": .CellAlignment = flexAlignCenterCenter
.Col = 7: .Text = "Col7": .CellAlignment = flexAlignCenterCenter

.Col = 0
For idx = 1 To .Rows - 1
.RowHeight(idx) = 350
.Row = idx
.Text = "Row = " & idx
Next
End With

MSFlexGrid1.TextMatrix(3, 3) = "3-3"
MSFlexGrid1.TextMatrix(3, 4) = "3-4"
MSFlexGrid1.TextMatrix(3, 5) = "3-5"
MSFlexGrid1.TextMatrix(4, 3) = "4-3"
MSFlexGrid1.TextMatrix(4, 4) = "4-4"

MSFlexGrid1.Row = 11: MSFlexGrid1.Col = 5: MSFlexGrid1.Text = "font16": MSFlexGrid1.CellFontSize = 16
MSFlexGrid1.FontWidth = "5"
End Sub

5年もすれば .NET も「軽」感覚になるんだろう・・と。。諸行無常だねえ




AX