FarPoint.Win.Spread.FpSpread fpSpread1 = new FarPoint.Win.Spread.FpSpread();
FarPoint.Win.Spread.SheetView shv = new FarPoint.Win.Spread.SheetView();
DialogResult dlg;
fpSpread1.Location = new Point(10, 10);
fpSpread1.Height = 200;
fpSpread1.Width = 400;
Controls.Add(fpSpread1);
fpSpread1.Sheets.Add(shv);
fpSpread1.ActiveSheet.SetValue(0, 0, "Drag");
fpSpread1.ActiveSheet.SetValue(1, 0, "And");
fpSpread1.ActiveSheet.SetValue(2, 0, "Drop");
dlg = MessageBox.Show("If you want to Drag/Drop click the YES button, place the pointer on the edge of the selection, and
then drag and drop.", "DragDrop", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
fpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1);
fpSpread1.AllowDragDrop = true;
}
Dim fpSpread1 As New FarPoint.Win.Spread.FpSpread()
Dim shv As New FarPoint.Win.Spread.SheetView()
Dim dlg As DialogResult
fpSpread1.Location = New Point(10, 10)
fpSpread1.Height = 200
fpSpread1.Width = 400
Controls.Add(fpSpread1)
fpSpread1.Sheets.Add(shv)
fpSpread1.ActiveSheet.SetValue(0, 0, "Drag")
fpSpread1.ActiveSheet.SetValue(1, 0, "And")
fpSpread1.ActiveSheet.SetValue(2, 0, "Drop")
dlg = MessageBox.Show("If you want to Drag/Drop click the YES button, place the pointer on the edge of the selection, and
then drag and drop.", "DragDrop", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
fpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1)
fpSpread1.AllowDragDrop = True
End If