Ejecutar Programas desde Visual Basic .Net

La aplicación para esta ocasión permite ejecutar desde Visual Basic algunos programas.

• Diseñamos el formulario tal como aparece en la imagen.

• Asignamos los nombres a los controles respectivos.

• Por último hacemos la pequeña codificación.

Nota:Para poder ejecutar los programas debes de saber la ubicación de su .exe en tu disco duro, estos los dejo como ejemplo porque son programas que su ubicación es la misma en cualquier Windows XP(Pero podria variar el nombre del disco duro, es mejor revisar bien). Pero puedes ejecutar cualquier otro programa teniendo en cuenta su ubicación.

 

[sourcecode language="vb"]
Public Class Form1

Private Sub btncal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncal.Click
'Ejecutar la Calculadora
Shell("C:\WINDOWS\system32\calc.exe", AppWinStyle.NormalFocus)
End Sub

Private Sub btnPaint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaint.Click
'Ejecutar Paint
Shell("C:\WINDOWS\system32\mspaint.exe", AppWinStyle.MaximizedFocus)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBN.Click
'Ejecutar el BLoc de notas
Shell("C:\WINDOWS\system32\notepad.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub btnExplorer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWE.Click
'Ejecutar el Explorador de Windows
Shell("C:\WINDOWS\explorer.exe", AppWinStyle.MaximizedFocus)
End Sub

Private Sub btnSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpider.Click
'Ejecutar Solitario Spider
Shell("C:\WINDOWS\system32\spider.exe", AppWinStyle.NormalFocus)
End Sub

Private Sub btnBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBM.Click
'Ejecutar Busca Minas
Shell("C:\WINDOWS\system32\winmine.exe", AppWinStyle.NormalFocus)
End Sub

Private Sub btncmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncmd.Click
'Ejecutar CDM
Shell("C:\WINDOWS\system32\cmd.exe", AppWinStyle.MinimizedFocus)
End Sub

Private Sub btnVol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVol.Click
'Ejecutar Control de Volumen del sistema
Shell("C:\WINDOWS\system32\sndvol32.exe", AppWinStyle.NormalFocus)
End Sub

Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
'Boton para cerrar la aplicación
Me.Close()
End Sub
End Class
[/sourcecode]

• Si te fijas, al final de cada linea de código por boton, algunos terminan de forma distinta, ésta última parte del código permite presentar el programa de diferentes formas. A continuación una tabla para poder enternderlo mas.

Por ultimo dejo AQUI la aplicación para descargar