Anónimo
Como llamar aplicación a ejecutarse.
Hola y buenas noches, como hago una aplicación en visual basic, ¿para llamar a ejecutar equis programa desde escritorio?. La idea que tengo es, por medio de la aplicación que yo haga en VB6 llame una aplicación equis. La interfaz quisiera con menús desplegable. Así como las pestañas del menú inicio...
De antemano gracias!
De antemano gracias!
1 respuesta
Respuesta de erickahr
1
Prueba este código... espero que te sea de utilidad:
Dim strFic As String
Dim strParam As String
' Esto es para el caso de que el programa a ejecutar no exista
On Local Error Resume Next
' Espero que no tengas un programa que se llame así... 8-)
strFic = "Notepad.exe"
strParam = "c:\Prueba.txt"
Shell strFic & " " & strParam, vbNormalFocus
' Si se produce un error, lo comprobamos aquí
If Err Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description & vbCrLf & _
"al intentar ejecutar:" & vbCrLf & _
strFic & " " & strParam
Else
MsgBox "Se está ejecutando: " & strFic & " " & strParam
End If
' Nos aseguramos que el valor del error sea ceroErr = 0
Lo puedes pones en un button o bien en el menu que mencionabas.. ¿su hay dudas solo pregunta OK?
Saludos!
Fuente: http://alldevsoft.blogspot.com/2009/02/ejecutar-otros-programas-desde-visual.html
Dim strFic As String
Dim strParam As String
' Esto es para el caso de que el programa a ejecutar no exista
On Local Error Resume Next
' Espero que no tengas un programa que se llame así... 8-)
strFic = "Notepad.exe"
strParam = "c:\Prueba.txt"
Shell strFic & " " & strParam, vbNormalFocus
' Si se produce un error, lo comprobamos aquí
If Err Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description & vbCrLf & _
"al intentar ejecutar:" & vbCrLf & _
strFic & " " & strParam
Else
MsgBox "Se está ejecutando: " & strFic & " " & strParam
End If
' Nos aseguramos que el valor del error sea ceroErr = 0
Lo puedes pones en un button o bien en el menu que mencionabas.. ¿su hay dudas solo pregunta OK?
Saludos!
Fuente: http://alldevsoft.blogspot.com/2009/02/ejecutar-otros-programas-desde-visual.html