INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Tek-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...I frequent other newsgroups, too, and am MOST IMPRESSED with the lack of smart a-- and presence of genuine desire to help anyone of any skill level..."

More...

Geography

Where in the world do Tek-Tips members come from?

Click Here To Find Out!

Tek-Tips Shirts!

Get your
Tek-Tips Forums
SWAG here!

Home > Forums > Programmers > Languages > Visual Basic(Microsoft) -VB.NET Forum

add sub items in listview

CODE

Private Sub cmdStartPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStartPing.Click
        Dim serverlist, x As Integer
        Dim servers As String
        Dim response As New ListViewItem

        serverlist = lstServers.Items.Count - 1

        For x = 0 To serverlist

            servers = lstServers.Items(x).Text
            MultiPingSystem(servers)

            If pingresults = "Success" Then
                lstServers.Items(x).BackColor = Color.GreenYellow
                lstServers.Items(x).SubItems.Add("Success")
                lstServers.Refresh()
                lstServers.Items(x).SubItems.Add(roundtriptime)
                lstServers.Refresh()
            Else
                lstServers.Items(x).BackColor = Color.Red
                lstServers.Items(x).SubItems.Add("No Reply")
                lstServers.Refresh()
                lstServers.Items(x).SubItems.Add("Timeout")
                lstServers.Refresh()
                lstServers.Items(x).SubItems.Add(currentdt)
                lstServers.Refresh()

            End If
        Next

    End Sub

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To Visual Basic(Microsoft) -VB.NET