tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。