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

投稿日： 2003/03/13(Thu) 20:48
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: 右クリックメニューの無効化

> MouseDownイベントには何を書けばいいのでしょうか？

すみませんでした。あの部分ミスプリントしていました。
下記に訂正願います。

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, _
                                                x As Single, y As Single)
    If Button = vbRightButton Then    '右クリックしたら
        Dim Ret As Long
        Ret = SetCapture(Me.hWnd)     'Form にマウスキャプチャを設定
    End If
End Sub

自分で作っておきながら何ですが、この方法ではまだ問題がありますし、
サブクラス化し、WM_CUT, WM_COPY, WM_PASTE　と WM_RBUTTONUP のメッセージを無効
にした方が簡単かと思います。
又、場合によっては事前にクリップボードの内容を退避させてからクリアして
LostFocus 時に元に戻す等の処理の方がいいかと思います。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -