VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2007/04/10(Tue) 11:05
投稿者nagaoka
Eメール
URL
タイトルスプレッドシート

お世話になります。
SpreadSheet(owc11)についての質問です。
SpreadSheet内のセルを右クリックするとショートカットメニューが表示され、
この中に”切り取り、コピー、貼り付け”当のコマンドが表示されます。
この中の”切り取り”コマンドを無効にする方法について教えて頂けないでしょうか?
ちなみにヘルプを参考に下記追記してみましたが、メニューが2回表示されます。
Private Sub Spreadsheet1_BeforeContextMenu(ByVal x As Long, ByVal y As Long, ByVal Menu
As OWC11.ByRef, ByVal Cancel As OWC11.ByRef)
    
    Dim cmContextMenu(4)
    Dim cmClearSubMenu(2)

    cmClearSubMenu(0) = Array("すべて(&A)", "ClearAll")
    cmClearSubMenu(1) = Array("書式(&F)", "ClearFormats")
    cmClearSubMenu(2) = Array("値(&V)", "ClearValues")

    cmContextMenu(0) = Array("切り取り(&T)", "owc2")
    cmContextMenu(1) = Array("コピー(&C)", "owc3")
    cmContextMenu(2) = Array("貼り付け(&P)", "owc4")
    cmContextMenu(3) = Empty
    cmContextMenu(4) = Array("クリア(&R)", cmClearSubMenu)

    Spreadsheet1.ShowContextMenu 10, 40, cmContextMenu

End Sub


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -