comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Como quitar los botones de un MDIForm (Parent)

  • 0 Respuestas
  • 1131 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    76.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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 »


 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1379
Ú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: 1467
Ú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: 1171
Ú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: 1809
Último mensaje Julio 26, 2010, 11:11:14 am
por ANTRAX
Como Imprimir en tamaño especial en Impresoras Matriciales en XP

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1670
Último mensaje Julio 26, 2010, 11:14:36 am
por ANTRAX