| Pregunta: | 33899 - DESACTIVAR BOTON DE INICIO DE WINDOWS |
| Autor: | Rolando Bardes |
| Compañeros como puedo hacer para que al ejecutar la aplicacion de Visual Basic no funcione el Boton de inicio de Windows (Start).
Gracias | |
| Respuesta: | Daniel |
| Buenas, creo saber la respuesta:
He leido información en una página, sobre como ocultar el Botón de inicio de Windows. Seguramente que con esto consigues que no funcione. Para conseguir el código tienes que ir a http://www.ambsoftware.com/ y aquí buscar mediante Recursos VB la palabra inicio. Te aparecera entre los resultados "Ocultar el botón de inicio de Windows" que te llevara a la información que buscas. Te adjunto el codigo: Con este ejemplo ocultaremos el botón de Inicio de Windows. Ejemplo: Añade dos botones al formulario (Command1 y Command2). Cambia la propiedad Caption de los dos botones a "Ocultar" y "Mostrar" respectivamente y escribe el siguiente código: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Function OcultarStartButton() OurParent& = FindWindow("Shell_TrayWnd", "") OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString) ShowWindow OurHandle&, 0 End Function Function MostrarStartButton() OurParent& = FindWindow("Shell_TrayWnd", "") OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString) ShowWindow OurHandle&, 5 End Function Private Sub Command1_Click() OcultarStartButton End Sub Private Sub Command2_Click() MostrarStartButton End Sub | |