 コマンドボタンがFalseになった時ピクチャーボックス ( No.0 ) |
- 日時： 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
タイトルが長いと言われるため短くしました。
|
|
