Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load
If (IsPostBack) Then
Return
End If
Dim dt As New FarPoint.Web.Spread.DateTimeCellType()
Dim dtf As New System.Globalization.DateTimeFormatInfo()
dtf.LongDatePattern = "D"
dtf.ShortDatePattern = "M/d/yyyy"
dt.DateTimeFormat = dtf
FpSpread1.Sheets(0).Cells(0, 0, 0, 2).CellType = dt
FpSpread1.ActiveSheetView.Cells(0, 0).Value = DateTime.Now
Dim fbcell As New FarPoint.Web.Spread.FilterBarCellType(True)
fbcell.DatePickerMode = FarPoint.Web.Spread.DatePickerMode.Auto
FpSpread1.Sheets(0).RowCount = 6
FpSpread1.Sheets(0).ColumnCount = 6
'Customize "Cells" in Filter Bar
Dim sheetView As FarPoint.Web.Spread.SheetView = FpSpread1.ActiveSheetView
sheetView.AutoFilterMode = FarPoint.Web.Spread.AutoFilterMode.FilterBar
sheetView.FilterBar.Cells(0).CellType = fbcell
sheetView.FilterBar.Cells(0).BackColor = System.Drawing.Color.Aqua
End Sub