Code : Tout sélectionner
Procedure Matiere(Num, Nom.s)
AddGadgetItem(#Panel_0, Num, Nom)
Frame3DGadget(#Frame3D_0, 8, 8, 560, 230, "Rapport des interrogations")
ListIconGadget(#ListIcon_0, 18, 28, 540, 200, "Nom", 100, #PB_ListIcon_GridLines|#PB_ListIcon_HeaderDragDrop )
AddGadgetColumn(#ListIcon_0,2,"Date",75)
AddGadgetColumn(#ListIcon_0),0,"N°",25)
AddGadgetColumn(#ListIcon_0,3,"Point",60)
AddGadgetColumn(#ListIcon_0,4,"Commentaire",270)
Frame3DGadget(#Frame3D_1, 8, 248, 560, 80, "Moyenne des resultats")
TextGadget(#Text_0, 18, 268, 160, 20, "Total des interrogations :")
TextGadget(#Text_1, 18, 298, 160, 20, "Total des interrogrations sur 100 :")
StringGadget(Val(string(1)), 188, 268, 30, 20, "", #PB_String_ReadOnly | #PB_String_BorderLess)
StringGadget(Val(string(4)), 188, 298, 30, 20, "", #PB_String_ReadOnly | #PB_String_BorderLess)
StringGadget(Val(string(3)), 238, 268, 30, 20, "", #PB_String_ReadOnly | #PB_String_BorderLess)
StringGadget(Val(string(5)), 238, 298, 30, 20, " 100", #PB_String_ReadOnly | #PB_String_BorderLess)
TextGadget(#Text_2, 218, 268, 20, 20, " /")
TextGadget(#Text_3, 218, 298, 20, 20, " /")
TextGadget(#Text_4, 288, 268, 160, 20, "Total des interrogations sur 20 :")
StringGadget(Val(string(6)), 458, 268, 20, 20, "", #PB_String_ReadOnly | #PB_String_BorderLess)
StringGadget(#String_5, 498, 268, 20, 20, "20", #PB_String_ReadOnly | #PB_String_BorderLess)
TextGadget(#Text_5, 478, 268, 20, 20, " /")
TextGadget(#Text_6, 288, 298, 60, 20, "Mention :")
StringGadget(Val(string(7)), 458, 298, 60, 20, "", #PB_String_ReadOnly | #PB_String_BorderLess)
EndProcedure
???? (je veux ecrire dans le 'ListIconGadget')
Merci
@++ Laz`