Ho un progetto costituito da un Form e una Classe, nel Form ho aggiunto i seguenti controlli: una TrackBar, una Label e un Button.
Il Form contiene questo codice:
mentre nella Classe, che ho aggiunto al progetto dacodice:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TrackBar1.TickFrequency = 1 TrackBar1.Minimum = 0 TrackBar1.Maximum = 10 End Sub Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Label1.Text = TrackBar1.Value Class1.A.Volume = TrackBar1.Value 'qui mi da l'errore di runtime End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Class1.A.Play() End Sub End Class
Progetto >> Aggiungi classe...
contiene questo codice, per rendere la variabile A globale:
Naturalmente ho aggiunto i riferimenti a Microsoft.DirectX e a Microsoft.DirectX.AudioVideoPlayback dacodice:Public Class Class1 Public Shared A As New Microsoft.DirectX.AudioVideoPlayback.Audio("C:\" & "pupo.mp3") End Class
Progetto >> Aggiungi riferimento...
Mi da un errore di runtime nel punto che ho indicato con un commento nel codice e non riesco a regolare il volume del file.mp3 che ho messo in C.
Ci sto smanettando da tutta la notte ma non ci riesco proprio.
Qualcuno mi può aiutare perfavore?
p.s. scusate se non l' ho specificato prima: come ambinete di sviluppo sto usando Visual Basic 2005 Express Edition.

Rispondi quotando