fpSpread1.ActiveSheet.Cells[0, 0].CellType = new GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType();
private void fpSpread1_EditModeOn(object sender, EventArgs e)
{
if (fpSpread1.EditingControl is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)
((GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)fpSpread1.EditingControl).DropDownClosing += new EventHandler<GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs>(IMCellType_DropDownClosing);
}
private void fpSpread1_EditModeOff(object sender, EventArgs e)
{
if (fpSpread1.EditingControl is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)
((GrapeCity.Win.Spread.InputMan.CellType.GcDateTime)fpSpread1.EditingControl).DropDownClosing -= new EventHandler<GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs>(IMCellType_DropDownClosing);
}
void IMCellType_DropDownClosing(object sender, GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs e)
{
if (e.Value != null)
{
listBox1.Items.Add(e.Value.ToString());
}
FpSpread1.ActiveSheet.Cells(0, 0).CellType = New GrapeCity.Win.Spread.InputMan.CellType.GcDateTimeCellType
Private Sub FpSpread1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOff
If TypeOf (FpSpread1.EditingControl) Is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime Then
RemoveHandler CType(FpSpread1.EditingControl, GrapeCity.Win.Spread.InputMan.CellType.GcDateTime).DropDownClosing, AddressOf IMCellType_DropDownClosing
End If
End Sub
Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn
If TypeOf (FpSpread1.EditingControl) Is GrapeCity.Win.Spread.InputMan.CellType.GcDateTime Then
AddHandler CType(FpSpread1.EditingControl, GrapeCity.Win.Spread.InputMan.CellType.GcDateTime).DropDownClosing, AddressOf IMCellType_DropDownClosing
End If
End Sub
Private Sub IMCellType_DropDownClosing(ByVal sender As Object, ByVal e As GrapeCity.Win.Spread.InputMan.CellType.DropDownClosingEventArgs)
If e.Value <> Nothing Then
ListBox1.Items.Add(e.Value.ToString())
End If