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

タイトル コマンドボタンがFalseになったときコマンドボタンにピクチャーボックスの絵を貼り付ける。
投稿日: 2014/09/02(Tue) 18:45
投稿者ジェンガ
VB6.0標準EXEです。
Falseになった時全体にグレーになります。
コマンドボタンがFalseになった後のサブルーチンです。
Sub command12false()
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
End Sub
それともプロパティでできるものでしょうか。
初投稿なのでコードなおすところや書き加えるところを教えてほしいです。
VBは初めて5ヶ月くらいです。あと、LOCKEDプロパティーをつかえば良いのでしょうか?

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

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