Discussion :

[chuspyto]

bonjour je voudrai appeler une procedure mais cela ne fonctionne pas

Code :

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

1
2
3
 Private Sub btnUneInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUneInfo.Click
     Call titre_visionneur(LectureLigne)   
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
 Public fonction titre_visionneur(ByVal lectureligne)
        Dim i As Integer
        Dim results() As String
        results = lectureligne.Substring(0, lectureligne.Length - 1).Split("\")
        For i = 5 To UBound(results)
            Me.Label2.Text = titre & "lecture de " & results(i)
        Next i
 
    End fonction

[_Ez3kiel]

Si c'est une procédure pourquoi déclares-tu :

Code :

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

1
2
Public fonction 
     End fonction

(Nb : En vb.NET une fonction se déclare function)

Ici tu dois utiliser une Sub.
Egalement tu dois donner le type de Lectureligne que tu passes en paramètre.

Code :

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

1
2
3
4
5
6
7
8
9
Public sub titre_visionneur(ByVal lectureligne as ?????? )
        Dim i As Integer
        Dim results() As String
        results = lectureligne.Substring(0, lectureligne.Length - 1).Split("\")
        For i = 5 To UBound(results)
            Me.Label2.Text = titre & "lecture de " & results(i)
        Next i
 
    End sub

[DeWaRs]

Bonjour,

Qu'entends-tu par "cela ne fonctionne pas"?

Rentres-tu dans tes fonctions ?
Met un point d'arret quand tu fais

Code :

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

Call titre_visionneur(LectureLigne)

Et sur

Code :

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

results = lectureligne.Substring(0, lectureligne.Length - 1).Split("\")

afin de voir si tu rentres dans au moins une des deux fonctions.

Cordialement.

DeWaRs

[Pol63]

cela ne fonctionne pas

que de précisions !

sinon tu peux aussi apprendre à débugger du code (points d'arrets, pas à pas ...)

[chuspyto]

J ai essayé avec du public sub et aucun résultat ni message erreur pour cela que je dis que cela ne fonctionne pas. De plus j ai essaye de déclarer lectureligne en string est rien

[_Ez3kiel]

Ton code n'étant pas très "parlant" de ce que tu souhaites faire, peux-tu nous en dire plus ? Que dois-faire cette fonction ? Que vaut lectureligne et que veux-tu faire avec ? Etc etc

[chuspyto]

voici le message d'erreur que j'obtient:

impossible de convertir une valeur de type 'System.Data.OleDb.OleDbDataReader' en 'String'.

[rv26t]

voici le message d'erreur que j'obtient:

impossible de convertir une valeur de type 'System.Data.OleDb.OleDbDataReader' en 'String'.

Il faut lire les ligne avant de les utiliser en tant que chaîne de caractères.

Voir l'exemple dans le lien.
system.data.oledb.oledbdatareader

[rv26t]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
 Public fonction titre_visionneur(ByVal lectureligne)
        Dim i As Integer
        Dim results() As String
        results = lectureligne.Substring(0, lectureligne.Length - 1).Split("\")
        For i = 5 To UBound(results)
            Me.Label2.Text = titre & "lecture de " & results(i)
        Next i
 
    End fonction

Détaillons ton code
1) Outre la remarque de _Ez3kiel qui fait que ton code ne compile pas.

2)

Code :

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

        For i = 5 To UBound(results)

Fait que si tu n'as que 2 \ par exemple, tu n'afficheras rien

3)

Code :

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

1
2
3
        For i = 5 To UBound(results)
            Me.Label2.Text = titre & "lecture de " & results(i)
        Next i

Provoque uniquement l'affectation du dernier élément dans Label2 (les autres sont systèmatiquement écrasée par le suivant, sauf le dernier).


Donc ton code pourrai se résumer à

Code :

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

1
2
3
4
    Public Sub titre_visionneur(ByVal lectureligne As String)
        Dim results() As String = lectureligne.Substring(0, lectureligne.Length - 1).Split("\")
        Me.Label2.Text = titre & "lecture de " & results(results.Count - 1)
    End Sub

A+, Hervé.

[Edit]
J'écrivais pendant que ton post est passé.

Si tu nous montres le code et explique, nous pourrons t'aider.

[rv26t]

Pour info ou dois je insérer cette ligne de code?

Code :

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

        Me.Label2.Text = titre & "lecture de " & System.IO.Path.GetFileNameWithoutExtension(LectureUneInfo(40))

Ben là, c'est le fonctionnement de ton programme. Je ne peux pas savoir à ta place à quel moment tu veux l'afficher.

Code :

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

1
2
3
 Private Sub btnUneInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUneInfo.Click
     Call titre_visionneur(LectureLigne)   
    End Sub

Tu le faisait ici, en appelant titre_visionneur. C'est donc dans ta btnUneInfo_Click à la place de titre_visionneur(LectureLigne).