11/06/08 11:32
LupoAlbertoVB
Salve a tutti,
Di recente ho cominciato a stilare un programma abbastanza complesso, che richiede l'utilizzo di molte msgbox per domande, notifiche errori, informazioni, ecc. Per renderlo più divertente, ho pensato di aggiungere un controllo MSAgent perchè rimpiazzi le msgbox. Fin qua tutto OK. Poi, ho creato un database Access contenente tutte le frasi che il MSAgent deve dire, le animazioni che deve fare, ecc.
Ho creato quindi due funzioni: una per l'apertura del database, e funziona, e l'altra per la selezione del record preciso della frase che deve dire il personaggetto:
solo che c'è un problema: quando chiamo quella funzione, qualsiasi numero che io metta nella variabile Numero, il programma fa recitare a Merlino sempre la stessa frase (la 13) del database (allegato).
Ringrazio in anticipo tutti quelli che mi risponderanno e che mi aiuteranno a risolvere il problema.
Di recente ho cominciato a stilare un programma abbastanza complesso, che richiede l'utilizzo di molte msgbox per domande, notifiche errori, informazioni, ecc. Per renderlo più divertente, ho pensato di aggiungere un controllo MSAgent perchè rimpiazzi le msgbox. Fin qua tutto OK. Poi, ho creato un database Access contenente tutte le frasi che il MSAgent deve dire, le animazioni che deve fare, ecc.
Ho creato quindi due funzioni: una per l'apertura del database, e funziona, e l'altra per la selezione del record preciso della frase che deve dire il personaggetto:
Public Function DomandeConMerlino(ByVal Numero As Integer) As Object Dim Animazione As String Dim Frase As String NumeroRecordData.Move(Numero) Animazione = NumeroRecordData.Fields("Animazione").Value Frase = NumeroRecordData.Fields("Testo_Frase").Value With Principale.MerlinoAgent .Play(Animazione) .Speak(Frase) End With End Function
solo che c'è un problema: quando chiamo quella funzione, qualsiasi numero che io metta nella variabile Numero, il programma fa recitare a Merlino sempre la stessa frase (la 13) del database (allegato).
Ringrazio in anticipo tutti quelli che mi risponderanno e che mi aiuteranno a risolvere il problema.
Ultima modifica effettuata da LupoAlbertoVB 11/06/08 11:39
aaa