[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/11/17(Fri) 14:21
投稿者名:ジネディーヌ
Eメール:
URL :
タイトル:
文字色を1文字ごとに設定
はじめまして。
宜しくお願いします。

VB6で画面上で文字の色を自由に設定したいのですが
こんなことは出来るのでしょうか?
どなたかご存知の方がいらっしゃいましたら
ご教授お願い致します。

例えば、”あいうえお”とあったら
あ:赤
い:黒
う:青
え:黒
お:黒
と画面上で設定し設定した色で”あいうえお”と表示したいのです..

投稿時間:2006/11/17(Fri) 15:21
投稿者名:いな
Eメール:
URL :
タイトル:
Re: 文字色を1文字ごとに設定
ここのHPにある
リッチテキストボックスでの基本的な操作例
http://hanatyan.sakura.ne.jp/vbhlp/rich01.htm#no9

の「8.選択箇所のフォントカラーの設定」
を使うと出来そうな気がします。
参考にされては?

投稿時間:2006/11/17(Fri) 17:34
投稿者名:ジネディーヌ
Eメール:
URL :
タイトル:
Re^2: 文字色を1文字ごとに設定
> ここのHPにある
> リッチテキストボックスでの基本的な操作例
> http://hanatyan.sakura.ne.jp/vbhlp/rich01.htm#no9
>
> の「8.選択箇所のフォントカラーの設定」
> を使うと出来そうな気がします。
> 参考にされては?

ありがとうございます。
出来ました。
※すみません。カテゴリ別サンプル一覧にありましたね..。

やりたいことは画面上で登録した文字列(1文字ごとにユーザのすきな色設定)を
EXCELファイルに文字色込みで出力、でして、
理想は1文字ごとに好きな色設定→EXCELへ色付き文字列の出力なのですが
さすがにDB(ORACLE)に持てそうにないので何色か縛りで
1文字ごとに色定数でやってみようと思っています。

例えば、
文字列:あいうえお
DB色項目:01042
0:黒、1:赤、2:青、3:黄、4:緑・・・(画面の色選択はコンボにして..)
といった感じにしてみます。

他に何かスマートなやり方があれば
お手数おかけしますがお教えいただければと思います。

投稿時間:2006/11/17(Fri) 15:43
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 文字色を1文字ごとに設定
いな さんの方法の他に Form や Picture ボックスに書くならできます。

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ForeColor = vbRed
    Me.Print "あ ";
    Me.ForeColor = vbBlack
    Me.Print "い ";
    Me.ForeColor = vbBlue
    Me.Print "う"
End Sub

投稿時間:2006/11/17(Fri) 17:53
投稿者名:ジネディーヌ
Eメール:
URL :
タイトル:
Re^2: 文字色を1文字ごとに設定
> いな さんの方法の他に Form や Picture ボックスに書くならできます。
>
> Private Sub Form_Load()
>     Me.AutoRedraw = True
>     Me.ForeColor = vbRed
>     Me.Print "あ ";
>     Me.ForeColor = vbBlack
>     Me.Print "い ";
>     Me.ForeColor = vbBlue
>     Me.Print "う"
> End Sub

試させていただきました。
色指定した文字イメージをPictureボックスに反映など
応用できそうですね。
ありがとうございます。恐縮です。