PopUp sin borde de form

Iniciado por illuminat3d, 3 Enero 2009, 21:40 PM

0 Miembros y 1 Visitante están viendo este tema.

illuminat3d

Bueno quisiera saber como poner un popup sin que salga el borde del form.
Por ejemplo hagan lo siguiente :
1. Creen un nuevo proyecto exe
2. Quitenle los bordes al form
3. Y si le agregan un PopUp menu se pone SI o SI un borde en la ventana.

Alguna sugerencia o truco ?  :huh:

seba123neo

Hola, podes crearte los menues con api....busca en el api-guide ahi esta...

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

LeandroA

hola prova asi


Option Explicit
Const WS_BORDER = &H800000
Const WS_THICKFRAME = &H40000
Const WS_CAPTION = &HC00000
Const WS_MAXIMIZEBOX As Long = &H10000
Const WS_MINIMIZEBOX As Long = &H20000

Private Const GWL_STYLE = (-16)

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) And Not WS_MAXIMIZEBOX And Not WS_MINIMIZEBOX And Not WS_THICKFRAME And Not WS_CAPTION
End Sub


Saludos

byway

yo para esos casos uso un form extra solo para los menues y los llamo del form principal  ;D ;D ;D

illuminat3d

Gracias por contestar se agradece, Byway yo tambien hacia eso xD pero no se es medio cutre..  :laugh: