VisualBasic6(SP4)を使っています。

いくつかのコマンドボタンをフォームに貼り付けていますが、
このコマンドボタンの標準色は「グレー」になっています。
(ていうか、どのコントロールも、ほとんどグレーが標準のようですが。)

フォームであれば、色の変更は「できた」のですが、
コマンドボタンの、色の変更は「できません」でした。

コマンドボタン自身の色って、変更することはできるのでしょうか?
ご存じの方、いらっしゃいましたら、ご教示くださいませ。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

ベタで良いなら、コマンドボタンのプロパティのStyleを1-グラフィックスに設定し、BackColorをいじれば色が変わります。

    • good
    • 0
この回答へのお礼

色設定できました♪ありがとうございました。
Styleプロパティは気づかなかったです・・・。

お礼日時:2001/04/27 09:00

コンポーネント参照で"Microsoft Forms 2.0 Object Library"を


参照すると出てくるコマンドボタンを使用してはどうでしょう?
BackColorの設定でコマンドボタンの色が変わると思います。
    • good
    • 0
この回答へのお礼

この"Microsoft Forms 2.0 Object Library"のコマンドボタンで
色設定することができました。
しかし、今回は通常のコマンドボタンで扱いたかったので・・・。

でも、これは非常に参考になりました。ありがとうございました♪

お礼日時:2001/04/27 09:05

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q動詞一覧・目的語一覧・補語一覧みたいな英語の詞・語ごとにずらーと並んだ

動詞一覧・目的語一覧・補語一覧みたいな英語の詞・語ごとにずらーと並んだサイトってないですか?

Aベストアンサー

動詞はともかく「目的語」とは「補語」というのは文における働きなので, そんな一覧を求めることがそもそも全く無意味.

QVB6、コマンドボタンの背景色を変更するには?

コマンドボタンのBackColorプロパティをいじってもコマンドボタンのCaptionの背景の色が変更されません。
ラベルコントロールとかだと同じプロパティをいじると色が変わるのですが…
色を変えるにはどうすればよいでしょうか?

Aベストアンサー

Style=グラフィック

Q新着順や新着順一覧を英語で書くと??

英語で新着順ってなんて書きますか?
HPに写真を載せていて
写真を新着順一覧に表示するスペースの名前を英語にすると、なんて書けばいいんでしょうか?
新着順や新着順一覧…という感じでお願いします。

Aベストアンサー

Sort by Date (日付順)というリンクが多いですね。

順番の切り替えに latest to earliest (最新から最古へ) とその逆を書いてある場合や、上向き三角▲と下向き三角▼のボタンを使っているところもあります。

到着というのをわざわざ盛り込んでいるところは少ないですが、長くても良いならば、Sort by Date arrived か Sort by Arrival Date とも書けます。

今回に写真という語も入れようとすると、Photos sorted by date (latest to earliest) のようになって見た目は冗長になってしまいます。

QExcelVBAでDOSコマンドの標準出力をリアルタイムでフォームへ出力するには

いつもお世話になります。

タイトルにある通りです。
VBAより実行したDOSコマンドの実行結果を、tailコマンドのように、フォーム(テキスト部品など)に出力させたいと考えています。

一度実行結果をファイルへ保存してそれをフォームへ出力させる、というのではなく、あくまでリアルタイムで表示する、ということは可能でしょうか?

よろしくお願いします。

Aベストアンサー

回答番号:No.1の続きになりますが(こんなレスの付け方でいいのか?)

1. 標準入力から読み込んだ文字列を指定WindowへSendMessageで送信するプロセスを作成。
2. VBAのユーザフォームをサブクラス化してハンドラ作成。(受信文字列をテキストボックスへ追加)
3. VBAから実行するコマンド文字列を、送信プロセスにリダイレクトするように作成して実行。

で、できるような気がしますが、どこがわかりませんか?
回答3にもあるように、
>VBAでやる範疇ではないでしょう。
が全てのような。

QWindows7でプログラム一覧が英語表示される

Windows7でプログラム一覧が英語表示される

Windows7 Professionalを使っています。
最近気がついたのですが
普通ならプログラム一覧で
「アクセサリ」と表示されるはずの部分が
英語で「Accessories」と表示されるようになっていました。
メニュー自体もすべて英語で
たとえば「電卓」なら「Calculator」といった具合です。

ちなみに「ゲーム」は「Games」
「既定のプログラム」は「Default Programs」となっていますが
「スタートアップ」はそのままです。

ソフト自体に不具合はないのですが
何となく気になります。
かといって
名前を一つ一つ変更するのも面倒です。
簡単に元へ戻す方法がお分かりでしたら
よろしくお願いいたします。

Aベストアンサー

詳しくは分かりませんが、C:\Users\○○\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\AccessoriesにあるはずのDesktop.iniをうまく設定すればよいと思います。ちなみに○○はユーザー名です。

QエクセルVBAでユーザーフォームのコマンドボタンをクリックするたびに

社内アンケートを作っています。質問は80問あり、1問ごとにユーザーフォームが表示されます。ユーザーフォームには「次へ進む」のコマンドボタンと質問内容を表示させるテキストボックスがあり、1問目を答えて「次へ進む」をクリックすると2問目の質問が表示され、さらに「次へ進む」をクリックすると3問目が表示されるという風にしたいのですが、2問目以降の質問を表示させられません。うまく表示させるにはどういうコードにすればよいのでしょうか?

Aベストアンサー

回答形式が不明なのでオプションボタンを2つ配置しYes,Noの二択で答えるということにしました。参考までに。

使用コントロール
TextBox1
cmdSusumu
optYes
optNo


'コードここから
Dim Question(80) As String
Dim QNo As Long

Private Sub UserForm_Initialize()
Question(1) = "1ですか?"
Question(2) = "2ですか?"
Question(3) = "3ですか?"
'  :
Question(80) = "80ですか?"

QNo = 1
TextBox1.Text = Question(QNo)
End Sub


'次へ進むボタン
Private Sub cmdSusumu_Click()

If optYes Or optNo Then  '回答しないと進めない

If optYes Then
'yesを記録
optYes.Value = False
Else
'noを記録
optNo.Value = False
End If

If QNo < 80 Then  '次の問題の表示
QNo = QNo + 1
TextBox1.Text = ""
TextBox1.Text = Question(QNo)
End If

End If
End Sub

回答形式が不明なのでオプションボタンを2つ配置しYes,Noの二択で答えるということにしました。参考までに。

使用コントロール
TextBox1
cmdSusumu
optYes
optNo


'コードここから
Dim Question(80) As String
Dim QNo As Long

Private Sub UserForm_Initialize()
Question(1) = "1ですか?"
Question(2) = "2ですか?"
Question(3) = "3ですか?"
'  :
Question(80) = "80ですか?"

QNo = 1
TextBox1.Text = Question(QNo)
End Sub


'次へ進むボタン
Private Sub cmdSusumu_Cl...続きを読む

Qヘンな日本語英語の一覧があるサイト

ヘンな日本語英語の一覧があるサイトなんてご存知ありませんか?
ピアース、ピーマン、ビデオデッキ、シャーペンなど、実際には使われない英語がたくさん日本で使われていたりしますが、こういうリストが載っているサイトを探しています。

ご存知の方いらっしゃいましたら教えて下さいっ!
よろしくお願いしまっす!

Aベストアンサー

洋サイトですが

参考URL:http://www.engrish.com/

QExcelVBA ユーザーフォームかコマンドボタン出現状態でシートを編集したい

ExcelでVBAを使いアプリを作っています。
何とかして、一時的にとあるボタンを表示させ、それを表示させたままでシート内容を編集できるようにしたいと思っています。
調べましたが、ボタンのみを出現させる術はわかりませんでした。できるのでしょうか。
それがダメなら、ユーザーフォームが出ている間、シートを編集可能にすることはできるでしょうか。

Aベストアンサー

こんにちは。
>ユーザーフォームが出ている間、シートを編集可能にする
UserForm1.Show vbModeless
...の事でいいのかな?
UserForm1のプロパティでShowModalをFalseに設定しても良いですが。
>ExcelでVBAを使いアプリを作っています。
>何とかして、一時的にとあるボタンを表示させ...
から考えると、オリジナルのツールバーなどで対応したほうがいいかもしれませんネ^ ^

Q色の名前は、日本語と英語のどちらを多く使う?・・・例えば「緑」と「グリーン」

「緑」と「グリーン」、「灰色」と「グレー」・・・

色の名前を言う時、日本語と英語のどちらを多く使いますか?

例えば、
・服の色は?
・車の色は?
・携帯機器(電話・プレイヤーなど)の色は?
どちらの表現を多く使いますか?

又、その他
「このもの(種類)は、日本語(英語)で言う」
「この色は、日本語(英語)で言う」
「殆ど、日本語(英語)で言う」
といったご回答も、歓迎します!

Aベストアンサー

じゃあいきましょか。英語です。私ら。

ピンク、ローズピンク、チェリーレッド、マローピンク、チリアンパープル、コスモス、チェリーピンク、ベビーピンク、ラムプラーローズ、ラズベリー、ローズマダー、カーマイン、パーシアンローズ、プラム、ガーネット、ピアニーレッド、プリムラ、コーラル、サルビア、マゼンダ、バーミリオン、シグナルレッド、ホビーレッド、ロブスター、ケチャップ、ファイヤー、スカーレット、バーミリオンレッド、ルビー、オペラ、ブリック。ベルベット。
以上赤系統。
日本にも古来のゆかしき呼び方はありますが、この点に関しましては英語に軍配をあげます。

グレーといいましても、シルバーホワイトグレー、パールグレー、オレンジグレー、イエローグレー、ブルーグレー、ピンクグレー、フレンチグレー、ミディアムグレー、グレー、ダークグレー、カーボングレー、チャーコールグレー、…あぁしんど。
私は日本男児ですが色名は英語です。

Qフォームボタンクリックでセル色表示

作業中中断により日付を変更したのかどのボタンまでクリックしたのかがわからなくなります。
A2セルの日付を変更したらB5セルが赤表示、ボタン1をクリックしたらC5セルが青表示、ボタン2をクリックしたらD5セルが緑表示、ボタン3をクリックしたらE5セルが黄表示等どこの作業まで実施したのかわかるようにしたいのですがVBAのコードがお解りになる方よろしくお願いします。

Aベストアンサー

こんにちは!

一例です。
コマンドボタンのオブジェクト名は実際のオブジェクト名にしてください。
シートモジュールで

Private Sub CommandButton1_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("C5").Interior.Color = vbBlue
End Sub

Private Sub CommandButton2_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("D5").Interior.Color = vbGreen
End Sub

Private Sub CommandButton3_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("E5").Interior.Color = vbYellow
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If IsDate(Target) Then
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("B5").Interior.Color = vbRed
End If
End If
End Sub

ではどうでしょうか?

>どこの作業まで実施したのかわかるようにしたいのですが・・・
とありますので、
もしかしてすでに色がついているセルの色はそのまま残しておきたい場合は
各コマンドボタンのコード内の
>Range("B5").Resize(, 4).Interior.Color = xlNone
の1行を削除してください。m(_ _)m

こんにちは!

一例です。
コマンドボタンのオブジェクト名は実際のオブジェクト名にしてください。
シートモジュールで

Private Sub CommandButton1_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("C5").Interior.Color = vbBlue
End Sub

Private Sub CommandButton2_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
Range("D5").Interior.Color = vbGreen
End Sub

Private Sub CommandButton3_Click()
Range("B5").Resize(, 4).Interior.Color = xlNone
...続きを読む


人気Q&Aランキング

おすすめ情報