Relación de aspecto con vídeos

[aaronduran2]

Hola. Estoy intentando agregar la funcionalidad de cambiar la relación de aspecto en un reproductor de vídeo, pero no sé exactamente qué tengo que poner.
Utilizo la API mciSendString para ello.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Resize()
   picVideo.Height = Me.ScaleHeight: picVideo.Width = Me.ScaleWidth
   c_Reproductor.EstablecerPosicionVentana 0, 0, picVideo.Width / Screen.TwipsPerPixelX, picVideo.Height / Screen.TwipsPerPixelY
End Sub

Con esto aparecía por defecto con la relación del vídeo, pero, ¿qué medidas debería poner para, por ejemplo, una relación de 16:9?
Al estilo del VLC Media Player.

Saludos y gracias de antemano.

[BlackZeroX]

para eso:

Código (vb) [Seleccionar] Expandir


Error = mciSendString("put " & medio & " window at " & Left & " " & Top & " " & Width & " " & Height, 0, 0, 0)


ok

P.D.: Publique una dll hace tiempo que controla casi todo lo de mscisendstring, esta en el foro.

Dulces Lunas

[aaronduran2]

Código (vb) [Seleccionar] Expandir


Error = mciSendString("put " & medio & " window at " & Left & " " & Top & " " & Width & " " & Height, 0, 0, 0)


Eso es lo que está en la función "EstablecerPosicionVentana", pero lo que necesitaba serían las medidas exactas para ponerlo en 16:9 o 4:3, por ejemplo, ya que me pierdo con las conversiones.

Saludos

[el_c0c0]

la relacion 16:9 o 16:10 o cualquier otra viene dada por una formula muy sencilla:

Width / Height = en fraccion


si por ejemplo tenes 1680x1050, seria, 1680/1050, simplificando por 210: 8/5, ahora, esta relacion es 16:10 ya que 8/5 = 16/10.


el valor exacto lo sacas vos aproximandote a cual seria el conveniente. primero obtener que relacion existe inicialmente y luego anda seteando el valor del form o lo que sea proporcionalemente al tamaño que vos queres y el tamaño que debe ser segun la relacion original del video

saludos.