Sección de códigos , trucos y ejemplos para visual basic

426 - Diálogo Menú Inicio\ Ejecutar de windows y otras opciones

Abrir la ventana de “Menú Inicio\Ejecutar” (FileRun) entre otras opciones desde Visual Basic

Recurso enviado por : John Doe

Visual Basic tiene una opción por defecto para Abrir o ejecutar programas del sistema, como el Bloc de notas y la Calculadora entre otros. Con el comando “Shell”.

Mediante “Shell32.Shell” o “Shell32.Folder” se puede acceder a otras opciones del sistema como Abrir (Menú Inicio\Ejecutar), minimizar todas las ventanas, deshacer Minimizar, poner las ventanas en cascadas, mostrar las propiedades de la barra de tareas, etc…

Hay que añadir una referencia a: Microsoft Shell Controls And Automation

Sin dicha referencia obtendrías un mensaje de Error.

El siguiente ejemplo tiene cinco botones; Command1, Command2, Command3, Command4, Command5.

El código del form :

Private shlShell As Shell32.Shell Private shlFolder As Shell32.Folder Private Sub Command1_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.FileRun End Sub Private Sub Command2_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.TrayProperties End Sub Private Sub Command3_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.MinimizeAll End Sub Private Sub Command4_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.CascadeWindows End Sub Private Sub Command5_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.UndoMinimizeALL End Sub Private Sub Command6_Click() If shlShell Is Nothing Then Set shlShell = New Shell32.Shell End If shlShell.UndoMinimizeALL End Sub

Las distintas opciones son:

BrowseForFolder Seleccionar directorios (carpetas)
CascadeWindows Muestra las ventanas en cascada
TileHorzontally Anida las ventanas horizontalmente
TileVertically Idem, pero verticalmente
MinimizeAll Minimiza todas las ventanas
UndoMinimizeAll Deshace minimizar todas las ventanas
ControlPanelItem Ejecuta un elemento del panel de control
EjectPC Desacopla un ordenador que está acoplado
Explore Explora una carpeta
FileRun Muestra el diálogo de ejecutar
FindComputer Muestra el diálogo de buscar un equipo
FindFiles Muestra el diálogo de buscar ficheros (archivos)
Help Muestra la ayuda de Windows
Namespace Devuelve una carpeta, (la creada con esta función)
Open Abre una carpeta
RefreshMenu Actualiza el menú de Inicio
SetTime Muestra el diálogo de cambiar la fecha/hora
ShutDownWindows Muestra el diálogo de apagar el equipo
Suspend "Suspende" el equipo
TryProperties Muestra el diálogo de configurar la barra de tareas
Windows Crea y devuelve un objeto ShellWindows

Enlaces relacionados

Buscar en Recursos vb