Como quitar los botones de un MDIForm (Parent)

  • 0 Respuestas
  • 1714 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5636
  • Actividad:
    53.33%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Como quitar los botones de un MDIForm (Parent)

  • en: Julio 26, 2010, 01:49:52 pm
Código: Visual Basic
  1. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  3. Private Const WS_MINIMIZEBOX = &H20000
  4. Private Const WS_MAXIMIZEBOX = &H10000
  5. Private Const GWL_STYLE = (-16)
  6. Private Const MF_BYPOSITION = &H400
  7. Private Const MF_REMOVE = &H1000
  8. Private Declare Function DrawMenuBar Lib "user32" _
  9.        (ByVal hwnd As Long) As Long
  10. Private Declare Function GetMenuItemCount Lib "user32" _
  11.        (ByVal hMenu As Long) As Long
  12. Private Declare Function GetSystemMenu Lib "user32" _
  13.          (ByVal hwnd As Long, _
  14.          ByVal bRevert As Long) As Long
  15. Private Declare Function RemoveMenu Lib "user32" _
  16.          (ByVal hMenu As Long, _
  17.          ByVal nPosition As Long, _
  18.          ByVal wFlags As Long) As Long
  19. Private Const SC_MINIMIZE As Long = &HF020&
  20. Private Const SC_MAXIMIZE As Long = &HF030&
  21. Private Const MF_BYCOMMAND = &H0&
  22. Private Const SC_CLOSE = &HF060&
  23.  
  24. Private Sub MDIForm_Load()
  25. Dim L As Long
  26. Dim hMenu As Long
  27. Dim menuItemCount As Long
  28. L = GetWindowLong(Me.hwnd, GWL_STYLE)
  29. L = L And Not (WS_MINIMIZEBOX)
  30. L = L And Not (WS_MAXIMIZEBOX)
  31. L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
  32. hMenu = GetSystemMenu(Me.hwnd, 0)
  33. If hMenu Then
  34.       Call RemoveMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
  35.       Call RemoveMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
  36.      menuItemCount = GetMenuItemCount(hMenu)
  37.       Call RemoveMenu(hMenu, menuItemCount - 1, _
  38.                        MF_REMOVE Or MF_BYPOSITION)
  39.      Call RemoveMenu(hMenu, menuItemCount - 2, _
  40.                        MF_REMOVE Or MF_BYPOSITION)
  41.      Call DrawMenuBar(Me.hwnd)
  42. End If
  43. End Sub
« Última modificación: Mayo 12, 2014, 03:23:00 pm por Expermicid »


 

Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2328
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Cómo ajustar la cadena introducida a formato de hora "00:00:00"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2431
Último mensaje Julio 26, 2010, 12:36:23 pm
por ANTRAX
Cómo ajustar la cadena introducida a formato numérico: "#,##"

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2064
Último mensaje Julio 26, 2010, 12:38:04 pm
por ANTRAX
Manual de como bloquear CTRL+ALT+SUP, ALT+TAB, Y OTROS con Visual Basic en WinXP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2777
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Cómo colocar una imagen de fondo ajustada a la ventana en un MDI

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2286
Último mensaje Julio 26, 2010, 04:17:32 pm
por ANTRAX