DialogResult dlg;
fpSpread1.ActiveSheet.SetValue(0, 0, "Drag");
fpSpread1.ActiveSheet.SetValue(1, 0, "And");
fpSpread1.ActiveSheet.SetValue(2, 0, "Fill");
dlg = MessageBox.Show("If you want to Drag+Fill click the YES button and place the mouse pointer on the bottom-right edge
of the selection then drag and fill.This will fire the event.", "DragFill", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
fpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1);
fpSpread1.AllowDragFill = true;
}
private void fpSpread1_DragFillBlock(object sender, FarPoint.Win.Spread.DragFillBlockEventArgs e)
{
ListBox1.Items.Add("DragFillBlock event fired!");
}
Dim dlg As DialogResult
FpSpread1.ActiveSheet.SetValue(0, 0, "Drag")
FpSpread1.ActiveSheet.SetValue(1, 0, "And")
FpSpread1.ActiveSheet.SetValue(2, 0, "Fill")
dlg = MessageBox.Show("If you want to Drag+Fill click the YES button and place the mouse pointer on the bottom-right edge
of the selection then drag and fill.This will fire the event.", "DragFill", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
FpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1)
FpSpread1.AllowDragFill = True
End If
Private Sub FpSpread1_DragFillBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockEventArgs) Handles
FpSpread1.DragFillBlock
ListBox1.Items.Add("DragFillBlock event fired!")
End Sub