'Declaration Function Add( _ ByVal row As Integer, _ ByVal column As Integer, _ ByVal rowCount As Integer, _ ByVal columnCount As Integer _ ) As Boolean
FarPoint.Win.Spread.Model.ISheetSpanModel sp; DialogResult dlg; sp = (FarPoint.Win.Spread.Model.ISheetSpanModel)fpSpread1.ActiveSheet.Models.Span; sp.Add(0, 0, 2, 2); sp.Add(0, 3, 2, 2); dlg = MessageBox.Show("Do you want to remove all the spans??", "Clear", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { sp.Clear(); }
Dim sp As FarPoint.Win.Spread.Model.ISheetSpanModel Dim dlg As DialogResult sp = FpSpread1.ActiveSheet.Models.Span sp.Add(0, 0, 2, 2) sp.Add(0, 3, 2, 2) dlg = MessageBox.Show("Do you want to remove all the spans??", "Clear", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then sp.Clear() End If