Una forma muy sencilla sería esta:
Si el objeto que muestra el vídeo tiene envento DblClick puedes simplemente hacer los siguiente:
Donde Form1 es el nombre del formulario. Recomiendo usar Me en su lugar. Los tres estados de ventana son:
vbNormal = 0
vbMinimized = 1
vbMaximized = 2
Por ejemplo:
Se usa DblClick. Más que nada para evitar que por accidente al hacer clic con el ratón se te cambie el estado de ventana.
Puedes usar el evento MouseUp si no existe el evento DblClick.
Se me olvidaba. Como dices que está en FullScreen y que no aparecerá el botón minimizar o maximizar. En cuyo caso ocurrirá que la ventana se pondrá en estado normal y no se verá la barra de ventana. Así que vamos por pasos.
Como ejemplo básico sería cambiar el alto, el ancho y establecer el BorderStyle a vbSizable. Sin embargo no estará visible los botones maximized y minimized. Además el botón cerrar no funcionará.
Lo simple sería que desde propiedades de proyecto cambias los siguientes propiedades estando en modo edición (no Runtime).
BorderStyle ---> 2- vbSizable
MaxButton ---> True
MinButton ---> True
y listo. Si quieres mantener el formato fullscreen entonces:
BorderStyle ---> 0- vbSizable
MaxButton ---> True
MinButton ---> True
y luego desde código y en runtime:
Si el objeto que muestra el vídeo tiene envento DblClick puedes simplemente hacer los siguiente:
Código (vb) [Seleccionar]
Private Sub Form_Load()
Me.WindowState = 2
lblMedia.BackColor = vbBlack
lblMedia.ForeColor = vbWhite
lblMedia.Caption = "Haz doble click sobre mí"
End Sub
Private Sub lblMedia_DblClick()
Form1.WindowState = 0
End Sub
Donde Form1 es el nombre del formulario. Recomiendo usar Me en su lugar. Los tres estados de ventana son:
vbNormal = 0
vbMinimized = 1
vbMaximized = 2
Por ejemplo:
Código (vb) [Seleccionar]
Private Sub lblMedia_DblClick()
Me.WindowState = vbNormal
End Sub
Se usa DblClick. Más que nada para evitar que por accidente al hacer clic con el ratón se te cambie el estado de ventana.
Puedes usar el evento MouseUp si no existe el evento DblClick.
Código (vb) [Seleccionar]
Dim dblClick As Integer
Private Sub Form_Load()
Me.WindowState = 2
lblMedia.BackColor = vbBlack
lblMedia.ForeColor = vbWhite
lblMedia.Caption = "Haz doble click sobre mí"
End Sub
Private Sub lblMedia_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
dblClick = dblClick + 1
Me.Caption = dblClick
If dblClick = 2 Then
dblClick = 0
Me.WindowState = 0
End If
End If
End Sub
Se me olvidaba. Como dices que está en FullScreen y que no aparecerá el botón minimizar o maximizar. En cuyo caso ocurrirá que la ventana se pondrá en estado normal y no se verá la barra de ventana. Así que vamos por pasos.
Como ejemplo básico sería cambiar el alto, el ancho y establecer el BorderStyle a vbSizable. Sin embargo no estará visible los botones maximized y minimized. Además el botón cerrar no funcionará.
Código (vb) [Seleccionar]
Private Sub lblMedia_DblClick()
Me.WindowState = vbNormal
Me.Width = 9720
Me.Height = 4000
Me.BorderStyle = vbSizable
Me.Caption = "Video X"
End Sub
Lo simple sería que desde propiedades de proyecto cambias los siguientes propiedades estando en modo edición (no Runtime).
BorderStyle ---> 2- vbSizable
MaxButton ---> True
MinButton ---> True
y listo. Si quieres mantener el formato fullscreen entonces:
BorderStyle ---> 0- vbSizable
MaxButton ---> True
MinButton ---> True
y luego desde código y en runtime:
Código (vb) [Seleccionar]
Me.BorderStyle = vbSizable
Me.Caption = "Video X"