willianrc

Hello folks, Como consigo pesquisar na segunda coluna do ListBox1 com este codigo ? : Private Sub CommandButton6_Click() 'GO BUTTON Dim sFind As String Dim i As Long sFind = Me.TextBox5.text If Len(sFind) = 0 Then Me.ListBox1.ListIndex = -1 Me.ListBox1.TopIndex = -1 Else For i = 0 To Me.ListBox1.ListCount - 1 If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then Me.ListBox1.TopIndex = i Me.ListBox1.ListIndex = i Exit For End If Next i End If End Sub

Olá amigos , estou com uma dúvida de como colocar um campo para EDITAR meu itens cadastrados, alguém me ajuda ? Obrigado. Segue meu código .bat @echo Off mode con cols=60 lines=30 :menuPrin rem ###Mostra Menu inicial.### Title Cadastro de Pessoas - Menu Principal cls echo Cadastro de Pessoas echo. echo O que deseja fazer? echo. echo. echo 1-Cadastrar echo 2-Apagar echo 3-Pesquisa echo 4-Desenvolvedor echo 5-Sair echo. echo. set /p "op=Escolha uma opcao: " rem ###Validacao para aceitar apenas os valores pre determinados### if %op% LSS 1 ( echo. echo ESCOLHA INCORRETA! echo. pause goto menuPrin ) if %op% GTR 5 ( echo. echo ESCOLHA INCORRETA! echo. pause goto menuPrin ) rem ###Fim da validacao para aceitar apenas os valores pre determinados### if NOT exist codigo.cadp echo 0 > codigo.cadp rem ###Nesta linha 39 Caso não exista o arquivo para rem gravacao e leitura do ultimo codigo cadastrado rem sera criado o arquivo com codigo zero "0" .### if %op%==1 set operacao=Cadastrar if %op%==2 set operacao=Apagar if %op%==3 set operacao=Pesquisar if %op%==4 set operacao=Desenvolvedor if %op%==5 exit rem ###Cabecalho que sera usado para Cadastrar, Apagar, Pesquisar e Desenvolvedor###. :tipoOperacao Title Cadastro de Pessoas - %operacao% cls echo Cadastro de Pessoas - Operacao escolhido: %operacao% echo. echo. if %op%==1 goto Cadastrar if %op%==2 goto Apagar if %op%==3 goto Pesquisa if %op%==4 goto Desenvolvedor rem ###Fim do cabecalho### :menuEscolha cls echo Cadastro de Pessoas echo. echo. echo C-Continuar a %operacao% echo M-Menu Principal echo S-Sair echo. echo. set /p "escolha=Escolha uma opcao: " if /I %escolha%==C goto tipoOperacao if /I %escolha%==M goto menuPrin if /I %escolha%==S exit :Cadastrar set operacao=Cadastrar set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% rem ###Obtendo dadas para a gravacao###. echo. echo. set /p "codigo=Codigo: " echo. set /p "nome=Nome: " echo. set /p "endereco=Endereco: " set /p "numero=Numero: " set /p "complemento=Complemento: " set /p "cep=CEP: " echo. set /p "telefoneFax=Telefone/Fax: " set /p "celular=Celular: " echo. set /p "cpf=CPF: " set /p "rg=RG: " set /p "sexo=Sexo: " set /p "estadoCivil=Estado Civil: " echo. set /p "email=E-mail: " echo. set /p "Observacao=Observacao: " rem ###Fim da obtencao dos dadas.### rem ###Gravando os dados### echo %codigo%__NOME: %nome% >> cadastros.cadp echo %codigo%__ENDERECO: %endereco% >> cadastros.cadp echo %codigo%__NUMERO: %numero% >> cadastros.cadp echo %codigo%__COMPLEMENTO: %complemento% >> cadastros.cadp echo %codigo%__CEP: %cep% >> cadastros.cadp echo %codigo%__TELEFONE/FAX: %telefoneFax% >> cadastros.cadp echo %codigo%__CELULAR: %celular% >> cadastros.cadp echo %codigo%__CPF: %cpf% >> cadastros.cadp echo %codigo%__RG: %rg% >> cadastros.cadp echo %codigo%__SEXO: %sexo% >> cadastros.cadp echo %codigo%__ESTADO CIVIL: %estadoCivil% >> cadastros.cadp echo %codigo%__E-MAIL: %email% >> cadastros.cadp echo %codigo%__OBSERVACAO: %observacao% >> cadastros.cadp echo. >> cadastros.cadp echo. %codigo% > codigo.cadp rem ###Fim da gravacao dos dados### goto menuEscolha :Apagar set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% echo. echo. set operacao=Apagar set /p "apagar=Codigo que deseja apagar: " find /I /V "%apagar%__" cadastros.cadp > cadastros2.cadp echo. echo. pause del cadastros.cadp rename cadastros2.cadp cadastros.cadp find /I /V "cadastros.cadp" cadastros.cadp > cadastros2.cadp del cadastros.cadp rename cadastros2.cadp cadastros.cadp goto menuEscolha :Pesquisa set cod=type codigo.cadp echo Ultimo Codigo Cadastrado %cod% echo. echo. set /P "codigoPesq=Codigo para pesquisar: " if exist cadastros.cadp find /I "%codigoPesq%__" cadastros.cadp echo. pause set operacao=Pesquisar goto menuEscolha :Desenvolvedor echo. echo. echo. echo. echo. echo. echo. pause cls goto menuEscolha CadastroV5.rar