ショートカットキーを無効にするには？ (ID:117511)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 RichTextBox1のOLEDropModeをrtfOLEDropManualに設定して ドラッグドロップの処理を RichTextBox1_OLEDragDrop に書けばいいのでは。 Private Sub RichTextBox1_OLEDragDrop _ (Data As RichTextLib.DataObject, _ Effect As Long, Button As Integer, _ Shift As Integer, x As Single, y As Single) If Data.GetFormat(vbCFText) Then 'テキストかどうか判断 RichTextBox1.SelText = Clipboard.GetText End If End Sub こんな具合に。