投稿者 ウッチー  (小学生) 投稿日時 2009/12/24 03:52:07
お久しぶりです。
今回は、下のコードで
    Dim Internet_ini As Net.WebClient = New Net.WebClient()
    Dim inid As String = "http://***/cats.ini"
    Dim Internet_rtf As Net.WebClient = New Net.WebClient()
    Dim rtf As String = "http://***/top.rtf"

    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load

        Internet_rtf.DownloadFile(rtf, Me.RichTextBox1.Text)
        Dim ini As String = Internet_ini.DownloadString(inid)

    End Sub

サーバー側にアクセスできなかったり、ファイルが存在しなかったときに、RichTextBox1にerror.rtfを表示させたいのですがうまくいきません。

また同様にファイルが取得出来なかったときに、メッセージボックスを表示する方法を教えて欲しいのです。

どうかご教授お願いします。