jongle
|
CAPANEMA
PA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/03/2013 18:01 hs
bom tarde, pessoal, estou gerando relatorios em htm, ate ai tudo bem mais estou com problema na hora de chamar estes arquivos, pois tenho que usar o navegador padrao do usuario escolheu, mais nao sei como faser isso:
o quew estou fazendo é o seguinte:
copiei o iexplore para uma pasta e : iexplore c:utilarq.htm
mais o problema que que tenho que copiar o arquivo iexplore em todas as maquinas que tem o meu programa, isso é ruim.
desde ja agradeço.
|
|
|
|
|
|
Euzébio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/03/2013 13:20 hs
Amigo, não precisa copiar o iexplorer...
Faça assim:
Dimensione uma variável em um módulo, assim:
Public SiteWeb As Long
Também em um módulo coloque
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'Para acessar sites da internet no browser padrão !
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Public 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
Type MAPIMessage
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Flags As Long
RecipCount As Long
FileCount As Long
End Type
Type MapiRecip
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type
Type MapiFile
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As String
End Type
Para chamar o site que quiser ou página (em arquivo htm no disco), como nos exemplos a seguir:
SiteWeb = ShellExecute(Me.hwnd, vbNullString, "www.sistemacomodoro.com.br", vbNullString, "c:", vbMaximizedFocus)
ou ainda
SiteWeb = ShellExecute(Me.hwnd, vbNullString, "c: empa.htm", vbNullString, "c:", vbMaximizedFocus)
Não tem erro. Qualquer coisa manda um e-mail que te ajudo, se não conseguir. Mas é fácil, só colocar a variável, a função e depois chamar quando quiser.
Abraços!
|
|
|
|
jongle
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/03/2013 09:29 hs
valeu amigo fucionou mesmo.
obrigado
|
|
|
|
|
