投稿日	： 2004/05/12(Wed) 20:21
投稿者	： kara
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 追加情報です

> Private Sub txtCH_MouseDown(Index As Integer, Button As Integer,
> 　　　　　　　　　　　　　　　　　Shift As Integer, X As Single, Y As Single)
>     If Button = 2 Then
>         txtCH(Index).Enabled = False
>         txtCH(Index).Enabled = True
>         txtCH(Index).SetFocus
>     End If
> End Sub
この方法は非表示にするというよりは
別のメニューを表示させる方法だったと記憶しています

----------------------------------
txtCH(Index).Enabled = False
txtCH(Index).Enabled = True
txtCH(Index).SetFocus
PopupMenu 作成したメニュー
----------------------------------
このようにして最後に
PopupMenuを呼ぶことによって標準のメニューを抑制して、
自作のメニューに置き換えることは出来ますが
非表示にすることは出来なかったと思います

方法のひとつとして
APIのSetCaptureを使用して
----------------------------------
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        SetCapture Form1.hwnd
    End If
End Sub

Private Sub Text1_DblClick()
    SetCapture Form1.hwnd
End Sub
----------------------------------
とする方法もあります

SetCaptureについての説明はここで
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpwinui/html/_win32_setcapture.asp

しかしなんかよろしくない感じがしますね・・・

やはり魔界の仮面弁士さんが言われているように
RichTextBoxを利用するほうが安全でいいと思うのですが・・・

★ - テキストボックスにおけるコンテキストメニ.. - うまなり 05/11-19:10No.8933
• 追加情報です - うまなり 05/11-19:35 No.8934
  • Re: 追加情報です - kara 05/12-20:21 No.8940
• Re: テキストボックスにおけるコンテキスト.. - 魔界の仮面弁士 05/11-19:59 No.8936
  • ありがとうございます♪ - うまなり 05/11-20:12 No.8937