tagCANDY CGI コマンドボタンがFalseになった時ピクチャーボックス
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
コマンドボタンがFalseになった時ピクチャーボックス
このスレッドはロックされています。記事の閲覧のみとなります。
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(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 |