none
El formulario se pone por encima de la barra statusbar RRS feed

  • Pregunta

  • Hola:

    Tengo un problema con un programa, que en windows xp se ven correctamente los formularios, pero cuando lo llevo a una instalación en Windows 10, los formularios se montan encima de la barra del statusbar de la parte de abajo de la pantalla y no se como solucionar ese tema.

    Muchas gracias a todos.

    Gemma

    viernes, 1 de septiembre de 2017 18:37

Respuestas

  • Hola niña, que raro, a menos que la propiedad de ese formulario TopMost esté True, tambien se podría manipular el Heigth para que nunca tape statusbar ej: en el Load del formulario

     

    Dim NuSize As Size

    NuSize = System.Windows.Forms.SystemInformation.PrimaryMonitorSize Me.Height = NuSize.Height - 200 ' ir verificando la resta hata encontrar el putno justo

    Edito; Perdona amiga no vi que era para VB6, el caso es que no consigo que responda en el Load pero si en un button .

    Private Sub Command1_Click()
    Me.Height = Screen.Height - 600
    Me.Width = Screen.Width
    
    End Sub
    Sigo viendo por qué no me funciona en Load. La porpiedad TopMost no existe en vb6 pero si se consigue creando una función, que se me ocurre que es la única forma que un form tape statusbar

    Abrazo

    • Editado Marcelo PF sábado, 2 de septiembre de 2017 16:27
    • Marcado como respuesta gemma_campillo domingo, 3 de septiembre de 2017 6:08
    viernes, 1 de septiembre de 2017 22:28

Todas las respuestas

  • Hola niña, que raro, a menos que la propiedad de ese formulario TopMost esté True, tambien se podría manipular el Heigth para que nunca tape statusbar ej: en el Load del formulario

     

    Dim NuSize As Size

    NuSize = System.Windows.Forms.SystemInformation.PrimaryMonitorSize Me.Height = NuSize.Height - 200 ' ir verificando la resta hata encontrar el putno justo

    Edito; Perdona amiga no vi que era para VB6, el caso es que no consigo que responda en el Load pero si en un button .

    Private Sub Command1_Click()
    Me.Height = Screen.Height - 600
    Me.Width = Screen.Width
    
    End Sub
    Sigo viendo por qué no me funciona en Load. La porpiedad TopMost no existe en vb6 pero si se consigue creando una función, que se me ocurre que es la única forma que un form tape statusbar

    Abrazo

    • Editado Marcelo PF sábado, 2 de septiembre de 2017 16:27
    • Marcado como respuesta gemma_campillo domingo, 3 de septiembre de 2017 6:08
    viernes, 1 de septiembre de 2017 22:28
  • Hola Marcelo:

    El Window XP lo tengo en una máquina virtual para evitar problemas con Windows 10. Lo he vuelto a repasar y a compilar y ahora va bien. Por lo tanto no se que leches le pasaba.

    Pero funciona. Solo tengo un problema en la lectura del procesador que no me lo lee. No se si es porque es una máquina virtual y no lo lee, pero la cuestión es que no funciona.

    Bueno te marco la respuesta y acabo con este tema.

    Un cordial saludo.

    Gemma

    domingo, 3 de septiembre de 2017 6:08