Jump to content
cmd

Filtrar IP's

Recommended Posts

cmd

Boas noites a todos,

Estou a fazer um programa cuja única função é filtrar IP's, por exemplo, inserimos o IP numa Textbox, o programa introduz na Listbox dos IP's introduzidos e na Listbox dos IP's filtrados visto ser único, e assim sucessivamente, numa listbox mostra todos os inseridos, mas na outra mostra os filtrados.

Um exemplo

Inseridos Filtrados
3 3
3
4 4

Não sei se me conseguem perceber, na List da direita apenas mostra os valores não repetidos.

Tenho o actual código num botão:

Try
            'verificicar se a caixa de texto está em branco
            If tb_ips.Text <> "" Then
                'não aparecer mensagem de erro
                ErrorProvider1.SetError(tb_ips, "")
                'acrescentar o IP na listbox
                lb_ips.Items.Add(tb_ips.Text)
                If lb_ips.Items.Count = 1 Then
                    lb_ipsfilt.Items.Add(tb_ips.Text)
                End If
                For i = 1 To lb_ips.Items.Count - 1
                    If Not lb_ips.Items(i - 1).Equals(tb_ips.Text) Then
                        lb_ipsfilt.Items.Add(tb_ips.Text)
                    End If
                Next
                'limpar a textbox
                tb_ips.Text = ""
                'focar a textbox
                tb_ips.Focus()
            Else
                ErrorProvider1.SetError(tb_ips, "O endereço IP não pode ser introduzido em branco!")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erro!")
        End Try
 

Cumps.cmd

Share this post


Link to post
Share on other sites
MSOlhao

Viva,

Tenta isto para filtrar os IP's

For Each item As String In ListBox1.Items
    If Not ListBox2.Items.Contains(item) Then
        ListBox2.Items.Add(item)
    End If
Next

Legenda:

ListBox1 -> geral

ListBox2 -> filtrados

Share this post


Link to post
Share on other sites
cmd

Viva,

Tenta isto para filtrar os IP's

For Each item As String In ListBox1.Items
    If Not ListBox2.Items.Contains(item) Then
        ListBox2.Items.Add(item)
    End If
Next

Legenda:

ListBox1 -> geral

ListBox2 -> filtrados

Funciona na perfeição!!

Muito obrigado pela disponibilidade e rápida resposta.


Cumps.cmd

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.