[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2006/01/21(Sat) 19:55
投稿者名：健治
Ｅメール：
ＵＲＬ　：
タイトル：無理っぽいのかな・・・
チャットプログラムを作っているのですが、
TextBox内で自分が発言した文章だけ色を変えたいのですが、
良い方法はありますか？？ネットで色々探したんですが、
なかなか見つからず・・・（汗

投稿時間：2006/01/21(Sat) 21:38
投稿者名：も
Ｅメール：
ＵＲＬ　：
タイトル：Re: 無理っぽいのかな・・・
無理なので、TextBoxではなくRichTextBoxやWebBrowserコントロールにしてみては？
※RichTextの方は探せば見つかると思います。

WebBrowserの方は正しいかどうかは分からない、
怪しいサンプルコードを載せておきます(Σ

Option Explicit
'１　メニュー：[プロジェクト]-[コンポーネント]-[Microsoft Internet Controls]をチェック
'２　Form1にWebBrowserコントロールをフォームいっぱいに貼り付ける
'３　実行
Private Sub Form_Load()
    With WebBrowser1
        .Navigate "about:blank"
        Do While .Busy
            Debug.Print .Busy
            DoEvents
        Loop
        Do
            If .ReadyState = READYSTATE_COMPLETE Then Exit Do
            DoEvents
        Loop
        With .Document.All
            Debug.Print .length
            Debug.Print TypeName(.Item(0))  'HTMLHtmlElement?
            Debug.Print TypeName(.Item(1))  'HTMLHeadElement?
            Debug.Print TypeName(.Item(2))  'HTMLTitleElement?
            Debug.Print TypeName(.Item(3))  'HTMLBodyElement?
            'BodyにHTMLを設定してみる
            .Item(3).innerhtml = "<html>" & _
                                 "<body><font color=#ff5050>P1:ちゅーっす</font></br><font
color=#5050ff>P2:こんにちわー</font></body>" & _
                                 "</html>"
        End With
    End With
End Sub

投稿時間：2006/01/21(Sat) 21:40
投稿者名：も
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 無理っぽいのかな・・・
あ…
READYSTATE_COMPLETE = 4です
面倒なら、参照設定から Microsoft HTML Object Library をチェックしておいてください。

投稿時間：2006/01/21(Sat) 23:17
投稿者名：健治
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: 無理っぽいのかな・・・
おお、出来たくさいｗ　と、言っても載せておいてくれたソースを
走らせてみただけデスガ・・・
なにやら実現できそうな雰囲気なので頑張ってみますね！
ありがとうございました☆

投稿時間：2006/01/22(Sun) 10:54
投稿者名：も
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: 無理っぽいのかな・・・
IEに依存しますので(IE5以降?)ちょっと心配していました、上手くいってよかったです。
また、BODYのInnerHtmlを設定するのは、次の様にするのがいいかもしれません。

[WebBrowser].Document.body.InnerHtml="<html>ここにbodyを設定？</html>"