Programación General > Visual Basic 6.0 e inferiores

 Posición de Formularios

(1/1)

g_sick29:
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

cpmario:
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 ---    Dim TWidth As Variant, THeight As Variant    Dim strScreenRes As String        ' Obtener resolución de pantalla    TWidth = Screen.Width  Screen.TwipsPerPixelX    THeight = Screen.Height  Screen.TwipsPerPixelY    strScreenRes = TWidth & " x " & THeight        If strScreenRes = "640 x 480" Then        'codigo para posicionar ventana    Else        'colocar en el centro de la pantalla        frmMainMDI.Move (Screen.Width - frmMainMDI.Width)  2, (Screen.Height - frmMainMDI.Height)  2    End If  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:

g_sick29:
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

cpmario:
Para mover a la derecha y en el centro

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


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

Navegación

[0] Índice de Mensajes