Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Tableau avec case a cocher??

4 réponses
Avatar
Le J
SAlut,

Qu'elle composante me permetterais d'avoir un tableau avec des cases à
cocher?? Ca existe???

Je vois qu emsflexgrid me donne pas de case a cocher....autre chose???

Merci

ALP

Le JP

4 réponses

Avatar
Zoury
Salut ! :O)

Le ListView permet les cases à cocher...

--
Cordialement
Yanick
MVP pour Visual Basic
"Le J" a écrit dans le message de
news:
SAlut,

Qu'elle composante me permetterais d'avoir un tableau avec des cases à
cocher?? Ca existe???

Je vois qu emsflexgrid me donne pas de case a cocher....autre chose???

Merci

ALP

Le JP




Avatar
Jacques93
Bonjour Zoury et Le J,
Zoury a écrit :
Salut ! :O)

Le ListView permet les cases à cocher...




Que dans la première colonne ...

--
Cordialement,

Jacques.
Avatar
Le J
SAlut,

ok avec ListViex ca me va mais comment foutre du texte dans une autre
colonne si on mets plus d'une colonne....je chercher et cherche mais je
trouve pas la ligne pour le faire.....

Merci

ALP

Le JP

"Le J" a écrit dans le message de
news:
SAlut,

Qu'elle composante me permetterais d'avoir un tableau avec des cases à
cocher?? Ca existe???

Je vois qu emsflexgrid me donne pas de case a cocher....autre chose???

Merci

ALP

Le JP




Avatar
Jacques93
Le J a écrit :
SAlut,

ok avec ListViex ca me va mais comment foutre du texte dans une autre
colonne si on mets plus d'une colonne....je chercher et cherche mais je
trouve pas la ligne pour le faire.....



Dim itmX As ListItem
Dim i As Integer

With Me.ListView1
.View = lvwReport
For i = 1 To 4
.ColumnHeaders.Add , , "Col" & i
Next i

For i = 1 To 10
SOIT
Set itmX = .ListItems.Add(, , "Test " & i)
' Pour accéder aux colonnes 2 à n : Méthode 1
itmX.SubItems(1) = "Sub " & Format(i) & "-1"
itmX.SubItems(2) = "Sub " & Format(i) & "-2"
itmX.SubItems(3) = "Sub " & Format(i) & "-3"
OU
' Pour accéder aux colonnes 2 à n : Méthode 2
.ListItems.Add , , "Test " & i
.ListItems(i).SubItems(1) = "Sub " & Format(i) & "-1"
.ListItems(i).SubItems(2) = "Sub " & Format(i) & "-2"
.ListItems(i).SubItems(3) = "Sub " & Format(i) & "-3"

Next i
End With

--
Cordialement,

Jacques.