ここから本文です

EXCEL VBA で神経衰弱を作ってます。 ユーザーフォーム上につくっているのですが...

tak********さん

2019/11/420:22:15

EXCEL VBA で神経衰弱を作ってます。
ユーザーフォーム上につくっているのですがトランプをひっくり返す方法がわかりません
どうすればいいですか?
教えてください。

補足プログラムを教えてください。

閲覧数:
89
回答数:
1

違反報告

ベストアンサーに選ばれた回答

kam********さん

2019/11/615:53:51

・フォーム上にImageコントロール(Image1)配置
・裏と表の画像ファイルを作成

D:\_Temp\表.jpg
D:\_Temp\裏.jpg

下記コードをFormモジュールにコピペすれば
イメージクリックで裏表切り替わるはずです。

----------------------------------------------------
Option Explicit

Dim CurPic As String
Const 裏Pic As String = "D:\_Temp\裏.jpg"
Const 表Pic As String = "D:\_Temp\表.jpg"

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Pic As String


If CurPic = "裏" Then
Image1.Picture = LoadPicture(表Pic)
CurPic = "表"
Else
Image1.Picture = LoadPicture(裏Pic)
CurPic = "裏"
End If

End Sub
-----------------------------------------------------

質問した人からのコメント

2019/11/9 23:17:28

分かりやすい説明ありがとうございました。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる