buenas,

estoy viendo como puedo hacer un archivo de texto con comentarios sobre un video determinado.
voy a usar como llave o titulo la posición actual del video en segundos.
pero la cuestión es como obtener el tiempo actual que se visualiza en el mediaview

ejemplo : 00:02:45/00:10:34

como puedo obtener los: 00:02:45  ???

alguien sabe como obtener estos datos?

en sdl2 Music.pos te da la posición en segundos o milisegundos, no recuerdo.
Tal vez mediaview tenga algo similar.
Saludos.

... la posición en segundos o milisegundos...
Tal vez mediaview tenga algo similar.

...tincho, ma allora sei Onnipotente pure tu !
Mi vuoi sfidare ?  

Bueno, ...exactamente, todo está come has dicho tincho.
El Objeto MediaView es un po'... rígido; de todas formas yo te doy este exemplum simplex:

Código:

Public Sub Form_Open()

  Me.Show

  With MediaView1
    .URL = Media.URL("/ruta/del/archivo/Audio o Midi o Video")
   
' Espera a que se inicie la ejecución del archivo cargado:
    Repeat
      Wait 0.01
    Until MediaView1.Position > 0

'  Muestra en la parte superior del formulario el tiempo transcurrido desde el inicio de la ejecución del archivo (Audio o Midi o Video):
    Repeat
      Me.Title = Str(Time(0, 0, 0, .Position * 1000))
      Wait 0.01
    Until .Position >= .Duration
  End With

End

...está claro que en un proyecto real y más complejo es mejor usar un Objeto Timer en lugar de un bucle.
Hace falta tambien penetrar en la constitución interna del Objeto MediaView.

Exemplum simplex:

Código:

Private tempus As Timer


Public Sub Form_Open()
 
 Dim ob As Object
 Dim obs As Observer
 
 ob = MediaView1.Children[0]
 ob = ob.Children[0]
 ob = ob.Children[3]
 
' Usamos la Clase "Observer" para no interferir (sustituyéndo)
' con los eventos originales de los botones de inicio y stop de "MediaView":
 obs = New Observer(ob.Children[0], False) As "Inicio"
 obs = New Observer(ob.Children[1], False) As "Stop"
 
 MediaView1.URL = Media.URL("/ruta/del/archivo/audio o midi o video")
 
End

Public Sub Inicio_Click()

  With tempus = New Timer As "Tempus"
    .Delay = 100
    .Start
  End With
 
End

Public Sub Tempus_Timer()
 
  Label1.Text = Str(Time(0, 0, 0, MediaView1.Position * 1000))
 
End

Public Sub Stop_Click()

  Label1.Text = Null
  tempus.Stop
 
End

... la posición en segundos o milisegundos...
Tal vez mediaview tenga algo similar.

...tincho, ma allora sei Onnipotente pure tu !
Mi vuoi sfidare ?  

Non avrò mai il tuo livello, maestro.
Saludos.

Non avrò mai il tuo livello, maestro.

Caro tincho, se io avessi una risposta a tutto, non lancerei sfide, ma insegnerei Teologia a Parigi.

gracias vuott, es lo que andaba buscando

Write "\r\e[31m" & Str(Date(0, 0, 0, 0, 0, 0, .Position * 1000))

esa es la linea fundamental

Write "\r\e[31m" & Str(Date(0, 0, 0, 0, 0, 0, .Position * 1000))

esa es la linea fundamental

Bueno, recuerda que esta instrucción  \e[31m  atribuye el color rojo al texto impreso en la consola.

Pero cambié la línea de comando a esto:
[code]