テキストボックスのポップアップメニューを表示しないようにするには？ (ID:104963)

名前

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

本文 正確には、WM_RBUTTONUPメッセージを受け取った後 ポップアップメニュー表示しているようですね。 ということは、MouseDownイベントが発生してから、 右ボタンをUPするまでの間、EnabledをFalseにしておけば、 WM_RBUTTONUPを拾えなくなるので ポップアップメニュー表示を抑止できます。 たとえばこんな感じ。 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then Text1.Enabled = False Timer1.Interval = 500 Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() Text1.Enabled = True Text1.SetFocus Timer1.Enabled = False End Sub ただし、この例だと0.5秒以上押して離されたら効果ありません。