Comment mettre un check box dans un DataGrid?

Question

J'ai un petit soucis avec les datagrid.
Pourriez vous me dire comment on selectionne une ou plusieurs lignes (avec un check) dans une datagrid ?
En fait ce que je souhaite c'est d'avoir une liste d'identifiants et pour chaque identifiant selectionne
j'aurais voulu imprimer les donnees de tous les enregistrements sélectionnes en cliquant sur un bouton que j'aurais nomme 'imprimer'
Merci de votre reponse !

cs_ErickG · Answer

Bonjour,

Je ne pense pas qu'il soit effectivement possible d'afficher une CheckBox dans une DataGrid (les champs booleen sont affiches avec -1 ou 0).

Si l'utilisation de la DataGrid n'est pas obligatoire, utilise plutot le controle Listview qui permet d'afficher une CheckBox indépendante des champs renvoyés (ListBox permet aussi l'affichage de la CheckBox, mais c'est beaucoup moins souple et pratique).

Erick

Mamaw · Answer

salut,


Pour mettre des checkboxes dans ton datagrid utilise les Template columns


ex : 
<columns>

cs_kazimir · Answer

salut, 

moi, j'ai trouv&#233; ca en flanant (ici en plus, je crois)
j'ai test&#233; et ca marche sous XP

Private Const Checked As Byte = 253 
Private Const UnChecked As Byte = 168 
Private Sub Form_Load() 
    
    Dim CCol, CRow As Integer 
    
    With MSFlexGrid1 
    
        .FixedCols = 0 
        .FixedRows = 1 
        .Cols = 8 
        .Rows = 8 
        .ColAlignment(2) = flexAlignCenterCenter 
        
        For CRow = .FixedRows To .Rows - 1 
        
            For CCol = 0 To .Cols - 1 
                .TextMatrix(CRow, CCol) = "Cel " & CRow & ", " & CCol 
            Next CCol 
            
            .Col = 2 
            .Row = CRow 
            .CellFontName = "Wingdings" 
            .CellFontSize = 12 
            .CellFontBold = False 
            .Text = Chr(UnChecked) 
            
        Next CRow 
        
    End With 


 


    
End Sub 


 


Private Sub MSFlexGrid1_Click() 


 


    With MSFlexGrid1 
    
        If .Col = 2 Then 
            If .Text = Chr(UnChecked) Then 
                .Text = Chr(Checked) 
            ElseIf .Text = Chr(Checked) Then 
                .Text = Chr(UnChecked) 
            End If 
        End If 
        
    End With 


 


End Sub

@++

 THE Kazzz

Comment mettre un check box dans un DataGrid?

3 réponses

Discussions similaires