metalero
25 de Agosto del 2003

hola estimados programadores necesito abrir desde visual la calculadora de windows

Juan
25 de Agosto del 2003

Con la función Shell, el ejemplo de esta función que
viene en la ayuda abre la calculadora, que casualidad.
Te lo pongo aquí:

' Si se especifica 1 como el segundo argumento, la aplicación se
' ejecuta normalmente y recibe el enfoque.
Dim RetVal
RetVal = Shell("C:WINDOWSCALC.EXE", 1) ' Ejecuta Calculadora.

También te pondré el ejemplo de la instrucción SendKeys,
que sirve para enviar pulsaciones de tecla a otra aplicación. Casualmente también la calculadora.

Dim ReturnValue, I
ReturnValue = Shell("calc.exe", 1) ' Ejecuta la Calculadora.
AppActivate ReturnValue ' Activa la Calculadora.
For I = 1 To 100 ' Establece un bucle contador.
SendKeys I & "{+}", True ' Envía pulsaciones a la Calculadora
Next I ' para sumar cada valor de I.
SendKeys "=", True ' Obtiene el total general.
SendKeys "%{F4}", True ' Envía ALT+F4 para cerrar la Calculadora.