|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Abrir um arquivo com o programa associado
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Const SW_SHOW As Long = 5
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
Private Sub Button_Click()
dim i&
i& = ShellExecute(0,"open",CaminhoArquivoWord,"","",SW_SHOW)
End Sub
|
|
|
|
|
