|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: Feb 2002
Messaggi: 1370
|
Access apertura file audio all'apertura di una maschera
Salve a tutti, qualcuno può spiegarmi come si fa ad avviare una file audio mp3 automaticamente all'apertura di una maschera con access (senza far aprire il windows media player)?
Premetto che conosco in generale i database e linguaggi di programmazione come C, C++ o Java ma non ho mai usato ne Access ne VisualBasic. Per ora sono riuscito ad inserire il file audio all'interno della maschera (viene visualizzato un rettangolo con il titolo all'interno) ma non so come farlo partire in automatico. Grazie a tutti in anticipo per le risposte!!! Ciao! |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Aug 2004
Città: Provincia di Monza e Brianza
Messaggi: 6262
|
Con VB uso questo codice, che ho trovato in giro in rete:
''Da mettere in un MODULO: Codice:
Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public Const SND_SYNC = &H0 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_LOOP = &H8 Public Const SND_NOSTOP = &H10 Codice:
Dim rc As String rc = sndPlaySound("C:\PIPPO.WAV", SND_SYNC)
__________________
AMD Ryzen 5 7600X - Dissipatore Thermalright Assassin King 120SE - RAM Kingston Fury Beast 2x16Gb DDR5 CL30 @ 6000 - Motherboard ASROCK B650 Pro RS - NVME Kingston KC3000 2Tb - PSU FSP Hydro PRO 600w - Win 11 PRO |
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: Feb 2002
Messaggi: 1370
|
Ciao Spike79 grazie mille per il codice, ora il suono si sente ma mi da ancora qualche problema..
Quando apro la maschera la musica si sente per qualche secondo, finche la maschera non si carica, poi, quando compare la maschera la musica si interrompe. Io vorrei che la musica continuasse a sentirsi anche dopo, fino alla chiusura della maschera. Probabilmente sbaglio ad inserire il codice della form. Per inserirlo seleziono la maschera e clicco su struttura, poi vado su "visualizza"->"proprietà"->"Evento" , dalla riga "su apertura" inserisco [routine evento] poi clicco sul pulsante con i tre puntini sospensivi al lato e vengo mandato al codice dove inserisco il codice che mi hai dato, il risultato è il seguente: Option Compare Database Private Sub Form_Open(Cancel As Integer) Dim rc As String rc = sndPlaySound("C:\musica.wav", SND_SYNC) End Sub Dov'è l'errore? Grazie ancora! Ciao! ![]() |
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 21:41.