Help Datagrid ! ! ! Qui pourras trouver la solution à mon probléme????

Question

Voil&#224; mon probl&#232;me est le suivant :j'ai besoin de faire un multiselect dans un datagrid cad que j'utilise l'&#233;v&#232;nement keydown avec la detection du spacebar .Le spacebar selectionne ou deselectionne toute la ligne (en lieu et place du click sur la partie gauche du datagrid).Aussi le programme doit etre capable de selectionner plusieurs lignes.(par defaut,avec le click ,un seul possible)
Pas moyen de trouver l'evenement correspondant au click ?????
 Je sais que c'est possible car j'utilise tous les jours un programme qui est capable de le faire mais comment??????ca c'est une autre histoire.....
Si quelqu'un pourrait m'aider ca m'aiderai beaucoup.
D'avance merci &#224; celui ou celle qui trouvera la solution.

Vince.

codea · Answer

c'est une propri&#233;t&#233; ... 

Met selectionMode=byrow

(bouton droit sur ton grid: propri&#233;t&#233;s)

  Rien ne sert de courir, il faut partir &#224; point
 
 Jean de la fontaine

cs_vince23 · Answer

Codea merci de ta reponse mais,j'ai oubli&#233; de pr&#233;ciser que je suis en vb6,j'ai beau chercher aucune trace  de cette propri&#233;t&#233;....sniff..

TrafMaxime · Answer

Voil&#224;, d&#233;sol&#233; Vince je suis en vb.net, mais ces trois fonctions marchent (toujours en .net..), alors si tu veux les essayer..

La 1ere d&#233;tecte un changement de ligne suite &#224; un click.. les deux autres sont indiqu&#233;es par leur nom :



 Private Sub dtg(ByVal sender As Object, ByVal e As System.EventArgs) Handles nom_du_datagrid.CurrentCellChanged
end sub



Private Sub Dtgl(ByVal sender As Object, ByVal e As System.EventArgs) Handles nom_du_datagrid.DoubleClick

end sub


Private Sub dtgb(ByVal sender As Object, ByVal e As System.EventArgs) Handles nom_du_datagrid.Click

end sub



    

Si ca peut t'aider....



.Maytheforcebewithyou.Maxime.

codea · Answer

mm.... c parce que je tavaille avec un mshflexgrid .... :o) dsl.... 



sinon tu peux essayer aussi avec un listview c'est tres chic.... et mettre la propri&#233;t&#233; view &#224; lvwReport...

une fonction bien pratique pour remplir unelistview.... 

tu dois passer Item comme un tableau de string, un recordset et ton listview: 

exemple:

 StrConfigList(1, 0) = "Idmenu"

    StrConfigList(1, 1) = "1" 'largeur de la colonne presque 0 ... ca cache l,id ! 

    StrConfigList(0, 0) = "Nom" 

    StrConfigList(0, 1) = "2500" 'largeur de la colone



Function Remplit_Rapport(lst As ListView, rst As Recordset, Item() As String, Optional ByVal Itemkey As String = "")

Dim mItem As ListItem

Dim Sitem As ListSubItem

Dim Equipement_actuel As Integer

Dim Titre_colone As ColumnHeader

lst.ListItems.Clear

lst.ColumnHeaders.Clear



'Ajuste les colones

For i = 0 To UBound(Item())

    Set Titre_colone = lst.ColumnHeaders.Add()

    Titre_colone.Text = Item(i, 0)

    Titre_colone.Width = Val(Item(i, 1))

Next i

   'ALLER CHERCHER LES BT PREVENTIFS OUVERTS

If rst.EOF False And rst.BOF False Then

    With rst

        .MoveFirst

        Do Until .EOF

        'PREMIERE COLONE

            Set mItem = lst.ListItems.Add()

                'ICI ON GERE SI L'ITEM EST EN RETARD

            mItem.Text = .Fields(Item(0, 0))

            If Itemkey <> "" Then

               
mItem.key = "" 'ajoute une string optionnelle 

            End If

        'TOUTES LES AUTRES COLONES

            For i = 1 To UBound(Item())

                Set Sitem = mItem.ListSubItems.Add()

               
If Not IsNull(.Fields(Item(i, 0))) Then

                   
Sitem.Text = .Fields(Item(i, 0))

                End If

                

            Next i

            .MoveNext

        Loop

         End With

       ' rst.Close

End If



Ensuite tu accedesa tes donn&#233;es  comme ca... 

id=Val(Item.ListSubItems(1).Text)

item2=Val(Item.ListSubItems(2).Text)




  Rien ne sert de courir, il faut partir &#224; point
 
 Jean de la fontaine

codea · Answer

et fais attention ... ta liste de string... les nom doivent &#234;tre
pareils auc champs de ton recordset, et aussi la string doit avoir la
bonne dimension : 



pour un rst 3 3 champ=(Id,Nom,Prenom)

dim str(2,2)

str(0,0)="Id"

str(0,1)="1"

str(1,0)="Nom"

str(1,1)"500"

str(2,0)="Prenom"

str(2,1)="800"



voila ... si tu veux changer les titres de tes colones sans changer les
noms des attributs de tes tables dans ta bd... tu peux mettres des
alias dans tes requettes ex: select EmployeNom as Nom, Nas as Id from
tblEmploye

  Rien ne sert de courir, il faut partir &#224; point
 
 Jean de la fontaine

cs_vince23 · Answer

merci pour votre aide codea  et trafmaxime ,je m'en vais tester cela de suite ........
et je vous tiens au courant.

cs_lalahom · Answer

salam,
 j'ai un projet dans php et je voudrai afficher une image (trambinoscop)  comment je veux faire

Help Datagrid ! ! ! Qui pourras trouver la solution à mon probléme????

7 réponses

Discussions similaires