Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38518 / 76732 ←次へ | 前へ→

【43348】Re:右クリックで処理をさせたい
発言  ichinose  - 06/10/10(火) 20:59 -

引用なし
パスワード
   こんばんは。

>フォーム上で、左クリックをしたときにはメッセージボックスで「左」、右クリックをしたときにはメッセージボックスで「右」と表示させたいのですが、どうしたら良いのですか?

MouseDownイベントを試してみてください。

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Shift = 0 Then
    If Button = 1 Then
     MsgBox "左"
    ElseIf Button = 2 Then
     MsgBox "右"
     End If
    End If
End Sub
1 hits

【43345】右クリックで処理をさせたい さくら 06/10/10(火) 20:15 質問
【43346】Re:右クリックで処理をさせたい ponpon 06/10/10(火) 20:36 発言
【43348】Re:右クリックで処理をさせたい ichinose 06/10/10(火) 20:59 発言
【43350】Re:右クリックで処理をさせたい ponpon 06/10/10(火) 21:13 発言

38518 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free