[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2006/11/20(Mon) 14:34
投稿者名：ニック
Ｅメール：
ＵＲＬ　：
タイトル：PictureBoxへの貼り付け
PictureBoxへのイメージの貼り付けに関して教えて下さい。
クリップボードのイメージをPictureBoxに貼り付けたいのですが、一般的な、右クリックで
コンテキスト・メニューを出して貼り付けるということが出来ません。
Drag & Dropでの表示は出来るのですが、右クリックでコンテキスト・メニューを表示させる
ことが出来ないのです。
自分でコンテキスト・メニューを作り、クリップボードから受け取る処理をしなければなら
ないのでしょうか。

開発環境はVB6.0 SP6です。

投稿時間：2006/11/22(Wed) 00:34
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: PictureBoxへの貼り付け
> 自分でコンテキスト・メニューを作り、クリップボードから受け取る処理をしなければなら
> ないのでしょうか。

そのようですね。
Ctrl + V で貼り付けもできませんよね。

投稿時間：2006/11/22(Wed) 18:32
投稿者名：ニック
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: PictureBoxへの貼り付け
> そのようですね。
> Ctrl + V で貼り付けもできませんよね。

ありがとうございます。早速コンテキスト・メニューを作ろうとしたのですが、PictureBoxでは、
右クリックが使えませんでした。Clickもだめです。CommandButtonならばＯＫなのですが・・・
PictureBoxのプロパティがおかしいのでしょうか？

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Button = vbRightButton Then
        PopupMenu mnuPicture
    End If

End Sub

投稿時間：2006/11/22(Wed) 19:09
投稿者名：neptune
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: PictureBoxへの貼り付け
出来ましたよ？
>PictureBoxのプロパティがおかしいのでしょうか？
ではないでしょう。

mnuPopupTestはmnuPopupの子メニュー

Private Sub mnuPopupTest_Click()
    MsgBox "mnuPopupTest_Click"
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PopupMenu Me.mnuPopup
End Sub

投稿時間：2006/11/23(Thu) 09:22
投稿者名：ニック
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: PictureBoxへの貼り付け
neputuneさん、ありがとうございました。
やっと出来ました。
但し、MouseDownでは出ませんが。でもコンテキスト・メニューを出すのは、MouseUpを使うのが
正式なのですね。ようやく気が付きました。
これまで、MouseDownを使っていましたが、直します。
本当にありがとうございました。