|
分類:[VB.NET/VB2005 以降]
開発環境はVisualStudio2015、使用言語はVB.netです。
C1FlexGridの使い方について教えていただきたいです。
九九表を作ろうと考えており、columnとrowの部分に数字を打ち込みたいのですが、上手くいきません。
具体的に申し上げますと、ExcelでいうところのABCといったところと列と123の行の部分をC1FlexGridに0以外の数字を打ち込みたいと考えています。
今の状況は、C1FlexGridとButton2があり、Button2のイベントをクリックすると、九九表が出てくるようにしようとしています。
現在のコードは以下になります。
Private Sub Button2_Click(sender As Object, e As EventArgs)Handles Button2.Click
'変数xは行を指しています。
'変数sは列を指しています。
Dim x As Integer
Dim s As Integer
'C1FlexGrid.Rows(行)とCols（列）のセルは1つのみ表示されるようにしています。目的は次のコードでRowsとColsを増やすためです。
Me.C1FlexGrid1.Rows.Count=1
Me.C1FlexGrid1.Rows.Count=1
For s=1 to4
C1FlexGrid1.Cols.Add()
For x=1 to 4
If s=1 Then
C1FlexGrid1.Rows.Add()
End IF
Me.C1FlexGrid.Item(x,s)=(x*s).ToString
Next x
Next s
このコードですと、ExcelでいうところのABCといったところと列と123の行は数字が入力されず、
それ以外のところは問題なく出来ていると思います。
Me.C1FlexGrid1.Rows.Count=1
Me.C1FlexGrid1.Rows.Count=1
For s=0 to4
C1FlexGrid1.Cols.Add()
For x=0 to 4
If s=0 Then
C1FlexGrid1.Rows.Add()
End IF
Me.C1FlexGrid.Item(x,s)=(x*s).ToString
Next x
Next s
こちらのコードですと、ExcelでいうところのABCといったところと列と123の行は全て0という数字が入り、さらに空白のColumnとRowが入ってしまうため、それも空白が出ないようにしたいです。
御力添えよろしくお願いします。
|