Keskustelu: Ohjelmointikysymykset: VB6: Äänet

Pasikki [07.12.2005 17:08:53]

Yritän tässä juuri saada äänet ohjelmaani. Tällaisen pätkän löysin jostain ja muokkasin. Tämä koodi toimii mutta "kirves.wav" pitää olla tietyssä sijainnissa toimiekseen. Eli miten saisin tämän sillä tavalla toimimaan että ohjelma löytäisi "kirves.wav" tiedoston kunhan se on samassa kansiossa kuin itse ohjelma. Anteeksi jos tämä on yksinkertainen kysymys.

Private Sub Form_click()
    MMControl1.Notify = False
    MMControl1.Wait = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "WaveAudio"
    MMControl1.FileName = "D:\ääni\kirves.wav"
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"

End Sub

hunajavohveli [07.12.2005 17:20:18]

App.Path palauttaa hakemiston, jossa ohjelma on. Lisää se tiedostonimen eteen.

Pasikki [07.12.2005 18:08:02]

kiitos

nyt toimii. Mutta nyt vielä ihmettelen että miksei tota voi toistaa kun kerran. kun klikkaa toisen kerran ajon aikana niin ei se toista

miiro [16.12.2005 19:58:54]

suosittelisin käyttämään tätä:
https://www.ohjelmointiputka.net/koodivinkit/23466-vb6-wav-tiedoston-soittaminen
wav-tiedostojen soittamiseen. Silloin voi toistaa biisin montakin kertaa peräkkäin.
Tolla MMControllilla toimii luultavasti kun kirjoitat alkuun MMControl1.Command = "Stop"

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen