NAO PERMITIR PALAVRAS REPETIDAS EM LISTBOX

LINKK 21/09/2009 15:01:10
#323336
ola...
eu preciso de uma rotina que nao deixa palavras repetidas serem colocadas numa listbox...
alguem pode me ajudar???
obrigado
CEMM 21/09/2009 15:08:51
#323339 Resposta escolhida
cara tenta fazer assim:

Private Sub Command1_Click()
    If txtPalavra.Text <> [Ô][Ô] Then
        For i = 0 To lstLista.ListCount - 1
            If lstLista.List(i) = txtPalavra.Text Then
                MsgBox [Ô]Palavra já adicionada[Ô]
                Exit Sub
            End If
        Next
        
        lstLista.AddItem txtPalavra.Text
    End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar