タイトル : Re^2: コマンドボタンがFalseになったときコマンドボタンにピクチャーボックスの絵を貼り付ける。 投稿日 : 2014/09/02(Tue) 21:01 投稿者 : ジェンガ
魔界の仮面弁士さん返信ありがとうございます。事前の設定を簡略しすぎたため内容がよく伝わらなかったのでもう一度頭で整理して疑問に思ったところを書き出してみました。 command12falseのサブルーチンをform_load form_paintのところに書いたのですがそれは問題ないでしょうか。Command12.Enabled = Trueのとき−−−−@始 Picture4.Picture = LoadPicture(App.Path & "\blue and red.jpg") Picture4.Scale (0, 0)-(Command12.Width, Command12.Height) Picture4.CurrentX = (Command12.Width - Picture4.TextWidth("HIGH&LOW")) \ 2 Picture4.CurrentY = ((Command12.Height \ 2) - ((Picture4.TextHeight("W")) \ 2)) Me.Picture4.ForeColor = RGB(0, 0, 0) ’違いはここ Picture4.Print "HIGH&LOW" Set Command12.Picture = Picture4.Image−−−−@終 Command12.Enabled = False の時 If (Command12.Enabled = False) Then Picture4.Picture = LoadPicture(App.Path & "\blue and red.jpg") Picture4.Scale (0, 0)-(Command12.Width, Command12.Height) Picture4.CurrentX = (Command12.Width - Picture4.TextWidth("HIGH&LOW")) \ 2 Picture4.CurrentY = ((Command12.Height \ 2) - ((Picture4.TextHeight("W")) \ 2)) Me.Picture4.ForeColor = RGB(109, 109, 109) ’違いはここ Picture4.Print "HIGH&LOW" Set Command12.Picture = Picture4.Image End If またコマンドボタンのLOCKEDプロパティーというのを見つけたのですが、それを使ったほうが良いのでしょうか? またはコードの順番がいけないのでしょうか。 Command12.Enabled = True @ Command12.Enabled = False command12false |