Visual Basic - controlBox en una página web

Life is soft - evento anual de software empresarial
 
Vista:

controlBox en una página web

Publicado por sandra (2 intervenciones) el 09/09/2005 18:31:33
Hola
Estoy haciendo un sistema que combina javascript, html y visual basic 5, y quiero que al abrir una ventana no aparezca o se inhiba el botón de cerrar X.
puedo utilizar el controlBox en mi código y como lo implemento?
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:controlBox en una página web

Publicado por SuNcO (599 intervenciones) el 09/09/2005 22:53:21
Para quitar el boton de Cerrar (y el menu)

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&

Public Sub QuitarX(Frm As Form)
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub

Private Sub Form_Load()
QuitarX Me
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar