ListBox

Résolu/Fermé

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 - Modifié le 9 janv. 2019 à 08:52
f894009 Messages postés 17186 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 30 avril 2024 - 10 janv. 2019 à 17:11

Bonjour,

L'environnement est toujours VB6

Je ai essayé une ListBox à une seule colonne, pour y afficher les codes et les noms correspondants, dans un premier temps j'ai fais :

<code>Private Sub Form_Load() 


PoolConnection


'Code des Clients


SQLs = "select * from TableClts where Ste='" & CStr(VSte) & "'"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Do Until RS.EOF

ListeCodes.AddItem (RS![Code]  & "  " & RS![cLT])

RS.MoveNext

Loop

RS.Close


End sub

</code>

Jusqu'à maintenant c'est bien reçu, mais je cherche à travailler avec une ListBox à Deux Colonnes,
- la première à recevoir les codes
- la deuxième les noms.
Toute en visant, l'autre étape qui consiste à faire afficher le code et le nom dans des TextBox distincts d'une autre feuille qui s'affiche lors de la sélection d'une ligne de la ListBox.La tâche que je ne réussisse pas.
Merci pour toute aide pour :

- l'affichage sur les deux colonnes de la ListBox
-l'affichage du Code sur TextBox1, et du nom sur TextBox2 d'une autre Form bien sûr.

Configuration: Windows / Firefox 52.0

A voir également:

ListBox
Remplir listbox multicolonne vba excel - Forum VB / VBA
Listbox recherche ✓ - Forum Programmation
ListBox avec CheckBox ✓ - Forum VB / VBA
Remplir listbox vba ✓ - Forum VB / VBA
Tkinter listbox scrollbar ✓ - Forum Python

1 réponse

Réponse 1 / 1

f894009 Messages postés 17186 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 30 avril 2024 1 703
9 janv. 2019 à 08:38

Bonjour,

VB6.0, listbox: une seule colonne pas plus.
Utiliser une listview

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
Modifié le 9 janv. 2019 à 12:26

Bonjour

Merci pour l'orientation, seulement, vu ma maîtrise médiocre du VB6, je n'arrivais pas à trouver la bonne astuce pour remplir ma ListView à partir de ma BD. J'ai essayé le code ci-dessous et m'a donné, et les codes et les noms dans la même colonne. je n'arrivais pas à placer les noms dans la deuxième colonne.

Merci d'avance pour votre aide.

Private Sub Form_Load()



With ListeCodes.ColumnHeaders

.Add , , "Codes", 1000
.Add , , "Noms", 2600

End With


PoolConnection



'Code des Clients


SQLs = "select * from TableClts where Ste='" & CStr(VSte) & "'"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Do Until RS.EOF

ListeCodes.ListItems.Add(1) = RS![Code]
ListeCodes.ListItems.Add(2) = RS![Clt]

RS.MoveNext

Loop

RS.Close





End Sub

f894009 Messages postés 17186 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 30 avril 2024 1 703
Modifié le 9 janv. 2019 à 18:11

Re,

Dois tester plus

Suite:

Private Sub Form_Load()
    PoolConnection
    With Me.ListeCodes
        .LabelEdit = lvwManual      'ligne non modifiable
        .View = lvwReport
        .FlatScrollBar = False      'scrollbar Verticale
        With .ColumnHeaders
            .Clear
            .Add , , "Codes", 1000, lvwColumnLeft
            .Add , , "Noms", 2600, lvwColumnCenter
        End With
        
        SQLs = "select * from TableClts where Ste='" & CStr(VSte) & "'"

        'If RS.State = adStateOpen Then RS.Close
        'RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
        
        n = 1       'pointeur pour ligne
        Do Until RS.EOF
            .ListItems.Add , , RS![Code]
            .ListItems(n).ListSubItems.Add , , RS![Clt]
            '------- changement couleur et style texte colonnes----- pour info
            'If .ListItems(N) = TextBox1 Then .ListItems(N).Bold = True
            'If .ListItems(N).ListSubItems(2).Text = "N?ant" Then
            '    .ListItems(N).Bold = True
            '    .ListItems(N).ForeColor = vbRed
            '    For C = 1 To .ColumnHeaders.Count - 1
            '        .ListItems(N).ListSubItems(C).Bold = True
            '        .ListItems(N).ListSubItems(C).ForeColor = vbRed     'couleur colonne 2
            '    Next C
            'End If
            n = n + 1
            RS.MoveNext
        Loop
    End With
End Sub

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
9 janv. 2019 à 18:10

Re bonjour

Pouvez vous m'expliquer pourquoi le programme ne reconnait pas l'index , du fait qu'il met les codes et les noms dans la même colonne, c'est à dire la colonne indexé par 1
Pourtant sur le tableau des propriétés de la ListView, j'ai affecté à la colonne des "Codes" l'index 1, et à celle des "Noms" l'index 2.

f894009 Messages postés 17186 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 30 avril 2024 1 703
9 janv. 2019 à 18:12

Re,
Croisement de post.
Regardez le post 3

Lenouveauapprenti Messages postés 300 Date d'inscription samedi 22 décembre 2018 Statut Membre Dernière intervention 7 avril 2024 2
9 janv. 2019 à 18:51

Re bonjour

Merci pour l'orientation. Je teste encore cette série de codes.

Discussions similaires

additem listbox en multicolonnes

[VBA] remplir une listBox

Recuperer valeur d'une listbox multiple sélection

Comprendre l'utilisation d'une listbox excel vba

ListBox a 2 colonnes

Discussions similaires

Newsletters