PureBasic

Code : Tout sélectionner

Table::Create(ID_Table,Title$,X,Y,W,Nb_Line) ;--> pour créer la table
Table::AddColumn(ID_Table,W,ID_Column,Title$,Etat=#EtatVisible,Type=#StringTP) ;-->pour ajouter une colonne Type na actuellement aucune utilité
Table::AddLine(ID_Table,Value$); --> ajouter les data séparer par chr(9)
Table::GetDataTable(ID_Table,ID_Column) ;--> récupérer le data de la colonne de la ligne sélectionnnée 
Table::SetLinePairImpairColor(ID_Table,ColorPair,ColorImpair) ;--> Modifier les couleurs pair et impair
Table::SetColumColor(ID_Table,ColorBack,ColorTxt) ;--> Modifier les couleurs des titre de colonne
Table::SetRibbonColor(ID_Table,ColorBack,ColorTxt) ;--> Modifier la couleur du bandeau de sélection
Table::SetLigneColor(ID_Table,N_line,ColorTxt) ;--> modifier la couleur du texte du ligne
Table::SetLineHeignt(ID_Table,Height) ;--> Modifier la hauteru des ligne
Table::DrawTable(ID_Table,Decalage=0,PremiereLigne=1) --> Dessiner la table Decalage et premiere ligne sont utiliser par les ascenseurs et ne doivent pas être renseigner
Table::GereEvent(Event,ID_Table) ;--> a placer dans la boucle événementielle après  #PB_Event_Gadget
;AJOUT:
Table:GetLineSelected(ID_Table) ;--> retourne le Num de ligne sélectionnée
Table::SelectLine(ID_Table,N_Line) ;--> sélectionner un e ligne
Table::DeleteLine(ID_Table,N_Ligne) ;--> supprimer une ligne 

Code : Tout sélectionner

XIncludeFile "Table.pbi"
Enumeration 
      #Id_Cli
      #Nom_Cli
      #Code_po_Cli
      #Localite_Cli
EndEnumeration
OpenWindow(0,0,0,1200,800,"Teste",#PB_Window_SystemMenu)
Table::Create(0,"Client",50,0,550,5)
Table::AddColumn(0,400,#Id_Cli,"ID",Table::#EtatInvible)
Table::AddColumn(0,300,#Nom_Cli,"Nom")
Table::AddColumn(0,100,#Code_po_Cli,"Code postal")
Table::AddColumn(0,150,#Localite_Cli,"Localite")
Table::AddLine(0,"1"+Chr(9)+"Jean Durant"+Chr(9)+"4800"+Chr(9)+"Ville Noir")
Table::AddLine(0,"2"+Chr(9)+"Pierre Dubon"+Chr(9)+"5000"+Chr(9)+"Trou Perdu")
Table::AddLine(0,"3"+Chr(9)+"Henry Bouda"+Chr(9)+"6000"+Chr(9)+"Rixe en Puit")
Table::AddLine(0,"4"+Chr(9)+"Marcel Dubout"+Chr(9)+"7000"+Chr(9)+"Bahoba")
Table::DrawTable(0)
Repeat
      Event=WaitWindowEvent()
      Select Event
            Case #PB_Event_Gadget
                  Table::GereEvent(EventGadget(),0)
             
      EndSelect
Until Event=#PB_Event_CloseWindow

Code : Tout sélectionner

Table::GetData(ID_Table,N_Line,N_Column) ;--> Donne le data d'une colonne de ligne
Table::GetNewLine(ID_Table);--> Renvoie le numéro de la nouvelle ligne

Code : Tout sélectionner

XIncludeFile "Table.pbi"
Enumeration 
      #Id_Cli
      #Nom_Cli
      #Code_po_Cli
      #Localite_Cli
EndEnumeration
OpenWindow(0,0,0,1200,800,"Teste",#PB_Window_SystemMenu)
ButtonGadget(1,700,50,100,30,"Delete")
Table::Create(0,"Client",50,0,550,10)
Table::AddColumn(0,400,#Id_Cli,"ID",Table::#EtatInvible)
Table::AddColumn(0,300,#Nom_Cli,"Nom",Table::#EtatActif)
Table::AddColumn(0,100,#Code_po_Cli,"Code postal",Table::#EtatActif,Table::#ComboTP)
Table::AddColumn(0,150,#Localite_Cli,"Localite",Table::#EtatActif)
Table::AddLine(0,"1"+Chr(9)+"Jean Durant"+Chr(9)+"60/70/80@/90"+Chr(9)+"Ville Noir")
Table::AddLine(0,"2"+Chr(9)+"Pierre Dubon"+Chr(9)+"60/70/80/90@"+Chr(9)+"Trou Perdu")
Table::AddLine(0,"3"+Chr(9)+"Henry Bouda"+Chr(9)+"60@/70/80/90"+Chr(9)+"Rixe en Puit")
Table::AddLine(0,"4"+Chr(9)+"Marcel Dubout"+Chr(9)+"60/70@/80/90"+Chr(9)+"Bahoba")
Table::SelectLine(0,1)
Table::DrawTable(0)
Repeat
      Global N_Ligne
      Event=WaitWindowEvent()
      Select Event
            Case #PB_Event_Gadget
                  Table::GereEvent(EventGadget(),0)
                  Select EventGadget()
                        Case 1
                              N_Ligne=Table::GetLineSelected(0)
                              If N_Ligne<>-1
                                    Debug Table::GetData(0,N_Ligne,#Nom_Cli)
                              EndIf
                  EndSelect
      EndSelect
Until Event=#PB_Event_CloseWindow