tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルConsole.WriteLineの文字列取得
記事No9144
投稿日: 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

[ツリー表示へ]
タイトルRe: Console.WriteLineの文字列取得
記事No9145
投稿日: 2009/07/07(Tue) 19:07
投稿者魔界の仮面弁士
> VB2008Express版にて Console.WriteLine の文字列を TextBoxへ表示させたいのですが、
書式指定のために、String.Format メソッドを利用することで解決できると思います。

> TextBox1.Text = TextBox1.Text & vbCrLf &
Text プロパティを連結していくのではなく、
AppendText メソッドで追記していくようにしてください。

[ツリー表示へ]
タイトルRe^2: Console.WriteLineの文字列取得
記事No9148
投稿日: 2009/07/08(Wed) 10:16
投稿者GEN
魔界の仮面弁士 様

AppendText メソッド と String.Format メソッド にて、
無事にTextBoxへ 文字列を取得できました。

ありがとうございました。

[ツリー表示へ]