Renato Tavares
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2005 07:38 hs
Pessoal
Bom Dia! Tudo Bem com vcs? A minha dúvida é a seguinte: Tem como abrir um arquivo(doc,pdf,xls) atráves do VB, sem
utilizar o objeto OLE do VB. [[ ]]'s e obrigado Renato |
|
|
|
|
|
Susana
|
ANGRA DOS REIS
RJ - BRASIL
|
|
Postada em 08/08/2005 08:32 hs
Bom dia Renato, Este exemplo abre qualquer arquivo (.doc,.pdf,.dwg,...) com o respectivo aplicativo que o usuário possua na sua máquina. No módulo: 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
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9 No form, para abrir o arquivo: Dim Retval as long Retval = ShellExecute(me.hwnd, "open", caminho+nomedoarquivo, "", "", SW_MAXIMIZE) Susana |
|
|
|
|
|
Postada em 08/08/2005 08:34 hs
Vc pode usar o shell para abrir um aplicativo externamente em relação ao seu sistema: call shell("C:winword.exe C:documento.doc",vbNormalFocus) Aplicativo + nome do documento não sei se é bem isso q vc quer qq dúvida é só postar t+ |
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2005 08:38 hs
'Desenvolvedor......:
'Data de criação....: 01/07/2005
'Funcionalidade.....: esta sub trata a ação do click no menu Ajuda Conteúdo
'Referências de uso.: mdiPrincipal
'Exemplo de uso.....:
'Destacar alterações:
Private Sub mnuConteúdo_Click()
subAbreComando "\apoloap7$ManuaisDocumentos_ProgramadorGeralGeradorDeRelatórios.doc"
End Sub
'Desenvolvedor......:
'Data de criação....: 13/06/2005
'Funcionalidade.....: esta sub executa um commando com o arquivo associado
'Referências de uso.: mdiPrincipal - menu ajuda / conteúdo
'Exemplo de uso.....: subAbreComando "\apoloap7$ManuaisDocumentos_ProgramadorGeralGeradorDeRelatórios.doc"
'Destacar alterações:
Public Sub subAbreComando(ByVal vgCmd As String)
Dim lngI As Long
lngI = ShellExecute(mdiPrincipal.hWnd, vbNullString, vgCmd$, vbNullString, vbNullString, 1)
If lngI >= 0 And lngI <= 32 Then
MsgBox "Erro ao tentar executar o comando", vbCritical, strAtencao$
End If
End Sub
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2005 08:39 hs
esqueci de colocar a API ... 'Windows API's - executa um commando com o arquivo associado
Public Declare Function ShellExecute Lib "shell32" 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
|
|
|
|
Renato Tavares
não registrado
|
|
Postada em 08/08/2005 09:12 hs
Suzana, ghost_jlp e Martini Muito Obrigado pelas dicas.............
Isso me ajudou muito...... [[ ]]'s Renato |
|
|
|
|
