The Final Part in my ListVeiw Saga....

[Azz00]

Right ive got my server names and the IP
in colloms 1 and 2
But now for the Third Collum
*Spooky Music Please*

*Drumroll*
my Last Collum Shall Contain a Ping!
but I dont want help on writing it in the Listveiw I must learn myself

so i will figure the writing in to last collum my self
but I dont know how to Ping a IP
without a Client server App
evan then id need a help
but how can i ping the IP addresses in my ListVeiw ?

[chrisjk]

http://www.mvps.org/vbnet/code/network/ping.htm

[Azz00]

Dammned!
ok problemo

First

In my Add server thing it dosent only add it to the files but the listbox too like so

Private Sub Command1_Click()
Call SaveToFile
Call SaveIP
tempAdd = frmMain.lstServer.ListItems.Count
With frmMain.lstServer
    .ListItems.Add tempAdd, , txtName
    .ListItems(1).ListSubItems.Add tempAdd, , txtIP
End With
    Unload Me
End Sub

And the problem is say my listbox already has some things in it
but it adds the name Fine but then it adds the IP in the Third Collum in my first entry in listveiw insteasd of the second collum of my item i just added ?


Also i want to get the selected Items Second Collum Property
and it dont do this

Dim IP as String
IP = lstserver.selecteditem 'THIS BIT ?
End Sub

[Azz00]

Anyone Got any ideas ?

[gdebacker]

I read your description of your problem three times and I'm still a little fuzzy on what you're talking about. But try this...

Private Sub Command1_Click()
Dim ItemX As ListItem
Call SaveToFile
Call SaveIP
tempAdd = frmMain.lstServer.ListItems.Count
Set ItemX = frmMain.lstServer.ListItems.Add(tempAdd, , txtName)
ItemX.SubItems(1) = txtIP
Unload Me
End Sub

and

Dim IP as String
Dim ItemX As ListItem
If Not lstserver.selecteditem Is Nothing Then
    Set ItemX = lstserver.selecteditem 
    IP = ItemX.SubItems(1) 'THIS BIT ?
End If

Greg