multi colone dans une listview Fermé

Question

Bonjour,

je viens de m inscrire sur votre site car je travail sur un programme de calcul d heure de nuit en vb6 mais je suis bloquer avec un problème de listview et de colonne 

   explication en détail 
j ais une form1 sur laquelle je remplie une listbox je souhaite envoyé cette liste dans une listview qui est placer sur une form2 comme pour un aperçu avant une impression sous forme de colonne

lermite222 · Answer

Bonjour,
Il n'y a pas de colonne dans un listView, c'est un affichage comme dans l'explorateur de fichier où tu ouvre et ferme des lignes.
A+

ocejade17 · Answer

bonjour a toi lermite222
merci pour ta rapidité alors qu elle est le meilleur moyen pour faire se type d aperçus 

je te mais mon codage pour que tu puisse voir mon probleme
Private Sub Command1_Click()
CalculMinuteFin = TxtMinuteFin
    CalculHeureFin = TxtHeureFin
    
    If TxtMinuteFin < TxtMinuteDebut Then
        CalculMinuteFin = TxtMinuteFin + 60
    End If

    If TxtHeureFin < TxtHeureDebut Then
        CalculHeureFin = TxtHeureFin + 24
    End If


    TxtHeureResultat = CalculHeureFin - TxtHeureDebut
    TxtMinuteResultat = CalculMinuteFin - TxtMinuteDebut
     Txtohsupp = TxtHeureResultat - 6
     Txtomsupp = TxtMinuteResultat - 30
     
     Textheurenuit = H2 - TxtHeureDebut
    
    Textminnuit = M2 - TxtMinuteDebut
    
Text3.Text = DTPicker1 & "    " & TxtHeureDebut & " H " & TxtMinuteDebut & "    " & TxtHeureFin & " H " & TxtMinuteFin & "    " & TxtHeureResultat & " H " & TxtMinuteResultat & "    " & Txtohsupp & " H " & Txtomsupp & "   " & Textheurenuit & " H " & Textminnuit & vbCrLf

End Sub

Private Sub Command2_Click()

    List1.Clear
End Sub


Private Sub Command3_Click()
List1.AddItem Text3.Text
End Sub

Private Sub Command4_Click()
Call Sauveliste(Me.List1)
End Sub

Private Sub Command5_Click()
Call Ouvreliste(Me.List1)
End Sub

Private Sub Form_Load()

End Sub

Private Sub List1_Click()

    If List1.ListIndex <> -1 Then
        MsgBox List1.List(List1.ListIndex)
    End If
    
End Sub


Private Sub options_Click()
Form2.Show
End Sub



Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        List1.AddItem Text3.Text
        Text3.SelStart = -1
        Text3.SelLength = Len(Text3.Text)
    End If
End Sub
 Private Sub Sauveliste(LaListe As ListBox)

 Open App.Path & "\" & "laliste.lst" For Output As 1
 For i = 0 To List1.ListCount - 1
 LaListe.ListIndex = i
 Print #1, LaListe.Text
 Next
 Close 1
 End Sub
 Private Sub Ouvreliste(LaListe As ListBox)
 Open App.Path & "\" & "laliste.lst" For Input As 1
 Do Until EOF(1)
 Line Input #1, MaString
 LaListe.AddItem MaString
 Loop
 Close 1
 End Sub

pour ma form2
Private Sub Document1_GotFocus()
Open App.Path & "\" & "laliste.lst" For Input As 1
 Do Until EOF(1)
 Line Input #1, MaString
 LaListe.AddItem MaString
 Loop
 Close 1
End Sub



Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()
sa c est ma colonne date
End Sub

Private Sub Label2_Click()
sa c est ma colonne heure embauche
End Sub

Private Sub Label3_Click()
sa c est ma colonne fin de service
End Sub

Private Sub Label4_Click()
sa c est ma colonne total heure jour
End Sub

Private Sub Label5_Click()
sa c est ma colonne heure supp
End Sub

Private Sub Label6_Click()
sa c est ma colonne total heure nuit
End Sub

Private Sub ListView1_Click()

End Sub

j espère que sa vas mieux te parler   
j attend vite une reponce de ta part et encore merci

lermite222 · Answer

Quand tu dit Form1 et Form2 c'est quoi ?
Tu est en VB6 ?
A+

lermite222 · Answer

Donc, si j'ai compris tu veux mettre le contenu de la liste de la forme 1 dans la liste de la forme 2 ?
A+
EDIT:
A tout hazard..
'Dans Load de Form2
Private Sub Form_Load()
    For i = 0 To Form1.List1.ListCount - 1
        List1.AddItem Form1.List1.List(i)
    Next i
End Sub

lermite222 · Answer

Re,
Si, j'ai bien vu que tu employas un fichier, mais dans la forme 2 ce n'est pas nécessaire d'ouvrir le fichier à nouveau puisque les données sont déjà dans la liste de la forme 1
et concernant la forme2, LaListe c'est une ListView ? Quel est l'intéret de mettre une ListView alors qu'il n'y a q'une seule "Node" ?

pour la remplir voir...
Il faut la lier avec un contrôle ImageList et y ajouter des images
   'Remplir le Treeview
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(, , "Clé", "Texte de la Node", 1)
1 = le N° de l'icône dans ImageList1
Tu dit...

lermite222 · Answer

L'approche pour le calcul des heures n'est pas fameuse, mais ça dépend de la façon dont tu les met dans le fichier.
Faudrait que les variables soient déclarée en long et travailler avec des TimeSerial.
Charge le projet Sur Cjoint tu le dézipe.
Je crois que c'est un bon exemple pour travailler avec des dates et heures, il y a aussi un MSHFlexGrid qui devrait être une bonne démo.
Il y a assez bien d'explications
A+

lermite222 · Answer

CellAlignement n'intervient que sur la cellule active déterminée par Col et Row
pour aligner par colonne voir
    Fg.ColAlignment(x) = flexAlignCenterCenter 'pour centre/Centrer les colonnes 'normales'
    Fg.ColAlignmentFixed(x) = flexAlignCenterCenter ' idem pour colonnes titres
Tu emploi un Grid mais tu met tout dans une seule colonne ? je ne vois pas l'intérèt de pratiquer comme cela, tu devrais mettre chaque titres dans une colonne et chaque données dans des colonnes séparées!
Je te rappel que ta première idée était de mettre dans des colonnes séparées !!

Si tu veu faire un Clip avec ton entrée fichier...(il faut 5 colonnes)
mastring  = "date" & vbTab  & " heures embauches " & vbTab   & " fin services " &  vbTab  & " Heures supp " &  vbTab  & "Heures nuit " 
    with MSFlexGrid1
        .ro = 0 : .Col = 0
        .Text = mastring  
    end with
Et pour sauver tes données ou les lire voir du côté de la propriété Clip, mais je vais pas tout dire d'une fois, 
A+

lermite222 · Answer

Re,

Met les formes , le projet et un fichier, enfin tout le répertoir quoi.. dans un zip et met sur Cjoint.
Parce que comme ça ça peut durer longtemps.
Ensuite tu met le lien dans un poste suivant.

lermite222 · Answer

Bonjour,
Tu peu pas me metrtre ça en ZIP, j'ai pas de logiciel installé pour les Rar

Multi colone dans une listview

9 réponses

Discussions similaires