Discussion :

[chuspyto]

bonjour,aprés avoir fais une fonction je me retrouve avec un avertissementsur le end fonction me specifiant que boucle ne retourne pas une valeur pour tous les chemins de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 Private Function boucle(ByVal cas, ByVal boucle, ByVal jpeg, ByVal video)
        Dim Xwmp As IWMPMedia
        Dim cmd As OleDbCommand = cnn.CreateCommand
        For i = 1 To boucle
 
            cmd.CommandText = String.Format("SELECT  (Chm) from {0} WHERE [ID] =" & i, jpeg)
 
            cnn.Close()
            cnn.Open()
            Dim Lecture As OleDbDataReader = cmd.ExecuteReader
 
            While Lecture.Read()
                DirectCast(Me.Controls("Label" & i), Label).Visible = True
                DirectCast(Me.Controls("Label" & i), Label).Text = System.IO.Path.GetFileNameWithoutExtension(Lecture(0))
                DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Visible = True
                Xwmp = DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).newMedia(Lecture(0))
                DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).currentPlaylist.insertItem(0, Xwmp)
                DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.play()
                DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.pause()
 
            End While
 
        Next
    End Function

merci

[Pol63]

un cours ici : http://plasserre.developpez.com/cours/vb-net/
ca serait bien de le lire en entier ...


une sub (méthode) sert à ranger un morceau de code
une function (fonction) c'est une méthode qui retourne une valeur

une fonction doit donc être déclarée As QuelqueChose et contenir Return quelquechose

si ta fonction ne doit rien retourner il te faut alors une sub

[Sankasssss]

un cours ici : http://plasserre.developpez.com/cours/vb-net/
ca serait bien de le lire en entier ...

100% du même avis.

une fonction doit donc être déclarée As QuelqueChose

Tout comme ces paramètres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Function boucle(ByVal cas, ByVal boucle, ByVal jpeg, ByVal video)

devrait plutôt être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub boucle(ByVal cas as String, ByVal boucle as integer, ByVal jpeg as String, ByVal video as String)

[chuspyto]

d'accord mais je me retrouve avec une autre erreur: cette expression ne produit pas de valeur en passant par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Private Sub boucle(ByVal cas As Integer, ByVal boucle As Integer, ByVal jpg As String, ByVal basdef As String)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Case Me.J.Checked And Me.E.Checked And Me.Bo.Checked And Me..SelectedItem = "Cités"
                basdef = "TableCITE"
                jpg = "TableCITE_JPEG"
                mediaplay = traitement_boucle(4, 40, jpeg, basdef)

[Pol63]

va lire le cours, tu auras toutes les réponses à tes questions actuelles et futures !

vu qu'une sub de retourne rien il est interdit d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

quelquechose = tellesub

[Sankasssss]

Un petit lien direct vers la section qui explique votre problème dans le cours : http://plasserre.developpez.com/cour...rincipe#LIII-C
Mais n'hésiter pas, comme Pol63 l'a dit, à passer vos soirées à le lire entièrement, vous perdrez beaucoup moins de temps qu'à bloquer sur des bases et vous coderez plus proprement.