| Pregunta: | 36766 - PROBLEMAS CON LOS MDI Y ALPHABLENDING.. |
| Autor: | OSCAR CABRERA |
| De antemano les agradesco por sus posibles respuestas...
Quisiera saber como se puede ocultar la barra de titulo de un MDI, donde sale los botonnes de maximizar,etc, la idea es ocultarla como cuando colocamos la propiedad "borderstyle" de un formulario a "none", y tambien de ocultar la barra de tareas de windows donde sale el boton de incio de windows, pero que mi ap`licacion pueda ocupar esta area, osea que cuando ejecute el formulario principal se abra en toda la pantalla. me gustaria que me comentaran donde puedo conseguir informacion sobre el manejo de alphablending.dll, la he intentado trabajar...pero me falta, y si se puede hacer con controles que no posean la propiedad hdc. Gracias... | |
| Respuesta: | PEDRO OSNAGHI |
| Mira, te puedo ayudar con el tema de ocultar la barra de tareas de windows. El tema esta en que yo tengo el problema de que logro esconder la barra de tareas pero no puedo hacer que el formulario me ocupe la totalidad de la pantalla. Si llegas a encontrar la forma de hacerlo escribime por favos...surte
Este es el código: Private Declare Function FindWindowLib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Form_Click() Dim StartWindow As Long ' Lo primero que tenemos que hacer es localizar la barra de tareas con la instrucción ' de debajo y luego con el manejador pasarsela a la función que la oculta o la muestra StartWindow = FindWindow("Shell_TrayWnd", vbNullString) If MsgBox("¿Ocultar barra?", vbInformation + vbYesNo) = vbYes Then ShowWindow StartWindow, 0& ' La ocultamos Else ShowWindow StartWindow, 1& ' La mostramos End If End Sub | |