POSTEI UM EXEMPLO PARA BUSCA CEPS

USUARIO.EXCLUIDOS 11/04/2007 21:47:19
#211375
Seguinte, em cima de um outro tópico ja encerrado sobre dll de busca
CEPS sendo vendida.
Não é igual mas pode quebrar o galho de muita gente, eu fiz para um cliente e ele adorou., Afinal busca direto do site do correio e isso é a garantia de uma base sempre atualizada.


Function ShellToBrowser(Frm As Form, ByVal URL, ByVal WindowStyle) 'abrir browser
    
    Dim api As Integer
    api = ShellExecute(Frm.hwnd, "open", URL, "", App.Path, WindowStyle)
 
    'verifica o valor retornado
    If api < 31 Then
        'codigo de erro da api
        MsgBox App.Title & " O seu navegador esta com problemas. " & _
          "Verifique se o seu navegador esta corretamente instalado." & _
          "(Error" & Format(api) & ")", 48, "Navegador Indisponivel"
        ShellToBrowser = False
    ElseIf api = 32 Then
        'arquivo sem associação
        MsgBox App.Title & " não foi possível encontrar uma associação para o arquivo " & URL & " no seu seistema. Verifique o seu Navegador padrão... ", 48, "Navegador indisponivel"
        ShellToBrowser = False
    Else
        'funcionou
        ShellToBrowser = True
    End If
    
End Function





'Buscar cep por logradouro
If txtLogradouro = "" Then
MsgBox "Informe o Logradouro", vbInformation, "Aviso"
DoEvents
txtLogradouro.SetFocus
Exit Sub
ElseIf txtCidade = "" Then
MsgBox "Informe a Cidade", vbInformation, "Aviso"
DoEvents
txtCidade.SetFocus
Exit Sub
ElseIf cboEstado = "" Then
MsgBox "Informe o Estado", vbInformation, "Aviso"
DoEvents
cboEstado.SetFocus
Exit Sub
End If

ShellExecute 0, "open", "http://www.correios.com.br/servicos/cep/Resultado_Log.cfm?UF=" & cboEstado & "&Localidade=" & txtCidade & "&Logradouro=" & txtLogradouro & "&Numero=" & txtNumero, "", "", SW_SHOW

'Buscar logradouro poe cep
If txtCEP = "" Then
MsgBox "Informe o CEP", vbInformation, "Aviso"
DoEvents
txtCEP.SetFocus
Exit Sub
End If
'If Me.txtCEP <> "" Then
'ShellExecute 0, "open", "www.ncssistemas.com.br/cep.asp?ceep=" & txtCEP, "", "", SW_SHOW
ShellExecute 0, "open", "http://www.correios.com.br/servicos/cep/cep_resp_pesq.cfm?cep=" & txtCEP, "", "", SW_SHOW
RICATOM 12/04/2007 07:54:38
#211402
Colega

Esta dando que o ShellExecute é uma 'sub' ou 'function' não definida
USUARIO.EXCLUIDOS 12/04/2007 08:42:05
#211413
'Correção

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Buscar cep por logradouro
If txtLogradouro = "" Then
MsgBox "Informe o Logradouro", vbInformation, "Aviso"
DoEvents
txtLogradouro.SetFocus
Exit Sub
ElseIf txtCidade = "" Then
MsgBox "Informe a Cidade", vbInformation, "Aviso"
DoEvents
txtCidade.SetFocus
Exit Sub
ElseIf cboEstado = "" Then
MsgBox "Informe o Estado", vbInformation, "Aviso"
DoEvents
cboEstado.SetFocus
Exit Sub
End If

ShellExecute 0, "open", "http://www.correios.com.br/servicos/cep/Resultado_Log.cfm?UF=" & cboEstado & "&Localidade=" & txtCidade & "&Logradouro=" & txtLogradouro & "&Numero=" & txtNumero, "", "", SW_SHOW

'Buscar logradouro por cep
If txtCEP = "" Then
MsgBox "Informe o CEP", vbInformation, "Aviso"
DoEvents
txtCEP.SetFocus
Exit Sub
End If
'If Me.txtCEP <> "" Then
'ShellExecute 0, "open", "www.ncssistemas.com.br/cep.asp?ceep=" & txtCEP, "", "", SW_SHOW
ShellExecute 0, "open", "http://www.correios.com.br/servicos/cep/cep_resp_pesq.cfm?cep=" & txtCEP, "", "", SW_SHOW
Tópico encerrado , respostas não são mais permitidas
Voltar