Visual Basic - Evento Resize ¡Help!

Life is soft - evento anual de software empresarial
 
Vista:

Evento Resize ¡Help!

Publicado por WEBon Master (24 intervenciones) el 06/10/2001 07:16:39
Me sucede una cuestion curiosa con el evento resize: lo utilizo para que cuando se minimize un formulario, desaparesca un segundo formulario(hide) y que cuando se maximise, se vuelva a mostrar ese segundo formulario, para evitar que se me cicle he condicionado que cuando ocurra el evento resize oculte el segundo fromulario solo si el estado del formulario principal es 1(minimizado) y en cualquier otro(0, 2 osea normal o maximizado)me muestre el segundo formulario y sì lo muestra, pero cuando se maximiza el formulario desde la barra de tareas muestra el segundo form pero queda detras del primero y lo tapa este ultimo, ya trate de utilizar el evento gotfocus y lostfocus pero sigue igual o peor, ya cheque con puntos de interrupcion y no hay ninguna otra instruccion que me rellame al formulario principal ¿entonces quien lo esta poniendo con el foco?...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Evento Resize ¡Help!

Publicado por Cha Men (92 intervenciones) el 06/10/2001 07:45:01
emplea este método del form2.zorder 0 y luego le das enfoque
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Evento Resize ¡Help!

Publicado por WEBon Master (24 intervenciones) el 06/10/2001 09:45:52
No funciono!, otra cosa que se me paso describir: cuando el evento resize ocurre por el usuario, es decir, cuando se ajusta de una de las orillas del form1, el form2 permanece visible al frente mientras se arrastra el raton, pero una vez que se suelta se vuelve a pasar para atras del form1! la verdad no encuentro ninguna logica de porque haga esto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Evento Resize ¡Help!

Publicado por Cha Men (92 intervenciones) el 06/10/2001 12:09:37
cuando empieza el evento resize ejecuta form1.zorder 0 y luego
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:y luego....?

Publicado por WEBon master (24 intervenciones) el 07/10/2001 06:44:27
a ver este es el codigo(ya con las modificaciones como las entendi): el primer If es para evitar que el usuario cambie el tamaño a una medida demasiado pequeña y ademas reacomodar los controles.

Private Sub Form_Resize() 'del form1
Form1.ZOrder (0)
If Me.Height > 5000 And Me.Width > 5000 Then
Picture1.Height = Me.Height - 300
Picture1.Width = Me.Width
VScroll1.Left = Me.Width - 370
VScroll1.Height = Me.Height - 1180
HScroll1.Left = 30
HScroll1.Top = Me.Height - 660
HScroll1.Width = Me.Width - 400
Command1.Left = Me.Width - 370
Command1.Top = 23
Command2.Top = 280
Command2.Left = Me.Width - 370
Command3.Top = Me.Height - 660
Command3.Left = Me.Width - 370
AJUSTA
Else
If Me.WindowState <> 1 Then
If Me.Height <= 5000 Then
Me.Height = 5001
End If
If Me.Width <= 5000 Then
Me.Width = 5001
End If
AJUSTA
End If
End If
If Me.WindowState = 1 Then ' he aqui la cuestion
Form2.Hide
Else
Form2.Show
Form2.SetFocus
End If
End Sub

sigue haciendo lo mismo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:y luego....?

Publicado por Cha Men (92 intervenciones) el 07/10/2001 14:11:51
el código debería funcionarte así:

Form1.ZOrder 0
If Me.Height > 5000 And Me.Width > 5000 Then
Picture1.Height = Me.Height - 300
Picture1.Width = Me.Width
VScroll1.Left = Me.Width - 370
VScroll1.Height = Me.Height - 1180
HScroll1.Left = 30
HScroll1.Top = Me.Height - 660
HScroll1.Width = Me.Width - 400
Command1.Left = Me.Width - 370
Command1.Top = 23
Command2.Top = 280
Command2.Left = Me.Width - 370
Command3.Top = Me.Height - 660
Command3.Left = Me.Width - 370
AJUSTA
Else
If Me.WindowState <> 1 Then
If Me.Height <= 5000 Then
Me.Height = 5001
End If
If Me.Width <= 5000 Then
Me.Width = 5001
End If
AJUSTA
End If
End If
If Me.WindowState = 1 Then ' he aqui la cuestion
Form2.Hide
Else

'aquí tienes que incluir la instrucción de abajo para q te quede el form2
adelante form1 siempre
Form2.zorder 0

Form2.Show
Form2.SetFocus
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar