FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > IRangeSupport インタフェース : AddColumns メソッド |
'Declaration Sub AddColumns( _ ByVal column As Integer, _ ByVal columnCount As Integer _ )
'使用法 Dim instance As IRangeSupport Dim column As Integer Dim columnCount As Integer instance.AddColumns(column, columnCount)
void AddColumns( int column, int columnCount )
FarPoint.Win.Spread.Model.IRangeSupport irs; DialogResult dlg; irs = (FarPoint.Win.Spread.Model.IRangeSupport)fpSpread1.ActiveSheet.Models.Data; fpSpread1.ActiveSheet.ColumnCount = 2; fpSpread1.ActiveSheet.RowCount = 2; dlg = MessageBox.Show("Do you want to add some columns and rows?", "AddColumns", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { irs.AddColumns(1, 3); irs.AddRows(1, 3); }
Dim irs As FarPoint.Win.Spread.Model.IRangeSupport Dim dlg As DialogResult irs = FpSpread1.ActiveSheet.Models.Data FpSpread1.ActiveSheet.ColumnCount = 2 FpSpread1.ActiveSheet.RowCount = 2 dlg = MessageBox.Show("Do you want to add some columns and rows?", "AddColumns", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then irs.AddColumns(1, 3) irs.AddRows(1, 3) End If