MESCIUS SPREAD for Windows Forms 15.0J
DragDropBlock イベント
使用例 

ユーザーがセル範囲をドラッグ&ドロップするときに発生します。
構文
'宣言
 
Public Event DragDropBlock As DragDropBlockEventHandler
public event DragDropBlockEventHandler DragDropBlock
イベント データ

イベント ハンドラが、このイベントに関連するデータを含む、DragDropBlockEventArgs 型の引数を受け取りました。次の DragDropBlockEventArgs プロパティには、このイベントの固有の情報が記載されます。

プロパティ解説
Actionドラッグ元範囲がコピーされるか移動されるかを取得または設定します。  
Cancelデータのコピーまたは移動がキャンセルされているかどうかを表す値を取得または設定します。  
ColumnBeginドラッグ元範囲の左上セルの列インデックスを取得します。  
ColumnEndドラッグ元範囲の右下セルの列インデックスを取得します。  
DataOnlyデータと書式のどちら(または両方)をコピーまたは移動するのかを表す値を取得または設定します。  
DestinationColumnBeginドロップ先範囲の左上セルの列インデックスを取得します。  
DestinationColumnEndドロップ先範囲の右下セルの列インデックスを取得します。  
DestinationRowBeginドロップ先範囲の左上セルの行インデックスを取得します。  
DestinationRowEndドロップ先範囲の右下セルの行インデックスを取得します。  
Overwriteドロップ先範囲がデータを含むかどうか(つまり上書きされるかどうか)を取得します。  
RowBeginドラッグ元範囲の左上セルの行インデックスを取得します。  
RowEndドラッグ元範囲の右下セルの行インデックスを取得します。  
解説

このイベントは、ユーザーがセル範囲をドラッグ&ドロップしたときに OnDragDropBlock メソッドによって呼び出されます。

個々のイベント引数の詳細については、DragDropBlockEventArgs メンバを参照してください。

使用例
次のサンプルコードは、イベントを発生させます。
DialogResult dlg;
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 and place the mouse pointer on the edge of the selection
then drag and drop.This will fire the event.", "DragDrop", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
     fpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1);
     fpSpread1.AllowDragDrop = true;
}

private void fpSpread1_DragDropBlock(object sender, FarPoint.Win.Spread.DragDropBlockEventArgs e)
{
     ListBox1.Items.Add("DragDropBlock event fired!");
}
Dim dlg As DialogResult
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 and place the mouse pointer on the edge of the selection
then drag and drop.This will fire the event.", "DragDrop", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
     FpSpread1.ActiveSheet.AddSelection(0, 0, 3, 1)
     FpSpread1.AllowDragDrop = True
End If

Private Sub FpSpread1_DragDropBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragDropBlockEventArgs) Handles
FpSpread1.DragDropBlock
     ListBox1.Items.Add("DragDropBlock event fired!")
End Sub
参照

FpSpread クラス
FpSpread メンバ
DragDropBlockEventArgs クラス

 

 


© MESCIUS inc. All rights reserved.