Autor Tema: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No (Leído 1538 veces)

Bopo · « **en:** Martes 27 de Enero de 2004, 18:51 »

Esop.

, que si se apreta un boton el form se pueda minimizar y si se apreta otro no se pueda minimizaar

... soy un ignorante

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.

Bopo

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

Brroz

Más fácil:

Código: Text

 
Private indAllowMinimize as boolean
Private intWindowState as integer
 
Private Sub Form_Load
    Comman1.Caption = &#34;Permir minimizar&#34;
End Sub
 
Private Sub Command1_Click
   IndAllowMinimize = Not indAllowMinimize
   If indAllowMinimize Then
        Command1.Caption = &#34;No permitir minimizar&#34;
   Else
        Command1.Caption = &#34;Permitir minimizar&#34;
        intWindowState = 0
   End If
End Sub
 
Private Sub Form_Resize()
   If Me.WindowState = 1 And Not indAllowResize Then
      Me.WindowState = intWindowState
   Else
      intWindowState = Me.WindowState
   End If
End Sub
 
 
 

Suerte.

ebolo

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.

Brroz

Hola ebolo.

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

Chao.

kkklira

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

kkklira

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

SoloCodigo

Autor Tema: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No (Leído 1538 veces)

Bopo

Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

ebolo

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

Bopo

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

Brroz

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

ebolo

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

Brroz

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

kkklira

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No

kkklira

Re: Podedr Mnimozar Cuando Quiera Y Cuando Quiera No