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.SetActiveCell(3, 4);
dlg = MessageBox.Show("Do you want the active cell to remain where it is??(Click back on the control when closing this dialog)",
"MoveActiveOnFocus", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
fpSpread1.MoveActiveOnFocus = false;
}
else
{
fpSpread1.MoveActiveOnFocus = 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.SetActiveCell(3, 4)
dlg = MessageBox.Show("Do you want the active cell to remain where it is??(Click back on the control when closing this dialog)",
"MoveActiveOnFocus", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
fpSpread1.MoveActiveOnFocus = False
Else
fpSpread1.MoveActiveOnFocus = True
End If