Public Class mySheetAxisModel
Inherits FarPoint.Web.Spread.Model.DefaultSheetAxisModel
Dim size As Integer=180
Public Overrides Function GetSize(By Val index As Integer)As Integer
Return size
End Function
Public Overrides Sub SetSize(By Val index As Integer, By Val value As Integer)
value=size
End Sub
End Class
Private SubPage_Load(By Val sender As System.Object,By Val e As System.EventArgs)Handles MyBase.Load
If(Me.IsPostBack)Then Return
Dim isheet As New mySheetAxisModel()
Dim model As New FarPoint.Web.Spread.Model.DefaultSheetAxisModel(FpSpread1.ActiveSheetView.ColumnCount,FarPoint.Web.Spread.Model.SheetAxisOrientation.Horizontal,isheet)
FpSpread1.ActiveSheetView.ColumnAxisModel=model
End Sub