|
| |||||||
| Registrarse | Preguntas Frecuentes | Lista de Foreros | Calendario | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
 |
| | LinkBack | Herramientas | Desplegado |
|
#1
03-04-2008, 16:28:02
| |||
| |||
 Abrir ventanas pero en cascada. Al abrir un formulario emergente a partir de otro, necesito hacer que el nuevo formulario, el cual es una copia del que se encuentra activo en pantalla, se habra de tal forma que no quede justo sobre el anterior , mas bien quede en cascada al anterior, hojala me logren entender. Gracias. Adjunto parte del codigo que utilizo para abrir el formulario existente. Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .Show 1 End With nom = frmnewform.Name Set frmnewform = Nothing End Sub |
| Today
| ||||
| ||||
 Sponsored Links |
|
#2
03-04-2008, 16:51:53
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola Si trabajas con un Formulario MDI prueba a poner esta linea: MDIForm.Arrange 0 Algo asi: Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .Show 1 End With MDIForm.Arrange 0 nom = frmnewform.Name Set frmnewform = Nothing End Sub Saludos y Suerte!!! -- ----------------------------- Sin mas, saluda atte. a Uds. Armin Saez PD: Los tildes se han suprimido intencionalmente. "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... Al abrir un formulario emergente a partir de otro, necesito hacer que el nuevo formulario, el cual es una copia del que se encuentra activo en pantalla, se habra de tal forma que no quede justo sobre el anterior , mas bien quede en cascada al anterior, hojala me logren entender. Gracias. Adjunto parte del codigo que utilizo para abrir el formulario existente. Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .Show 1 End With nom = frmnewform.Name Set frmnewform = Nothing End Sub |
|
#3
03-04-2008, 16:51:53
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola Si trabajas con un Formulario MDI prueba a poner esta linea: MDIForm.Arrange 0 Algo asi: Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .Show 1 End With MDIForm.Arrange 0 nom = frmnewform.Name Set frmnewform = Nothing End Sub Saludos y Suerte!!! -- ----------------------------- Sin mas, saluda atte. a Uds. Armin Saez PD: Los tildes se han suprimido intencionalmente. "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... Al abrir un formulario emergente a partir de otro, necesito hacer que el nuevo formulario, el cual es una copia del que se encuentra activo en pantalla, se habra de tal forma que no quede justo sobre el anterior , mas bien quede en cascada al anterior, hojala me logren entender. Gracias. Adjunto parte del codigo que utilizo para abrir el formulario existente. Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .Show 1 End With nom = frmnewform.Name Set frmnewform = Nothing End Sub |
|
#4
03-04-2008, 17:18:02
| |||
| |||
| Re: Abrir ventanas pero en cascada. Se te agradece, pero no es un formulario MDI ?? "Armin Saez" wrote: > Hola > Si trabajas con un Formulario MDI prueba a poner esta linea: > > MDIForm.Arrange 0 > > > Algo asi: > > Private Sub G_Det_DblClick() > 'VentanaPrincipal = "NO" > > Dim frmnewform As Frm_Estadisticas > Set frmnewform = New Frm_Estadisticas > With frmnewform > .Cbo_Cliente = "hola" > .Txt_VentanaPrincipal = "NO" > .Show 1 > End With > MDIForm.Arrange 0 > nom = frmnewform.Name > Set frmnewform = Nothing > End Sub > > > Saludos y Suerte!!! > > -- > ----------------------------- > Sin mas, saluda atte. a Uds. > Armin Saez > > PD: Los tildes se han suprimido intencionalmente. > "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... > Al abrir un formulario emergente a partir de otro, necesito hacer que el > nuevo formulario, el cual es una copia del que se encuentra activo en > pantalla, se habra de tal forma que no quede justo sobre el anterior , mas > bien quede en cascada al anterior, hojala me logren entender. > > Gracias. > > Adjunto parte del codigo que utilizo para abrir el formulario existente. > > Private Sub G_Det_DblClick() > 'VentanaPrincipal = "NO" > > Dim frmnewform As Frm_Estadisticas > Set frmnewform = New Frm_Estadisticas > With frmnewform > .Cbo_Cliente = "hola" > .Txt_VentanaPrincipal = "NO" > .Show 1 > End With > nom = frmnewform.Name > Set frmnewform = Nothing > End Sub > |
|
#5
03-04-2008, 17:18:02
| |||
| |||
| Re: Abrir ventanas pero en cascada. Se te agradece, pero no es un formulario MDI ?? "Armin Saez" wrote: > Hola > Si trabajas con un Formulario MDI prueba a poner esta linea: > > MDIForm.Arrange 0 > > > Algo asi: > > Private Sub G_Det_DblClick() > 'VentanaPrincipal = "NO" > > Dim frmnewform As Frm_Estadisticas > Set frmnewform = New Frm_Estadisticas > With frmnewform > .Cbo_Cliente = "hola" > .Txt_VentanaPrincipal = "NO" > .Show 1 > End With > MDIForm.Arrange 0 > nom = frmnewform.Name > Set frmnewform = Nothing > End Sub > > > Saludos y Suerte!!! > > -- > ----------------------------- > Sin mas, saluda atte. a Uds. > Armin Saez > > PD: Los tildes se han suprimido intencionalmente. > "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... > Al abrir un formulario emergente a partir de otro, necesito hacer que el > nuevo formulario, el cual es una copia del que se encuentra activo en > pantalla, se habra de tal forma que no quede justo sobre el anterior , mas > bien quede en cascada al anterior, hojala me logren entender. > > Gracias. > > Adjunto parte del codigo que utilizo para abrir el formulario existente. > > Private Sub G_Det_DblClick() > 'VentanaPrincipal = "NO" > > Dim frmnewform As Frm_Estadisticas > Set frmnewform = New Frm_Estadisticas > With frmnewform > .Cbo_Cliente = "hola" > .Txt_VentanaPrincipal = "NO" > .Show 1 > End With > nom = frmnewform.Name > Set frmnewform = Nothing > End Sub > |
|
#6
03-04-2008, 17:35:54
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola Rodrigo lo que tienes que hacer es jugar con las propiedades del Left y Top Por ej, Form2.Left = Form1.Left + 500 Form2.Top = Form1.Top + 500 Form2.Show Salu2 Eduardo Valencia Z (Lima - Perú) "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:F825E6DC-C2FD-4ECA-BA8C-1CF6BD8C17BF***microsoft.com... > Se te agradece, pero no es un formulario MDI > > ?? > > "Armin Saez" wrote: > >> Hola >> Si trabajas con un Formulario MDI prueba a poner esta linea: >> >> MDIForm.Arrange 0 >> >> >> Algo asi: >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> MDIForm.Arrange 0 >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> >> >> Saludos y Suerte!!! >> >> -- >> ----------------------------- >> Sin mas, saluda atte. a Uds. >> Armin Saez >> >> PD: Los tildes se han suprimido intencionalmente. >> "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje >> news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... >> Al abrir un formulario emergente a partir de otro, necesito hacer que >> el >> nuevo formulario, el cual es una copia del que se encuentra activo en >> pantalla, se habra de tal forma que no quede justo sobre el anterior , >> mas >> bien quede en cascada al anterior, hojala me logren entender. >> >> Gracias. >> >> Adjunto parte del codigo que utilizo para abrir el formulario >> existente. >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> |
|
#7
03-04-2008, 17:35:54
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola Rodrigo lo que tienes que hacer es jugar con las propiedades del Left y Top Por ej, Form2.Left = Form1.Left + 500 Form2.Top = Form1.Top + 500 Form2.Show Salu2 Eduardo Valencia Z (Lima - Perú) "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:F825E6DC-C2FD-4ECA-BA8C-1CF6BD8C17BF***microsoft.com... > Se te agradece, pero no es un formulario MDI > > ?? > > "Armin Saez" wrote: > >> Hola >> Si trabajas con un Formulario MDI prueba a poner esta linea: >> >> MDIForm.Arrange 0 >> >> >> Algo asi: >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> MDIForm.Arrange 0 >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> >> >> Saludos y Suerte!!! >> >> -- >> ----------------------------- >> Sin mas, saluda atte. a Uds. >> Armin Saez >> >> PD: Los tildes se han suprimido intencionalmente. >> "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje >> news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... >> Al abrir un formulario emergente a partir de otro, necesito hacer que >> el >> nuevo formulario, el cual es una copia del que se encuentra activo en >> pantalla, se habra de tal forma que no quede justo sobre el anterior , >> mas >> bien quede en cascada al anterior, hojala me logren entender. >> >> Gracias. >> >> Adjunto parte del codigo que utilizo para abrir el formulario >> existente. >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> |
|
#8
03-04-2008, 18:58:51
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola En ese caso prueba como dice 423 (Eduardo) Lo otro es que manejes las propiedades de los forms de posicion: Form1.StartUpPosition = 3 Algo asi: Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .StartUpPosition = 3 .Show 1 End With nom = frmnewform.Name Set frmnewform = Nothing End Sub ----------------------------- Sin mas, saluda atte. a Uds. Armin Saez PD: Los tildes se han suprimido intencionalmente. <423> escribió en el mensaje news:uFotOCblIHA.1188***TK2MSFTNGP04.phx.gbl... Hola Rodrigo lo que tienes que hacer es jugar con las propiedades del Left y Top Por ej, Form2.Left = Form1.Left + 500 Form2.Top = Form1.Top + 500 Form2.Show Salu2 Eduardo Valencia Z (Lima - Perú) "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:F825E6DC-C2FD-4ECA-BA8C-1CF6BD8C17BF***microsoft.com... > Se te agradece, pero no es un formulario MDI > > ?? > > "Armin Saez" wrote: > >> Hola >> Si trabajas con un Formulario MDI prueba a poner esta linea: >> >> MDIForm.Arrange 0 >> >> >> Algo asi: >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> MDIForm.Arrange 0 >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> >> >> Saludos y Suerte!!! >> >> -- >> ----------------------------- >> Sin mas, saluda atte. a Uds. >> Armin Saez >> >> PD: Los tildes se han suprimido intencionalmente. >> "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje >> news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... >> Al abrir un formulario emergente a partir de otro, necesito hacer que >> el >> nuevo formulario, el cual es una copia del que se encuentra activo en >> pantalla, se habra de tal forma que no quede justo sobre el anterior , >> mas >> bien quede en cascada al anterior, hojala me logren entender. >> >> Gracias. >> >> Adjunto parte del codigo que utilizo para abrir el formulario >> existente. >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> |
|
#9
03-04-2008, 18:58:51
| |||
| |||
| Re: Abrir ventanas pero en cascada. Hola En ese caso prueba como dice 423 (Eduardo) Lo otro es que manejes las propiedades de los forms de posicion: Form1.StartUpPosition = 3 Algo asi: Private Sub G_Det_DblClick() 'VentanaPrincipal = "NO" Dim frmnewform As Frm_Estadisticas Set frmnewform = New Frm_Estadisticas With frmnewform .Cbo_Cliente = "hola" .Txt_VentanaPrincipal = "NO" .StartUpPosition = 3 .Show 1 End With nom = frmnewform.Name Set frmnewform = Nothing End Sub ----------------------------- Sin mas, saluda atte. a Uds. Armin Saez PD: Los tildes se han suprimido intencionalmente. <423> escribió en el mensaje news:uFotOCblIHA.1188***TK2MSFTNGP04.phx.gbl... Hola Rodrigo lo que tienes que hacer es jugar con las propiedades del Left y Top Por ej, Form2.Left = Form1.Left + 500 Form2.Top = Form1.Top + 500 Form2.Show Salu2 Eduardo Valencia Z (Lima - Perú) "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje news:F825E6DC-C2FD-4ECA-BA8C-1CF6BD8C17BF***microsoft.com... > Se te agradece, pero no es un formulario MDI > > ?? > > "Armin Saez" wrote: > >> Hola >> Si trabajas con un Formulario MDI prueba a poner esta linea: >> >> MDIForm.Arrange 0 >> >> >> Algo asi: >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> MDIForm.Arrange 0 >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> >> >> Saludos y Suerte!!! >> >> -- >> ----------------------------- >> Sin mas, saluda atte. a Uds. >> Armin Saez >> >> PD: Los tildes se han suprimido intencionalmente. >> "Rodrigo" <Rodrigo***discussions.microsoft.com> escribió en el mensaje >> news:4E14BD46-2CB0-4A88-AB7D-798170116337***microsoft.com... >> Al abrir un formulario emergente a partir de otro, necesito hacer que >> el >> nuevo formulario, el cual es una copia del que se encuentra activo en >> pantalla, se habra de tal forma que no quede justo sobre el anterior , >> mas >> bien quede en cascada al anterior, hojala me logren entender. >> >> Gracias. >> >> Adjunto parte del codigo que utilizo para abrir el formulario >> existente. >> >> Private Sub G_Det_DblClick() >> 'VentanaPrincipal = "NO" >> >> Dim frmnewform As Frm_Estadisticas >> Set frmnewform = New Frm_Estadisticas >> With frmnewform >> .Cbo_Cliente = "hola" >> .Txt_VentanaPrincipal = "NO" >> .Show 1 >> End With >> nom = frmnewform.Name >> Set frmnewform = Nothing >> End Sub >> |
|
#10
03-04-2008, 21:08:34
| |||
| |||
| Re: Abrir ventanas pero en cascada. Rodrigo escribía: >Al abrir un formulario emergente a partir de otro, necesito hacer que el >nuevo formulario, el cual es una copia del que se encuentra activo en >pantalla, se habra de tal forma que no quede justo sobre el anterior , mas >bien quede en cascada al anterior, hojala me logren entender. > Lo que vos pretendés es la conducta típica de windows(tm): las siblings abren en cascada cuando su posición (sus coordenadas x e y) es CW_USEDEFAULT. Cómo se consigue esto en VB, ni idea. Dudo mucho que te valga asignar ese valor (&H80000000). De todos modos puedes probarlo. Ok, siempre tienes CascadeWindow(), pero eso es para reacomodar las ventanas. No es lo mismo... -- Todo bien. |
| |
| |
| Herramientas | |
| Desplegado | |
| |
Temas Similares | ||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Abrir ventanas a un tamaño en específico | Fabián A. Juárez Martínez | Newsgroup microsoft.public.es.windowsvista | 3 | 01-06-2008 18:22:03 |
| El IE7 no para de abrir ventanas | MikiAir78 | Newsgroup microsoft.public.es.windowsvista | 4 | 22-05-2008 02:24:03 |
| tengo mis iconos gestuales pero no aparecen en las ventanas | ligkyo | Newsgroup microsoft.public.es.msn.messenger | 3 | 11-10-2006 17:28:08 |
| no puedo abrir dos ventanas del intertet explorer | Gonzalo Vazquez | Newsgroup microsoft.public.es.espanol.soporte.entre.usuarios.internet | 8 | 29-09-2005 04:24:47 |
| Ventanas al abrir libro de excel | Norma | Newsgroup microsoft.public.es.office97 | 6 | 11-10-2003 06:18:36 |
Mode Lineal
