quitar barra
pedro
06 de Mayo del 2003
como quitar la barra de tÃtulos(barra azul) de un formulario y que funcione perfectamente.
Saludos.
Saludos.
Observador
06 de Mayo del 2003
Bien... Eso puedes lograrlo cambiando la propiedad BorderStyle al valor 0 - None
(esto lo debes hacer en tiempo de diseño)...
¿Y a que te refieres con "que funcione perfectamente"? Si te refieres a que el formulario se pueda mover (y por lo regular se mueve dando click en la barra de titulo y moviendo en mouse a la nueva posicion) pues entonces agrega el siguente codigo en la seccion (General) (Declaraciones) del form que no tiene Barra...
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Con este codigo ya puedes mover el form, aunque no tenga barra de titulo, solo da click en alguna parte del form, ten presionado el boton y muevelo a la nueva posicion que quieras....
Bien... Espero haberle atinado a eso de "que funcione perfectamente" y si no era a eso que te referias pues esplicalo... para asi poder ayudarte mejor... Y si quieres saber como minimizar/maximizar el formulario en tiempo de ejecucion aunque no tenga barra dimelo...
Bye...
(esto lo debes hacer en tiempo de diseño)...
¿Y a que te refieres con "que funcione perfectamente"? Si te refieres a que el formulario se pueda mover (y por lo regular se mueve dando click en la barra de titulo y moviendo en mouse a la nueva posicion) pues entonces agrega el siguente codigo en la seccion (General) (Declaraciones) del form que no tiene Barra...
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Con este codigo ya puedes mover el form, aunque no tenga barra de titulo, solo da click en alguna parte del form, ten presionado el boton y muevelo a la nueva posicion que quieras....
Bien... Espero haberle atinado a eso de "que funcione perfectamente" y si no era a eso que te referias pues esplicalo... para asi poder ayudarte mejor... Y si quieres saber como minimizar/maximizar el formulario en tiempo de ejecucion aunque no tenga barra dimelo...
Bye...
Observador
06 de Mayo del 2003
Bueno... ya me di cuanta de que ya te contestaron en el foro de lawebdelprogramdor... pero de todas maneras ahi esta el respuesta...