Boa noite a todos.

 

No meu projeto tenho um calendario, quando clico na data ele joga a mesma para um listbox para depois de uma serie de escolhas entre datas ele salve as que estão na lista!!

Porém quando o usuário errar quero que ele possa deletar ainda na listbox.

A rotina que preciso é assim!! (rotina lógica)

 

Calendario_dateClick

    pesquisar na lst se a data ja foi clicada

     If a data clicada ja exixte então

            apaga da listbox

     else

            lst.additen DateClicked

     end if

 

     Lembrando que quando eu jogo a data para a lista em ainda não salvei no bd logo:

 

           -   Como faço a pesquisa dentro da listbox?????

 

                       Abraço galera, aguardo reposta!!!!

fAÇA UM FOR, E PRECISANDO USE REMOVEITEM

 

FOR A = 0 TO LIST1.LISTCOUNT -1

     IF LIST1.LIST(A) = CONDICAO THEN

         LIST1.REMOVEITEM A

      ENDIF

NEXT

 

T+

Valeu Burro do Sherek estamos no caminho certo!!! Mas....

Fiz isto aqui!!!

For teste = 0 To lst_data.ListCount - 1
        If lst_data.List(teste) = DateClicked Then
            lst_data.RemoveItem teste
        Else
            lst_data.AddItem DateClicked
        End If
Next

porém surgiram dois erros!!!

     O primeiro :     Eu clico na data ela vai para a list, se clicar novamente nela ela executa a rotina e não deleta!!!!
     A rotina passa pelo removeiten e não remove!!!!!

     Segundo:      clicando noutra data e novamente nela ela deleta, embora não seja o desejado, ai eu clico numa data ja inserida e ele da o seguinte erro:
    "Run Time Error '13' :"

    "Type mismatch"
    e o erro seta para esta linha

         If lst_data.List(teste) = DateClicked Then

        neste caso tenho os seguintes valores:

        lst_data.list = ""
        (teste) = "20/9/2004"
        DateClicked = 20/9/2004

       Como resolvo isso???

tem um erro no codigo, tanto no seu, como no BURRO

 

For teste = 0 To lst_data.ListCount - 1

        lst_data.ListIndex = teste
        If lst_data.TEXT = DateClicked Then
            lst_data.RemoveItem teste
        Else
            lst_data.AddItem DateClicked
        End If
Next

Roberto

Valeu pessoal mas no fim das contas o erro maior era lógico!!!

Agora ta tudo funcionando!!  Valeu pela mão, sem ela estaria betendo cabeça até agora!!!

Dai ficou assim!!!!!:

 

Private Sub calendar_hora_DateClick(ByVal DateClicked As Date)
    Dim teste As Long
    For teste = 0 To lst_data.ListCount - 1
        lst_data.ListIndex = teste
        If lst_data.Text = DateClicked Then
            lst_data.RemoveItem teste
            Exit Sub
        End If
    Next
        lst_data.AddItem DateClicked

    cmd_inserir.Enabled = True
    End Sub

 

 

Inclusive este form do sistema é para calcular horas para adicional noturno!!!!

e esta rotina vai jogar a data para dentro de uma list e da list salva no bd e mostra numa grid!!!!

Não sei se fui claro, porém achei interessante esta parte envolvendo o calendario e gostaria de saber se posso colocar na seção de dicas !!!!!

 

Foi mal.. não tinha entendido sua questão... achei que era apenas para excluir do listbox. Bem, o tio roberto já deu a solução... T+