Discussion :

[frag132]

Bonjour a tous,

J'ai encore besoin d'un petit tuyau

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
Private Sub textfilecreate()
        Dim file As New System.IO.StreamWriter("c:\sauve\Assistance\test" & Now.ToString("ddMMyyyy-HHmmss")".txt") 'cette ligne ne marche pas
        file.WriteLine("Centrale : " & Centralename.Text)
        file.WriteLine("Agence : " & Agency.Text)
        file.WriteLine("Déstinataire : " & CheckedListBox1.SelectedItems) 'Cette ligne ne marche pas
        file.WriteLine()
        file.WriteLine("NOM : " & TextBox3.Text)
        file.WriteLine("Prénom : " & TextBox2.Text)
        file.WriteLine()
        file.WriteLine()
        file.WriteLine("Commentaire : " & TextBox1.Text)
        file.WriteLine()
        file.WriteLine("Heure :" & Now.ToString("HH:mm:ss"))
        file.WriteLine("Date : " & Now.ToString("dd/MM/yyyy"))
        file.Close()
    End Sub

Voila mon problème est que je n'arrive pas a intégrer tous les éléments cochés dans ma checkedlistbox1. quand je met Checkedlistbox1.selecteditem, cela ne m'en met qu'un seul.

Je n'arrive également pas a insérer la date et l'heure dans le nom du fichier...

Et que dois-je rajouter a mon code pour que le fichier soit en écriture seulement, que seul l'administrateur puisse changer ses attributs ? j'ai suivi les tutos de ce site, mais rien n'y fait les codes rentrés sont faux... ou comment tout simplement sortir ce rapport en pdf ?..

Merci beaucoup

[asmduty]

"CheckedListBox1.SelectedItems" est une liste, tu as de la chance qu'il te retourne le premier ...
Il faut parcourir la liste pour récupérer tous les éléments et les afficher.

"Now.ToString("ddMMyyyy-HHmmss").txt"

le .txt tu dois le concatener, là il essaye de chercher une propriété ou méthode .txt d'un string !

[frag132]

"CheckedListBox1.SelectedItems" est une liste, tu as de la chance qu'il te retourne le premier ...
Il faut parcourir la liste pour récupérer tous les éléments et les afficher.

"Now.ToString("ddMMyyyy-HHmmss").txt"

le .txt tu dois le concatener, là il essaye de chercher une propriété ou méthode .txt d'un string !

Salut et merci pour ta réponse.
Je vais essayer de concatener le .txt en pensant savoir ce que cela veux dire. (EDIT : C'est bon ! j'ai juste oublié le "&")

Par contre je ne comprend pas ce que tu veux dire pour la checkedlistbox1 ? dans mon programme j'ai laissé "checkedbox1.selecteditem" car il marche mais ne m'affiche que le premier...

[asmduty]

SelectedItems te retourne les éléments sélectionnés (et non pas coché, je n'avais même pas fait attention) donc dont la ligne est en surbrillance.

Ce que tu cherches c'est la liste des éléments cochés (checked).
C'est une liste, tu ne peux pas afficher une liste, tu dois la parcourir pour récupérer chaque élément de la liste et l'afficher.

[frag132]

SelectedItems te retourne les éléments sélectionnés (et non pas coché, je n'avais même pas fait attention) donc dont la ligne est en surbrillance.

Ce que tu cherches c'est la liste des éléments cochés (checked).
C'est une liste, tu ne peux pas afficher une liste, tu dois la parcourir pour récupérer chaque élément de la liste et l'afficher.

ok c'est déjà plus clair ! je ne faisais pas la difference entre selected et checked.

Code :

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

file.WriteLine("Déstinataire : " & CheckedListBox1.CheckedItems.Item)

Hélas j'avais déjà essayé mais la ligne avec checkeditems n'est pas valide...
Quelle syntaxe dois-je adopter ? Je suis bloqué complet

[asmduty]

Tu ne sais pas parcourir une liste ?

Code :

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

1
2
3
4
5
6
Dim mon_text = ""
For each item as String in CheckedListBox1.CheckedItems
 
mon_text += item & ", "
 
Next

Tu vas parcourir toute la liste et créer une chaine avec tes éléments séparés par des virgule.
Il te restera une virgule à la fin à supprimer ..

[frag132]

Tu ne sais pas parcourir une liste ?

Code :

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

1
2
3
4
5
6
Dim mon_text = ""
For each item as String in CheckedListBox1.CheckedItems
 
mon_text += item & ", "
 
Next

Tu vas parcourir toute la liste et créer une chaine avec tes éléments séparés par des virgule.
Il te restera une virgule à la fin à supprimer ..

et non je ne sais pas parcourir une liste, pas plus que faire une string, dim etc... je suis vraiment dans la débrouille pour le moment !!
Je te remercie pour l'aide je vais voir si ça marche.

edit : aw je le met ou ça ?

[asmduty]

Commence peut-être par lire le cours VB.NET ou des tutos car si tu ne sais pas ce que tu fais tu vas venir toutes les 5 minutes poser des questions auxquelles tu trouverais la réponse facilement et rapidement dans un cours/tuto

[frag132]

j'ai déjà lu plusieurs fois la partie checkedlistbox sans succès.
Je marque le sujet résolu, la je sature.

[asmduty]

Ton problème n'est plus lié aux checkedlistbox, mais au fait que tu n'ais pas les bases de programmation.
Essaye de réfléchir de manière logique.
Tu as une liste (Element1, Element2, Element3)
Tu parcours la liste (avec le for each)

Tu passes la première fois dans la boule tu récupères "Element1"
Tu passes la deuxième fois dans la boule tu récupères "Element2"
Tu passes la troisième fois dans la boule tu récupères "Element3"

Tu me demandes ou placer ça, c'est vraiment de la logique là, tu le places avant de devoir afficher ta liste.

Code :

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

1
2
3
4
5
6
7
8
Dim mon_text = ""
For each item as String in CheckedListBox1.CheckedItems
 
mon_text += item & ", "
 
Next
'Ne pas oublier de supprimer la dernière virgule
file.WriteLine("Déstinataire : " & mon_text)

[frag132]

Je te remercie pour avoir insisté.
En effet je n'ai pas les bases, je programme depuis 3 jours seulement.
J'ai réussi a faire une partie d'un programme malgré mes lacunes, donc il n'y a pas de soucis de mauvaise volonté... Je suis entièrement d'accord avec toi quand tu me dis de voir d'abords les leçons en premier, mais comme je suis un peu pressé par le temps je ne peux m'y consacrer beaucoup de temps, et donc attaque dans le vif en m'aidant de topics que les autres utilisateurs on déjà fait. Ce qui explique m'a dépendance a l'aide...
Y a t-il un chapitre que tu me conseillerai en particulier dans les leçons de ce site ?
Sinon encore merci pour l'aide, c'est vraiment sympa

[asmduty]

http://plasserre.developpez.com/cours/vb-net/

Dans ce cours vraiment très bien fait tu trouveras la plupart de tes réponses.
Je sais que tu peux être pressé, mais en général il faut prendre un minimum son temps sinon tu en perdras plus que tu en sauveras.

[frag132]

merci.