Keskustelu: Ohjelmointikysymykset: VB6: Pari kysymystä

En löytänyt haulla.

Kun mulla on kuva pictureboksissa niin miten voin tallentaa sen johonkin, esim C:\kuva.jpg

Eli kun paikaa commandbuttonista, niin C asemalli ilmestyy kuvatiedosto kuva.jpg ja kuva on se mikä on ohjelmassani pictureboksissa.

Toinen juttu

miten saan kappaleen pituuden näkymään, kun teen mp3 soitto-ohjelman? Aion käyttää mediaplayer komponenttia, olisko parempaa vaihtoehtoa?

SavePicture Picture1.Image, App.Path & "kuva.bmp"

Vb:llä ei ole mahdollista tallentaa suoraan muuta kuin .bmp kuvatiedostoja. Jos haluat jpg tallennuksen täytyy se koodata itse.

Ja tämmönenki tuli mieleeni: Kun ohjelma on soittanut yhden mp3:n niin miten se alkaa soittamaan automaattisesti toista mp3:a siihen perään jne. jne. kun on olemassa vaikka joku lista missä on niiden kappaleiden tiedostonimet? Eli pitäisi saada aikaan playlist systeemi johon vain aluksi haen tiedostojen nimet ja sitten ne soivat järjestyksessä.

Kappaleen pituus selviää näin:

' näytetään kappaleen pituuden sekunteina
MsgBox WindowsMediaPlayer1.currentMedia.duration
' näytetään kappaleen pituuden muotoiltuna
MsgBox WindowsMediaPlayer1.currentMedia.durationString

Soittolistan teossa voit hyödyntää MediaPlayerin omaa soittolistaa.

Dim kappale As IWMPMedia

With WindowsMediaPlayer1
    ' tyhjennetään soittolistan
    .currentPlaylist.Clear
    ' lisätään yksi kappale listalle
    Set kappale = .newMedia("c:\omat\eka.mp3")
    .currentPlaylist.appendItem kappale
    ' lisätään toinen kappale listalle
    Set kappale = .newMedia("c:\omat\toka.mp3")
    .currentPlaylist.appendItem kappale
    ' ruvetaan soittamaan kappaleita listan mukaisesti
    .Controls.play
End With