Visual Basic.NET - mantener maximixado por la barra de titulo

 
Vista:
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

mantener maximixado por la barra de titulo

Publicado por melqui (242 intervenciones) el 01/12/2021 20:09:22
hola chicos,
espero que se encuentre bien
necesito una ayuda,
quiero que este formulario despues de ser arrastrado para cualquier parte siempre se mantenga maximizado al soltar la barra de titulo, no estoy conseguiendo hacerlo, solo consigocuando el formulario mouse entra en foco en el cuerpo del forms y no es lo que necesito
algua idea que pueda ayudar?

Screenshot_6
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

mantener maximixado por la barra de titulo

Publicado por Phil Rob (1554 intervenciones) el 01/12/2021 20:32:43
Hola Melqui,

No sé cual objeto utilizas para hacer la barra de titulo. Si este objeto tiene la propiedad Dock, puedes escribir :

1
ObjetoBarraTitulo.Dock = Top

Si este todo el form que quieres guardar maximizado, el codigo siguiente puede te dar una idea :

1
2
3
Private Sub Form1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
        Me.WindowState = FormWindowState.Maximized
    End Sub

Pero no comprendo cual tipo de Form utilizas. Con un Windows Form, la barra titulo tiene siempre el mismo ancho que su Form ...

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

mantener maximixado por la barra de titulo

Publicado por melqui (242 intervenciones) el 06/12/2021 20:09:56
hola phil,
ese evento me funciona solamente cuando estoy dentro del forms, y no cuando suelto el arrastre,
la barra es normal de la ventana padron
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

mantener maximixado por la barra de titulo

Publicado por Phil Rob (1554 intervenciones) el 06/12/2021 22:08:16
Sí, lo sé.
Estaba solamente una idea.
Quizá tienes que buscar otro evento.
Todavía miraré mañana...
Buenas noches...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

mantener maximixado por la barra de titulo

Publicado por Phil Rob (1554 intervenciones) el 07/12/2021 10:19:12
Hola Melqui,

No estoy seguro de comprender tu pregunta pero si mi código con MouseLeave esta cerca de este que quieres, quizá debes ver los eventos :

1
2
3
4
5
6
7
8
9
10
11
     'Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
    '    Me.WindowState = FormWindowState.Maximized
    'End Sub
 
      Private Sub Form1_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
        Me.WindowState = FormWindowState.Maximized
    End Sub
 
    'Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    '    Me.WindowState = FormWindowState.Maximized     ' no es buen evento porque vien a cada pixel : mejor Enter y Leave
    'End Sub

También es posible de cambiar el BorderStyle, notamente durante la presente del Cursor y cuando el Cursor es yendo, :

1
2
3
4
5
6
7
8
9
10
11
Dim BorderStyle As Windows.Forms.BorderStyle
 
    Private Sub Form1_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter
        BorderStyle = Me.FormBorderStyle
        Me.FormBorderStyle = FormBorderStyle.None
        Me.WindowState = FormWindowState.Maximized
    End Sub
 
    Private Sub Form1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
        Me.FormBorderStyle = BorderStyle
    End Sub

Lo siento, no tengo solucion a tu pregunta ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar