VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -