MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集 > クリップボード > 機能を無効にする |
FpSpreadクラスのAutoClipboardプロパティをFalseにすることで、コントロール上における全てのクリップボード機能を無効にすることができます。(デフォルトはTrueです)
また、クリップボード用ショートカットキー(Ctrl+C、Ctrl+V、Ctrl+X)に定義されている入力マップの定義を無効とすることで、例えば貼り付け(Ctrl+V)のみを無効とするような対応も可能です。
Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn CType(FpSpread1.EditingControl, FarPoint.Win.Spread.CellType.GeneralEditor).AllowClipboardKeys = False End Sub
Private Sub FpSpread1_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles FpSpread1.EditModeOn ' コンテキストメニューを設定します FpSpread1.EditingControl.ContextMenu = New ContextMenu End Sub
private void Form1_Load(object sender, System.EventArgs e) { //全てのクリップボード処理を無効とします fpSpread1.AutoClipboard = false; }
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load '全てのクリップボード処理を無効とします FpSpread1.AutoClipboard = False End Sub
private void Form1_Load(object sender, System.EventArgs e) { //クリップボードショートカットキーを無効にします FarPoint.Win.Spread.InputMap im = new FarPoint.Win.Spread.InputMap(); im = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused); im.Put(new FarPoint.Win.Spread.Keystroke(Keys.C, Keys.Control), FarPoint.Win.Spread.SpreadActions.None); im.Put(new FarPoint.Win.Spread.Keystroke(Keys.V, Keys.Control), FarPoint.Win.Spread.SpreadActions.None); im.Put(new FarPoint.Win.Spread.Keystroke(Keys.X, Keys.Control), FarPoint.Win.Spread.SpreadActions.None); }
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 'クリップボードショートカットキーを無効にします Dim im As New FarPoint.Win.Spread.InputMap im = FpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused) im.Put(New FarPoint.Win.Spread.Keystroke(Keys.C, Keys.Control), FarPoint.Win.Spread.SpreadActions.None) im.Put(New FarPoint.Win.Spread.Keystroke(Keys.V, Keys.Control), FarPoint.Win.Spread.SpreadActions.None) im.Put(New FarPoint.Win.Spread.Keystroke(Keys.X, Keys.Control), FarPoint.Win.Spread.SpreadActions.None) End Sub