Dim Index As Integer = 0
        For Each FavoritenIP As ListViewItem In FavoritenListView.Items
            Dim IPSplit() As String = FavoritenIP.Text.Split(":")
            Dim AiW As New Status(IPSplit(0), Convert.ToInt32(IPSplit(1)))
            If AiW.Online = True Then
                FavoritenListView.Items(Index).Selected = True
                FavoritenListView.SelectedItems.Item(Index).Text = _
                  FavoritenIP.Text
                FavoritenListView.SelectedItems(Index).SubItems(1).Text = _
                AiW.HostName
                FavoritenListView.SelectedItems(Index).SubItems(2).Text = _
                AiW.MapName
                FavoritenListView.Refresh()
                Index = Index + 1
            End If
        Next FavoritenIP

Beitrag wurde zuletzt am 27.02.11 um 19:27:31 editiert.