none
Cambiar Posicion a un Formulario RRS feed

  • Pregunta

  • Hola, buenas noches.

    Necesito que un formulario al abrirlo aparezca el la esquina superior derecha del área de trabajo de la pantalla, uso el siguiente código

    Form1.Location = New Point(My.Computer.Screen.WorkingArea.Height - 167, My.Computer.Screen.WorkingArea.Width - 247)
    Form1.Show()

    los números son el ancho y alto del formulario

    No funciona y se queda en el lugar que asigna Windows

    La propiedad Localizable esta en True

    Como lo hago si asi no pasa nada?

    Gracias

    domingo, 22 de mayo de 2016 3:51

Respuestas

  • Hola Michael Cerdas,

    Puedes intentar hacer esto :

            Dim frm1 As New Form1
            frm1.StartPosition = FormStartPosition.Manual
            frm1.Location = New Point(Screen.FromPoint(frm1.Location).WorkingArea.Right - frm1.Width, 0)
            frm1.Show()

    Deberías crear la nueva instancia de tu Form1, y no llamarla directamente.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    domingo, 22 de mayo de 2016 5:38