SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: g_sick29 en Martes 22 de Julio de 2008, 00:12

Título: Posición de Formularios
Publicado por: g_sick29 en Martes 22 de Julio de 2008, 00:12
Buenas noches a tod@s,

Tengo una pequeña duda al respecto de la posición de los formularios, que consiste en:

Tengo un formulario MDI en el cual quiero posicionar un formulario en un puesto concreto, pero siempre teniendo en cuenta el tamaño de la pantalla y que además siempre se encuentre fija allí, el problema es que no tengo ni la más remota idea. He estado jugando con las propiedades de scaleleft y scalewith pero sin éxito.

Muchas gracias por vuestro interés y haber si alguien me puede ayodar puesto que estoy atascado en esto.

Gracias de nuevo y saludos cordiales
Título: Re: Posición de Formularios
Publicado por: cpmario en Martes 22 de Julio de 2008, 07:14
Como no das detalles, te coloco algo de código para empezar.
Para saber la resolución de la pantalla y para mover la forma en la pantalla.
Código: Text
  1.     Dim TWidth As Variant, THeight As Variant
  2.     Dim strScreenRes As String
  3.    
  4.     ' Obtener resolución de pantalla
  5.     TWidth = Screen.Width  Screen.TwipsPerPixelX
  6.     THeight = Screen.Height  Screen.TwipsPerPixelY
  7.     strScreenRes = TWidth & " x " & THeight
  8.    
  9.     If strScreenRes = "640 x 480" Then
  10.         'codigo para posicionar ventana
  11.     Else
  12.         'colocar en el centro de la pantalla
  13.         frmMainMDI.Move (Screen.Width - frmMainMDI.Width)  2, (Screen.Height - frmMainMDI.Height)  2
  14.     End If
  15.  
  16.  
Para fijar la forma en la pantalla debes de guardar en el registro la propiedad top y left de la forma MDI y obtener estas cifras al ejecutar el programa de nuevo.
 :comp:
Título: Re: Posición de Formularios
Publicado por: g_sick29 en Martes 22 de Julio de 2008, 20:30
Primero de todo agradecerte tu ayuda puesto que me ha ido de coña pero hay una cosa que sigo sin poder darle solución, se trata de posición el formulario modal en la zona de la derecha pero no hay manera, he probado la formula que adjunto pero no se posiciona a la derecha que es donde yo quiero que aparezca.

Form1.Move (Screen.Width - Form1.Width)  2, (Screen.Height - Form1.Height)  2

haber si alguen me puede indicar como.

muchas gracias de nuevo por vuestra ayuda,
saludos cordiales
Título: Re: Posición de Formularios
Publicado por: cpmario en Martes 22 de Julio de 2008, 21:49
Para mover a la derecha y en el centro

   
Código: Text
  1. Form1.Move (Screen.Width - Form1.Width), (Screen.Height - Form1.Height)  2 
  2.  
Para mover a la derecha y arriba

Código: Text
  1. Form1.Move (Screen.Width - Form1.Width), 0
  2.  

 :comp: