Elikkäs, onko edes mahdollista näyttää Surface -objektissa videokuvaa (.avi?), kuten esim. kuvien näyttäminen onnistuu seuraavasti:
'Esittelyt Dim kuvaSurface As Surface ' Video surface Public sSurface As Surface ' "Näyttämö" surface kuvaSurface = New Surface("Kuva.bmp", sdesc, dddevice) 'Kuva tiedostosta ssurface.DrawFast(150, 150, kuvaSurface, DrawFastFlags.DoNotWait)
Koitin ihan vaan tylysti pistää tuohon Kuva.bmp tilalle videotiedoston (Video.avi), mutta video ei näy ohjelmassa vaikka se kääntäjästä menikin läpi.
Tälleensä olen saanut videon pyörimään ihan hyvin ohjelmassa, mutta ongelmana on, että tämä piirtää automaattisesti videon erilliseen omaan ikkunaansa, jota en halua. Tarkoituksena olisi saada tämä video piirrettyä samalle formille, missä minulla on muutakin tavaraa.
'Esittelyitä Dim testVideo As Video Dim strVideoFile As String sVideoFile = "Testi.wmv" testVideo = Video.FromFile(sVideoFile, False) ' Ladataan video, mutta ei vielä toisteta sitä testVideo.Fullscreen = True testVideo.Caption = "Testing..." testVideo.Play()
Mitähän VB:tä käytät kun en näe tuollaista "As Video" ominasiuutta en vb6 en vb 2005 =/
Aihe on jo aika vanha, joten et voi enää vastata siihen.