なぜかHtmlを開くとフリーズする。 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 ごう  (社会人) 投稿日時 2009/3/2 03:43:18
neptuneさんありがとうございます^^
RichTextBoxでもういちどやって見たいと思います^^
ありがとうございました^^
0
投稿者 neptune  (社会人) 投稿日時 2009/3/2 03:27:10
こんにちは

UPされたソースは検証してないのですが、一発でRichTextBoxに読み込ましたらどうですか？
開き方は、お隣の「OpenFileDialogで開けない」スレッドに書きました。
るきおさんも別方法を書かれています。

RichTextBoxで２つのファイルを開いてみましたが、問題は発生しませんでした。
0
投稿者 ごう  (社会人) 投稿日時 2009/3/2 01:11:43
こんにちは。
はじめましてごうです。

今作っているソフトについてなんですが、VB2008でフォームにテキストボックスとプログレスバーとメニューを配置してメニュー内の"開く"でhtmlを無理やり?テキストで開かせてるんですが、複数ﾌｧｲﾙ
あるうちの一つ(他の複数のhtmlもタグ構成はまったく同じです。)しかちゃんと読み込んでくれません。　あとのﾌｧｲﾙは全て応答がなくなりました。
とでて終了します。　いろいろ参考にしてプログラムを作ったので原因がまったく分かりません。
どう改善したらいいかご教授お願いします<(_ _)>
以下プログラムです。

Private Sub ChatLogOpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChatLogOpenToolStripMenuItem.Click
        Dim FileName As String
        Dim FileNum As Integer
        Dim strbuff As String

        ProgressBar1.Visible = True
        ProgressBar1.Value = 0

        TextBox1.Text = ""

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            FileName = OpenFileDialog1.FileName
        Else
            Exit Sub

            ProgressBar1.PerformStep()
            Application.DoEvents()
        End If
        FileNum = FreeFile()
        FileOpen(FileNum, FileName, OpenMode.Input)

        Do Until EOF(FileNum)
            strbuff = LineInput(FileNum)
            TextBox1.Text = TextBox1.Text & strbuff & vbCrLf
            ProgressBar1.Value = ProgressBar1.Maximum

        Loop
        FileClose(FileNum)
    End Sub

0