できるかどうかを教えてください。
JavaScriptを使用して、背景色を変更することができるとおもいますが、
このとき、ついでに文字色なんかも変更することなんて、できちゃったりするのでしょうか?
いろいろなHPを見てみましたが、そのような解説にあたりませんでした。
もし、そういった解説の載っているHPをご存知でしたらお教えください。
教えてくだされば、がんばって自分で勉強してみますので、ごめんどうはおかけいたしません。
よろしくお願い申し上げます

A 回答 (3件)

文字色は document.fgColor で変更可能です。



たとえば、
----------------------------------------------------------------------
onClick="document.bgColor='black'; document.fgColor='white'"
----------------------------------------------------------------------
のようにすれば、背景色が黒で文字色が白に同時に変更が可能です。
上の例のように1行で複数の命令を書く場合は
;(セミコロン)で区切って書いていけばOKです。

参考URL:http://tohoho.wakusei.ne.jp/js/document.htm#fgCo …

この回答への補足

あー、ありがとうございますー。
とほほさんのところにあったのですねー。気づきませんでした。
さっそくがんばってやってみますので、できたら、「できた!」と報告をさせていただきます。
申し訳ありませんがもう少々(多分まるまる1日はかかると思います)お待ちください。
ありがとうございました。

補足日時:2002/03/02 16:11
    • good
    • 0
この回答へのお礼

できました。うれしいです。ちょっと難儀もしましたが、なんとか動きました。
ありがとうございました

お礼日時:2002/03/03 15:15

VBScriptっていうと何か分かりづらいですが


ASPというと「あれか」と思うかもしれません。
先回の話はASPについてのことです。

背景色を変える仕組みでR,G,Bの数値の設定をしているのであれば、
その値から得る値(私の場合は白か黒)を
<font color= >
のところに割り当てれば背景にあわせたフォント色で文字を表示できます。

yukiko5さんの質問を理解しきれていないので、質問の意図と食い違ったことをいってるかも知れませんが参考程度に。
    • good
    • 0
この回答へのお礼

再度ありがとうございます!
ASPと聞きまして、「えっ?なんだ?」と、思っております。すみません。。。

私の疑問は多分No2の方の回答で解決できそうです。
参項URLを見てみたら、「そうそう、そんな感じ」でした。
実際にできるかは、超初心者の私には自信がありませんが、がんばってみようと思っております。

2回も回答くださいましてありがとうございました。
damakさんのは、まだ私にはハードルが高かったので、よくわかりませんでしたが、今後勉強してわかるようになりたいです。
ほんとうにありがとうございました。
世の中は未知なる物で、いっぱいです。

お礼日時:2002/03/02 16:40

ご参考程度にお読みください



私の場合、JavaScriptではなくVBScriptですが
背景色のR、G、Bの合計値が400以上であればフォントの色を黒
、400以下であればフォントの色を白にするように作成したことがあります。本当は背景色と相性のよい組み合わせにしたかったのですが妥協して白と黒にしました。
JavaScriptで同様のプログラムができれば幸いです。

この回答への補足

ありがとうございました。でもVBscriptって初めてききました。う~ん。。
http://www.fitweb.or.jp/~satosi77/vbscript.html
damakさんのおっしゃる文字色の変更とはこういうことでしょうか?
もしそうでしたらちょっと違うのです。
ボタンなどを押して、背景色をぱっと変えるついでに、文字色も一括変更できればなー、と私は考えております。
それもVBscriptになるのでしょうか?
あと、参考になりそうなHPをご存知でしたら教えください。
お手数ですがよろしくお願い申し上げます。。。

補足日時:2002/03/02 15:33
    • good
    • 0

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

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

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

QVBSのMsgBoxで文字に色をつけたい

こんにちは。
WIN2K PRO、WSH2.0を使用しております。
いつも思うのですが、msgbox内の文字が
赤色、青色だったらいいのにと感じること
があります。
文字の色を変えることはできるのでしょうか?
よろしくお願いいたします。

Aベストアンサー

VBSだけではどうやってもできません。

画面のプロパティで設定された色になります。

Qvbsでテキストファイル内の文字列検索

初心者です。

テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。

色々探して、以下で作成したのですが、
うまく動いてくれません。

出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。

どなたかご教示のほど宜しくお願い致します。


----------------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim strSearchWord

Set tmpFile = WSHFso.OpenTextFile("C:\AAA.txt")

Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
strSearchWord = strSearchWord & tmpLine & vbcrlf
Loop


Dim SearchWord
SearchWord = split(strSearchWord," ")


if InStr(SearchWord(ix), "test")<>0 then
WScript.Echo " testを含みます。"
else
WScript.Echo " testを含みません。"

end if


----------------------------------------------------

初心者です。

テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。

色々探して、以下で作成したのですが、
うまく動いてくれません。

出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。

どなたかご教示のほど宜しくお願い致します。


----------------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell...続きを読む

Aベストアンサー

こんにちは。

コードの細かい部分の目的としている部分は良く分からないけれども、少し直してみました。あくまでも、VBSです。元のコードは、ちょっと違うようです。

'-------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
'Set WshShell = CreateObject("WScript.Shell") '??
Dim strSearchWord
dim i
'-------------------------------------------
Public Const FileName ="C:\AAA.txt"
Public Const sWord =""test"
'-------------------------------------------
Set tmpFile = WSHFso.OpenTextFile(FileName)

Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
i = i + 1
nflg= fSearchWord (tmpLine)
If nflg Then Exit Do
Loop
If nflg Then
MsgBox i & "行目に" & sWord &"を含みます。",64
Else
MsgBox sWord &"を含みませんでした。",48
End If
'-------------------------------------------
Function fSearchWord(tmpLine)
Dim flg
SearchWord = Split(tmpLine," ")
For ix = LBound(SearchWord) To UBound(SearchWord)
If Len(Trim(SearchWord(ix))) > 0 Then
If InStr(1, SearchWord(ix), sWord, 1) > 0 Then
flg = True
Exit For
End If
End If
Next
fSearchWord = flg
End Function
'-------------------------------------------

こんにちは。

コードの細かい部分の目的としている部分は良く分からないけれども、少し直してみました。あくまでも、VBSです。元のコードは、ちょっと違うようです。

'-------------------------------------------

Set WSHFso = CreateObject("Scripting.FileSystemObject")
'Set WshShell = CreateObject("WScript.Shell") '??
Dim strSearchWord
dim i
'-------------------------------------------
Public Const FileName ="C:\AAA.txt"
Public Const sWord =""test"
'---------------------...続きを読む

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

QVBScriptで配列のソートをするには?

VBScriptで作成した配列の順番をソートする場合、どのようなコーティングを行えば、実現できるでしょうか?
ソートそのものを実装する関数がありますか?

Aベストアンサー

簡単なものなら
シンプルソート、バブルソート
再起呼び出しなどを使えるレベルならば
マージソート、クイックソート

これらのアルゴリズムの名前で検索をかければ
プログラム例が載っているサイトがみつかりますよ。


人気Q&Aランキング

おすすめ情報