RealAudio

Question

salut tous le monde,
est ce que il ya un moyen pour bloquer le message d'erreur que intervien lorseque un fichier n'est pas disponible et metre label1.caption"fichier introuvable".
 
merci

cs_Exploreur · Answer

Salut kelm_by,

Pourrais-tu SVP, être un peu plus précis !!! Mettre un petit bout de ton code, serai pas mal, pour pouvoir gérer ton erreur...

A+
Exploreur

kelm_by · Answer

RealAudio1.DoStop
RealAudio1.Source = lien
RealAudio1.DoPlay

si le lien n'exsiste pas une erreur 

a general error has occurred

cs_Exploreur · Answer

Salut,

Voilà ce que je te propose :

Private Sub Command2_Click()


' Gestion erreur
 On Error GoTo ErFichier
 
 Dim NumeroErreur As Integer
 
 RealAudio1.DoStop
 RealAudio1.Source = lien
 RealAudio1.DoPlay
 
 
ErFichier:
NumeroErreur = Err.Number
If NumeroErreur > 0 Then
   label1.Caption "Fichier introuvable"
   Exit Sub
End If


End Sub

A+
Exploreur

violent_ken · Answer

Violent Ken

Ou alors on teste la présence du fichier (chercher sur VBF une fonction), et




If FileExists(lien) Then


RealAudio1.DoStop
RealAudio1.Source = lien
RealAudio1.DoPlay


End if









@+

samorai17 · Answer

salut j'arrive pas a trouvee realplay.ocx dans visuelbasic ou je peus le trouver et merci

RealAudio

5 réponses

Votre réponse