'Declaration Public Property Restrict As Boolean
'Usage Dim instance As SheetDragMovingEventArgs Dim value As Boolean instance.Restrict = value value = instance.Restrict
public bool Restrict {get; set;}
'Declaration Public Property Restrict As Boolean
'Usage Dim instance As SheetDragMovingEventArgs Dim value As Boolean instance.Restrict = value value = instance.Restrict
public bool Restrict {get; set;}
fpSpread1.AllowSheetMove = true; fpSpread1.Sheets.Count = 3; fpSpread1.Sheets[0].RowCount = 10; fpSpread1.Sheets[0].ColumnCount = 10; fpSpread1.Sheets[1].RowCount = 10; fpSpread1.Sheets[1].ColumnCount = 10; fpSpread1.Sheets[2].RowCount = 10; fpSpread1.Sheets[2].ColumnCount = 10; fpSpread1.Sheets[0].SetClip(0, 0, 3, 3, "Sunday\tMonday\tTuesday\r\nWednesday\tThursday\tFriday\r\nSaturday\tSunday\tMonday"); fpSpread1.Sheets[1].SetClip(0, 0, 3, 3, "January\tFebruary\tMarch\r\nApril\tMay\tJune\r\nJuly\tAugust\tSeptember"); fpSpread1.Sheets[2].SetClip(0, 0, 3, 3, "2012\t2013\t2014\r\n2015\t2016\t2017\r\n2018\t2019\t2020"); private void fpSpread1_SheetDragMoving(object sender, FarPoint.Win.Spread.SheetDragMovingEventArgs e) { if (e.ToSheetIndex == 2) { e.Restrict = true; }
fpSpread1.AllowSheetMove = True fpSpread1.Sheets.Count = 3 fpSpread1.Sheets(0).RowCount = 10 fpSpread1.Sheets(0).ColumnCount = 10 fpSpread1.Sheets(1).RowCount = 10 fpSpread1.Sheets(1).ColumnCount = 10 fpSpread1.Sheets(2).RowCount = 10 fpSpread1.Sheets(2).ColumnCount = 10 fpSpread1.Sheets(0).SetClip(0, 0, 3, 3, "Sunday" + Chr(9) + "Monday" + Chr(9) + "Tuesday" + vbCrLf + "Wednesday" + Chr(9) + "Thursday" + Chr(9) + "Friday" + vbCrLf + "Saturday" + Chr(9) + "Sunday" + Chr(9) + "Monday") fpSpread1.Sheets(1).SetClip(0, 0, 3, 3, "January" + Chr(9) + "February" + Chr(9) + "March" + vbCrLf + "April" + Chr(9) + "May" + Chr(9) + "June" + vbCrLf + "July" + Chr(9) + "August" + Chr(9) + "September") fpSpread1.Sheets(2).SetClip(0, 0, 3, 3, "2012" + Chr(9) + "2013" + Chr(9) + "2014" + vbCrLf + "2015" + Chr(9) + "2016" + Chr(9) + "2017" + vbCrLf + "2018" + Chr(9) + "2019" + Chr(9) + "2020") Private Sub fpSpread1_SheetDragMoving(sender As Object, e As FarPoint.Win.Spread.SheetDragMovingEventArgs) Handles fpSpread1.SheetDragMoving If e.ToSheetIndex = 2 Then e.Restrict = True End If End Sub