none
add itens numa list box no vb.net RRS feed

  • Pergunta

  • Olá, estou usando uma maskedTextBox e uma listBox no vb.net, para add telefones, eu preciso fazer o seguinte: se o numero de tel ja estiver adicionado nas list box, ele naum poderá adciona-lo novamente, preciso fazer essa verificação. E tbem uma validação cujo se quantidade de nums for menor que 13 naum poderá ser adcionado a lista, porem a mtx vai ter um numero a mais ou seja 14 para poder se add celulares tbem, dessa forma naum posso usar aquela vlidação que exige a mtx estar completamente preenchida, obrigado desde ja
    sábado, 17 de agosto de 2013 20:51

Respostas

  • tente isso 

    Isso sem mascara:

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim _numero As String = CStr(TextBox1.Text.Replace("-", "").Replace("(", "").Replace(")", ""))
            If (Not (ListBox1.Items.Contains(_numero)) And Not (_numero.Length <= 10)) Then
                ListBox1.Items.Add(_numero)
            Else
                MsgBox("O numero ja existe ou e invalido")
            End If
        End Sub

    Com mascara,ou seja ()xxxx-xxxx

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim _numero As String = TextBox1.Text
            If (Not (ListBox1.Items.Contains(_numero)) And Not (_numero.Length <= 13)) Then
                ListBox1.Items.Add(_numero)
            Else
                MsgBox("O numero ja existe ou e invalido")
            End If
        End Sub
    ta sem tratamento de erro,use este codigo como adaptacao.valeu


    Microsoft Technology Associate (MTA)



    • Editado Eduardo xUni sábado, 17 de agosto de 2013 23:08
    • Marcado como Resposta RomuloAlv terça-feira, 20 de agosto de 2013 04:34
    sábado, 17 de agosto de 2013 23:03

Todas as Respostas

  • tente isso 

    Isso sem mascara:

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim _numero As String = CStr(TextBox1.Text.Replace("-", "").Replace("(", "").Replace(")", ""))
            If (Not (ListBox1.Items.Contains(_numero)) And Not (_numero.Length <= 10)) Then
                ListBox1.Items.Add(_numero)
            Else
                MsgBox("O numero ja existe ou e invalido")
            End If
        End Sub

    Com mascara,ou seja ()xxxx-xxxx

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim _numero As String = TextBox1.Text
            If (Not (ListBox1.Items.Contains(_numero)) And Not (_numero.Length <= 13)) Then
                ListBox1.Items.Add(_numero)
            Else
                MsgBox("O numero ja existe ou e invalido")
            End If
        End Sub
    ta sem tratamento de erro,use este codigo como adaptacao.valeu


    Microsoft Technology Associate (MTA)



    • Editado Eduardo xUni sábado, 17 de agosto de 2013 23:08
    • Marcado como Resposta RomuloAlv terça-feira, 20 de agosto de 2013 04:34
    sábado, 17 de agosto de 2013 23:03
  • Obrigado vou testar aq ^^
    terça-feira, 20 de agosto de 2013 04:35