タイトル : コマンドボタンが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プロパティーをつかえば良いのでしょうか? |