Usuário com melhor resposta
add itens numa list box no vb.net

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
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
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
-