FarPoint.Win.Spread Assembly > FarPoint.Win.Spread.CellType Namespace > DateTimeCellType Class > SetCalendarText Method : SetCalendarText(String,String) Method |
'Declaration Public Overloads Sub SetCalendarText( _ ByVal okText As String, _ ByVal cancelText As String _ )
'Usage Dim instance As DateTimeCellType Dim okText As String Dim cancelText As String instance.SetCalendarText(okText, cancelText)
public void SetCalendarText( string okText, string cancelText )
FarPoint.Win.Spread.CellType.DateTimeCellType dt = new FarPoint.Win.Spread.CellType.DateTimeCellType(); string[] dNames = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}; string[] mNames = {"Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec",""}; string[] sdNames = {"SU", "M", "T", "W", "TH", "F", "S"}; string[] smNames = {"J", "F", "M", "A", "MY", "J", "JY", "AG", "S", "O", "N", "D",""}; string okbutn = "Accept"; string canbutn = "Decline"; dt.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined; dt.UserDefinedFormat = "dddd MMMM d, yyyy"; dt.DayNames = dNames; dt.MonthNames = mNames; dt.ShortDayNames = sdNames; dt.ShortMonthNames = smNames; dt.SetCalendarText(okbutn, canbutn); fpSpread1.ActiveSheet.Cells[0, 0].CellType = dt; fpSpread1.ActiveSheet.Cells[0, 0].Value = System.DateTime.Now; fpSpread1.ActiveSheet.Columns[0].Width = 130;
Dim dt As New FarPoint.Win.Spread.CellType.DateTimeCellType() Dim dNames() As String = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"} Dim mNames() As String = {"Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sep", "Oct", "Nov", "Dec",""} Dim sdNames() As String = {"SU", "M", "T", "W", "TH", "F", "S"} Dim smNames() As String = {"J", "F", "M", "A", "MY", "J", "JY", "AG", "S", "O", "N", "D",""} Dim okbutn As String = "Accept" Dim canbutn As String = "Decline" dt.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined dt.UserDefinedFormat = "dddd MMMM d, yyyy" dt.DayNames = dNames dt.MonthNames = mNames dt.ShortDayNames = sdNames dt.ShortMonthNames = smNames dt.SetCalendarText(okbutn, canbutn) FpSpread1.ActiveSheet.Cells(0, 0).CellType = dt FpSpread1.ActiveSheet.Cells(0, 0).Value = Now FpSpread1.ActiveSheet.Columns(0).Width = 130
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8