文字色...

[＾＾；]

コマンドボタンを押したときMainWndのEditBox内の文字の色を変更
するための、カラーダイアログを表示するにはどうすればよろしいでしょうか。

勝手ながら無理にとはいいませんが、ソースコードの書き込みを願いします。

[7]

> コマンドボタンを押したときMainWndのEditBox内の文字の色を変更
> するための、カラーダイアログを表示するにはどうすればよろしいでしょうか。
ActiveBasic付属のヘルプは読みましたか？
ChooseColor()関数を使うことでカラー選択ダイアログを開くことができます。

[^^;]

もうちょっと詳しくお願いします。

[7]

> もうちょっと詳しくお願いします。
http://homepage1.nifty.com/MADIA/vc/api/
「カラー選択ダイアログを表示する」を参考にしてはどうでしょう。
難しくてやっぱり分からない！と思ったらまた書き込んで下さい。

[^^;]

すみません。わかりませんでした。

ソースコードの投稿をお願いします。

[7]

> ソースコードの投稿をお願いします。
自分で昔作ったコードをリカバリ時に紛失していましてなかなか骨が折れました...。
コマンドボタン1が押された時にカラー選択ダイアログを表示します。

[ここをクリックすると内容が表示されます]

[^^;]

ダイアログで指定した色をMainWndのEditBox1に出力するにはどうすればよろしいでしょうか。徹夜で考えてわからなかったのでお尋ねします。
できればソースコードの投稿をお願いします。

[7]

> ダイアログで指定した色をMainWndのEditBox1に出力するにはどうすればよろしいでしょうか。徹夜で考えてわからなかったのでお尋ねします。
徹夜ですか...。

コード: 全て選択

If ChooseColor(ByVal chc) Then
	MessageBox(hMainWnd,Str$(chc->rgbResult),"選択されたRGBデータ",MB_OK)
End If

コメントを外して遊んで見ましたか？MessageBox()関数に対するコメントを外すと選択されたRGBデータが表示されます。
MessageBox()関数の第二引数は文字列を指定します。しかし、CHOOSECOLOR構造体のrgbResultはDWORD型です。そこで、Str$()関数を使って数値を文字列に変換します。

それが分かれば簡単です。

コード: 全て選択

SetDlgItemText(hMainWnd,EditBox1,Str$(chc->rgbResult))

こういう応用ができるようにと思ってDebugでRGBデータを表示せずに、MessageBox()関数を使ったサンプルだったんですけどね...。

[^^;]

色の情報を出力するのでなく、色そのものを出力するソースを教えてください。

[7]

> 色の情報を出力するのでなく、色そのものを出力するソースを教えてください。
あー。そうですね。おりゃさんのコードの切れ端から。スタティックテキストの文字の色を変えています。
http://dbp.cool.ne.jp/patio/patio.cgi?mode=view&no=128
リンク先ではWM_CTLCOLORSTATICで話が通ってますが、WM_CTLCOLOREDITを使って下さい。