Public Function New( _
   ByVal count As Integer, _
   ByVal orientation As SheetAxisOrientation, _
   ByVal parent As ISheetAxisModel _
)

Dim count As Integer
Dim orientation As SheetAxisOrientation
Dim parent As ISheetAxisModel
 
Dim instance As New DefaultSheetAxisModel(count, orientation, parent)

public DefaultSheetAxisModel( 
   int count,
   SheetAxisOrientation orientation,
   ISheetAxisModel parent
)

PublicClassmySheetAxisModel
InheritsFarPoint.Web.Spread.Model.DefaultSheetAxisModel

DimsizeAsInteger=180

PublicOverridesFunctionGetSize(ByValindexAsInteger)AsInteger
Returnsize
EndFunction

PublicOverridesSubSetSize(ByValindexAsInteger,ByValvalueAsInteger)
value=size
EndSub

EndClass

PrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load

If(Me.IsPostBack)ThenReturn

DimisheetAsNewmySheetAxisModel()
DimmodelAsNewFarPoint.Web.Spread.Model.DefaultSheetAxisModel(FpSpread1.ActiveSheetView.ColumnCount,FarPoint.Web.Spread.Model.SheetAxisOrientation.Horizontal,isheet)
FpSpread1.ActiveSheetView.ColumnAxisModel=model

EndSub

publicclassmySheetAxisModel:FarPoint.Web.Spread.Model.DefaultSheetAxisModel
{
privateinti=180;
privateboolb=false;

publicoverrideintGetSize(intindex)
{
returni;
}

publicoverridevoidSetSize(intindex,intvalue)
{
i=value;
}
}

privatevoidPage_Load(objectsender,System.EventArgse)
{
if(this.IsPostBack)return;

mySheetAxisModelisheet=newmySheetAxisModel();
FarPoint.Web.Spread.Model.DefaultSheetAxisModelmodel=newFarPoint.Web.Spread.Model.DefaultSheetAxisModel(FpSpread1.ActiveSheetView.ColumnCount,FarPoint.Web.Spread.Model.SheetAxisOrientation.Horizontal,isheet);
FpSpread1.ActiveSheetView.ColumnAxisModel=model;
}