Ir para conteúdo
Fórum Script Brasil

EVALDO_SOARES

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre EVALDO_SOARES

EVALDO_SOARES's Achievements

0

Reputação

  1. Prezados, adaptei um projeto com um formulário para abrir e mostrar arquivos de uma devida pasta. Porém gostaria de implementar o filtro avançado, ou seja, pesquisa por arquivos, por exemplo que comecem com Leit*.*, cou simplesmente digitando as letras Leit e já aparecer no objeto WebBrowser, como funciona por exemplo no explore do Windows. Funciona bem até abrir a pasta e exibir os aquivos, travei em tentar filtrar. Eis o código do Formulário. =============================================== Private Sub anterior_Click() On Error Resume Next WebBrowser.GoBack proximo.Enabled = True End Sub Private Sub CommandButton1_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub Image11_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub endereço_Change() End Sub Private Sub Image12_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) End Sub Private Sub Image12_Click() On Error Resume Next 'WebBrowser.Navigate endereço.Value ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True End Sub Private Sub ir_Click() On Error Resume Next 'WebBrowser.Navigate endereço.Value ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True End Sub Private Sub proximo_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_Initialize() 'endereço = ActiveWorkbook.Path & "\" endereço = "C:\TESTE" WebBrowser.Navigate endereço.Value endereço = WebBrowser.LocationURL WebBrowser.SetFocus End Sub Private Sub WebBrowser_StatusTextChange(ByVal Text As String) endereço = WebBrowser.LocationURL End Sub ========================================================== O projeto é simples, poucas linhas de código, se precisar eu envio por e-mail para maior entendimento. Obrigado !
  2. Boa noite ! Adaptei um formulário para listar e exibir os arquivos de um determinado diretório, funciona perfeitamente, porém gostaria de criar um textbox para filtro, como é feito por exemplo no explore DO WINDOWS dentro de uma pasta. Travei nessa parte de filtrar o arquivo caso tenha uma lista muito grande, e não consigo evoluir, se alguém conhecer esse recurso ou tiver um outro projeto que tenha essa finalidade. Obrigado ! Segue o código do Formulário Private Sub anterior_Click() On Error Resume Next WebBrowser.GoBack proximo.Enabled = True End Sub Private Sub CommandButton1_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub Image11_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub Image12_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer) End Sub Private Sub Image12_Click() On Error Resume Next 'WebBrowser.Navigate endereço.Value ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True End Sub Private Sub ir_Click() On Error Resume Next 'WebBrowser.Navigate endereço.Value ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True End Sub Private Sub proximo_Click() On Error Resume Next WebBrowser.GoForward UserForm_Initialize End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_Initialize() 'endereço = ActiveWorkbook.Path & "\" endereço = "C:\TESTE" WebBrowser.Navigate endereço.Value endereço = WebBrowser.LocationURL WebBrowser.SetFocus End Sub Private Sub WebBrowser_StatusTextChange(ByVal Text As String) endereço = WebBrowser.LocationURL End Sub
  3. Olá. Estou com um script para um bat que é uma tela de login Funciona perfeitamente, porém gostaria de criar uma máscara do tipo "*******" quando o usuário digitar sua senha, por motivo de segurança não ser visualizada a digitação. Alguém pode ajudar adaptando meu modelo por favor? Obrigado ! ===================================== @echo off title Sistema de login :home echo. echo /====================================\ echo : Coloque seu usuario e senha para poder : echo : entrar no computador. : echo \====================================/ echo. set/p user="Usuario: " if "%user%"== "evaldo" goto pass msg * ERRO! Usuario invalido. goto home :pass set/p pwd="Senha privada: " if "%pwd%"== "senha" msg * Bem-vindo %user%! Hoje e %date%. & exit msg * ERRO! Senha privada invalida ou não reconhecida. goto pass
×
×
  • Criar Novo...