SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bopo en Martes 27 de Enero de 2004, 18:51

Título: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: Bopo en Martes 27 de Enero de 2004, 18:51
Esop. :huh: , que si se apreta un boton el form se pueda minimizar y si se apreta otro no se pueda minimizaar :P ... soy un ignorante :ph34r:
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: ebolo en Martes 27 de Enero de 2004, 20:11
Lo unico que se me ha ocurrido es lo siguiente:

--------------------------------------
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then Form1.WindowState = 0
End Sub
---------------------------------------
Pones 2 botones command y un timer.
Por lo que he comprobado usar las propiedades del form "Maxbutton" y "Minbutton" no se puede dentro de código porque da error.
Saludos.
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: Bopo en Miércoles 28 de Enero de 2004, 00:29
Cita de: "ebolo"
Lo unico que se me ha ocurrido es lo siguiente:

--------------------------------------
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then Form1.WindowState = 0
End Sub
---------------------------------------
Pones 2 botones command y un timer.
Por lo que he comprobado usar las propiedades del form "Maxbutton" y "Minbutton" no se puede dentro de código porque da error.
Saludos.
Excelente solucion :D
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: Brroz en Miércoles 28 de Enero de 2004, 15:11
Más fácil:

Código: Text
  1.  
  2. Private indAllowMinimize as boolean
  3. Private intWindowState as integer
  4.  
  5. Private Sub Form_Load
  6.     Comman1.Caption = "Permir minimizar"
  7. End Sub
  8.  
  9. Private Sub Command1_Click
  10.    IndAllowMinimize = Not indAllowMinimize
  11.    If indAllowMinimize Then
  12.         Command1.Caption = "No permitir minimizar"
  13.    Else
  14.         Command1.Caption = "Permitir minimizar"
  15.         intWindowState = 0
  16.    End If
  17. End Sub
  18.  
  19. Private Sub Form_Resize()
  20.    If Me.WindowState = 1 And Not indAllowResize Then
  21.       Me.WindowState = intWindowState
  22.    Else
  23.       intWindowState = Me.WindowState
  24.    End If
  25. End Sub
  26.  
  27.  
  28.  

Suerte.
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: ebolo en Jueves 29 de Enero de 2004, 08:30
Hola a todos.
Todos los días se aprende algo.
Brroz:
---------------------------------
Private Sub Form_Resize()
  If Me.WindowState = 1 And Not indAllowResize Then  
........
---------------------------------
¿No debería ser:?
  If Me.WindowState = 1 And Not indAllowMinimize Then  
.........
----------------------------------
Saludos.
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: Brroz en Jueves 29 de Enero de 2004, 08:59
Hola ebolo.

Efectivamente, tienes toda la razón... la variable está declarada como indAllowMinimize.

Chao.
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: kkklira en Viernes 30 de Enero de 2004, 06:53
Hola a Todos, observe los códigos de cada uno y si se trata de hacerlo mas fácil que tal así:
   
Private Sub NoMinimizar(ByVal SiMinimizar As Boolean)
If Me.WindowState = 1 And SiMinimizar Then Me.WindowState = 0
End Sub

Private Sub Form_Load()
Check1.Caption = "Minimizar"
End Sub

Private Sub Form_Resize()
NoMinimizar Check1.Value
End Sub :hola:
Título: Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No
Publicado por: kkklira en Viernes 30 de Enero de 2004, 06:56
:hola: Incluso se puede quitar una condición así:

Private Sub NoMinimizar(ByVal Minimizar As Boolean)
If Not Minimizar Then Me.WindowState = 0
End Sub

Private Sub Form_Load()
Check1.Caption = "Minimizar"
End Sub

Private Sub Form_Resize()
NoMinimizar Check1.Value
End Sub :lightsabre: