GrapeCity.Win.PluginInputMan アセンブリ > GrapeCity.Win.Spread.InputMan.CellType 名前空間 > DropDownClosingEventArgs クラス : Value プロパティ |
'Declaration Public Property Value As Object
'使用法 Dim instance As DropDownClosingEventArgs Dim value As Object instance.Value = value value = instance.Value
public object Value {get; set;}
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