Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: FrankLizardo en Febrero 24, 2012, 09:00:16 pm
-
Hola a todos nuevamente, aqui tengo un problema consegui bloquear el boton X de las ventanas Modal(Junto con el Efecto osea deja de iluminarse img 2) pero en una Ventana MDIChild no funciona Correctamente ya que el efecto sigue Activado (img 1)
(http://www.franklizardo.com.ar/bloquear.png)
Aqui el Link de mi proyecto para que lo puedan ver
http://www.4shared.com/rar/YokZEIAw/Proyecto_Bloquear_X.html (http://www.4shared.com/rar/YokZEIAw/Proyecto_Bloquear_X.html)
Lo que quiero es que se quite el efecto y al activar se habilite junto con el efecto
a por si las dudas utilizo Windows 7 64 Bits
-
Hola, proba con este a mi me funciona muy bien.
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert 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 Sub MDIForm_Load()
Dim hSysmenu As Long
hSysmenu = GetSystemMenu(Me.hWnd, 0)
RemoveMenu hSysmenu, 6, &H400&
End Sub
'y para evitar que el usuario cierre el form con las teclas Alt-F4:
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = True
End Sub
Private Sub Command1_Click()
Dim hSysmenu As Long
hSysmenu = GetSystemMenu(Me.hWnd, 1)
RemoveMenu hSysmenu, 6, &H400&
' Este no se como solucionar 79137913 me dio la idea de ocultar y mostrar el form por que lo que pasa es no se refresca el control, o sino otra opcion es redimendionar el tamaño del form y ahi ya se pone bien.
Me.Hide
Me.Show
End Sub
-
Si Funciona bueno no es mucho codigo solo tendria que agregar el hide y el show naaa mas, bueno gracias :)