USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Chamar executável via API
Postada em 1/12/2003 por Fernando            
Declare a seguinte api em seu form:

Private Declare Function WinExec Lib "kernel32" (ByVal _
lpCmdLine As String, ByVal nCmdShow As Long) As Long

'Essas constantes são poder indicar como o programa deve ser exibido
'Essas constantes são definidas para a função showwindow

Const sw_hide = 0
Const sw_shownormal = 1
Const sw_normal = 1
Const sw_showminimized = 2
Const sw_showmaximized = 3
Const sw_maximize = 3
Const sw_shownoactivate = 4
Const sw_show = 5
Const sw_minimize = 6
Const sw_showinnoactivate = 7
Const sw_showna = 8
Const sw_restore = 9
Const sw_showdefault = 10
Const sw_max = 10

Agora em commandbutton:
'este exemplo chama a calculadora mas pode ser qualquer outro programa

Private Sub Command1_Click()
Call WinExec("c:\windows\calc.exe", sw_normal)
End Sub

Espero que sirva para alguém
Um abraço

Fernando.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página