> たいしたことではないのですが、VBで文字色を変えられる
> コマンドボタンがあれば教えてください。
今晩は、vbistです。
こんなのどうでしょう？
＃ 反則？
フォームにコマンドボタンとピクチャーボックスを配置して
下記のコードを貼り付けて下さい。
' フォームのコード
Private Sub Form_Load()
Dim strCaption As String
strCaption = Command1.Caption
Command1.Caption = ""
With Picture1
.Visible = False
.AutoRedraw = True
.AutoSize = False
.ForeColor = vbRed
.ScaleMode = vbPixels
.Width = Command1.Width
.Height = Command1.Height
.CurrentX = (.ScaleWidth - .TextWidth(strCaption)) \ 2
.CurrentY = (.ScaleHeight - .TextHeight(strCaption)) \ 2
Picture1.Print strCaption
.Picture = .Image
End With
' コマンドボタンのStyleプロパティをvbButtonGraphical(=1)に設定しておく
With Command1
.Picture = Picture1.Picture
End With
End Sub
|