元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) コマンドボタンがFalseになった時ピクチャーボックス　[No.212の個別表示] 日時： 2014/09/03 12:01 名前： ジェンガ VB6.0でも同じ質問をしてしまったのですが、画像付きで説明したほうがわかりやすいと思い 投稿しました。魔界の仮面弁士さんのアドバイスを参考に次の様なコードを書きました。しかし、コマンドボタンが画像から分かるようにFalseだとコマンドボタンがグレーになってしまいます。 どうすればよいのでしょうか。 Dim k As Integer Dim amarik As Integer Private Property Get Command12Enabled() As Boolean     Command12Enabled = Command12.Enabled End Property Private Property Let Command12Enabled(ByVal canUse As Boolean)     Picture4.Cls     '--------------------------------------    Set 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))     '--------------------------------------     Picture4.ForeColor = IIf(canUse, RGB(0, 0, 0), RGB(109, 109, 109))     Picture4.Print "HIGH&LOW"     Set Command12.Picture = Picture4.Image     Command12.Enabled = canUse End Property Private Sub Command2_Click() baaiwake k = k + 1 End Sub Private Sub Form_Load() k = 0 Command12Enabled = False End Sub Sub baaiwake() amarik = k Mod 2 If (amarik = 0) Then Command12Enabled = False ElseIf (amarik = 1) Then Command12Enabled = True End If End Sub タイトルが長いと言われるため短くしました。

Page: 1 |

Re: コマンドボタンがFalseになった時ピクチャーボックス 　(No.1)　[スレッド一覧へ] 日時： 2014/09/03 15:58 名前： 魔界の仮面弁士 グレーにしたくないのであれば、Picture プロパティにでは無く、 DisabledPicture プロパティに画像をセットすれば OK です。 DisabledPicture を使わず、Picture プロパティにのみ セットしておいた場合、ボタンが Enabled = False になった時には、 その画像はモノクロ 2 色になる仕様です(vbButtonFace と vbButtonShadow)。

Page: 1 |