VERIFICAR SE O TEXTO EM UMA TEXTBOX TEM EM LISTBOX

WEVERTONSOZUA 28/09/2012 02:28:54
#410733
Ola pessoa gostaria de saber como fazer para que seja verificado se o texto digitado existam em uma listbox
Exemplo digitei o seguinte nome Pedro ai quando clicar no botão cadastrar se esse nome existir em uma listbox apareça uma mensagem de erro
porem se o nome não existir o programa cadastre ele.
ALTAIR148 28/09/2012 07:24:14
#410734
Resposta escolhida
Bom dia,

Primeiramente seria bom saber a necessidade dessa rotina que você deseja. Por acaso era para tipo, um cadastro de clientes, ai você quer ver se o cliente existe? Se for não é assim que deve ser feito, agora se for uma simples verificação abaixo tem um exemplo.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô]Chama a função verifica e verifica o seu retorno
If Verifica() = True Then
MsgBox([Ô]Existe[Ô])
Else
MsgBox([Ô]Não existe[Ô])
End If
End Sub
Public Function Verifica() As Boolean
[ô]Percorre o listbox.
Dim Retorno As Boolean
For x = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(x).ToString = TextBox1.Text Then
Retorno = True
Exit For
Else
Retorno = False
End If
Next
Return Retorno
End Function
WEVERTONSOZUA 28/09/2012 10:27:40
#410756
Olá, obrigado pela dica seria mesmo para um cadastro de clientes e para verificar se esse já esta cadastro, por favor se não incomodar qual a maneira certa de se fazer ?
ALTAIR148 28/09/2012 10:28:55
#410757
A maneira correta é através de um SELECT, esse select vai no banco e verifica se ele trazer algum registro é pq o cadastro já existe.
WEVERTONSOZUA 28/09/2012 10:37:37
#410759
Obrigado consegui o que queria fazer ate a próxima
ALTAIR148 28/09/2012 10:39:12
#410760
Ok...
Tópico encerrado , respostas não são mais permitidas