Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6754 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【43345】右クリックで処理をさせたい
質問  さくら  - 06/10/10(火) 20:15 -
引用なし
パスワード
   こんばんわ。
フォーム上で、左クリックをしたときにはメッセージボックスで「左」、右クリックをしたときにはメッセージボックスで「右」と表示させたいのですが、どうしたら良いのですか？
【43346】Re:右クリックで処理をさせたい
発言  ponpon  - 06/10/10(火) 20:36 -
引用なし
パスワード
   ▼さくら さん：
>こんばんわ。
>フォーム上で、左クリックをしたときにはメッセージボックスで「左」、右クリックをしたときにはメッセージボックスで「右」と表示させたいのですが、どうしたら良いのですか？

フォーム上で、左クリックをしたときは、
　　Private Sub UserForm_Click()イベントが発生しますが、
右クリックをしたときには、イベントがないようですが・・・
【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
【43350】Re:右クリックで処理をさせたい
発言  ponpon  - 06/10/10(火) 21:13 -
引用なし
パスワード
   こんばんは。ichinoseさん
私も、MouseDownイベントを調べたのですが、

Button　　　押したマウス ボタンが渡されます。使用できる定数は、XlMouseButton クラスの xlNoButton、xlPrimaryButton、xlSecondaryButton、xlMiddleButton のいずれかです。

ここの意味が分かりませんでした。

また一つ学習になりました。
ありがとうございました。
さくらさん　横から失礼しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6754 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free