tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Console.WriteLineの文字列取得
投稿日: 2009/07/07(Tue) 18:49
投稿者GEN
VB2008Express版にて Console.WriteLine の文字列を TextBoxへ表示させたいのですが、
cStr()を使ってもString型へ変更が出来ません。
文字列にしてTextBoxへ出力する方法をご存知の方ご教授願います。
VB6環境でのシリアル通信・GP-IB通信ソフトの経験はありますが、
.NET・LANのプログラムは初めてです。


目的はPingが通ったIPアドレスの一覧を取得することです。
具体的なコードは、テキストボックスを1つ貼り付けて下記となります。


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'テキストボックスの初期設定
        With TextBox1
            .Multiline = True
            .ScrollBars = ScrollBars.Vertical
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Pingオブジェクトの作成
        Dim p As New System.Net.NetworkInformation.Ping()
        Dim xxx As Integer

        For xxx = 0 To 255
            Dim reply As System.Net.NetworkInformation.PingReply = p.Send("192.168.1." & xxx)

            '結果を取得
            If reply.Status = System.Net.NetworkInformation.IPStatus.Success Then
                Console.WriteLine("Reply from {0}:bytes={1} time={2}ms TTL={3}", _
                   reply.Address, reply.Buffer.Length, _
                    reply.RoundtripTime, reply.Options.Ttl)
                'テキストボックスへPingが通ったIPを表示させる。
                TextBox1.Text = TextBox1.Text & vbCrLf & CStr(reply.Address) & TextBox1.Text & vbCrLf
            Else
                Console.WriteLine("Ping送信に失敗。({0})", reply.Status)
            End If
        Next xxx
        p.Dispose()

    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。