PureBasic

Bonjour à tous

J'ai un ListIconGadget qui me fait des miseres, il mange une partie de la ligne 3

J'arrive pas a comprendre pourquoi la ligne 3 n'est pas ecrite entierement dedans puisque le debug la donne complete

Enumeration
 #FormListeElements
 #ListIconElements
EndEnumeration 

Global Dim TabloGadgets.s(3,3)

OpenWindow(#FormListeElements, 4, 77, 1118, 440, "", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
ListIconGadget(#ListIconElements, 11, 7, 1096, 423, "Column0", 100, #PB_ListIcon_FullRowSelect)
RemoveGadgetColumn(#ListIconElements, 0)

Lig + 1:AddGadgetColumn(#ListIconElements, Lig, "Id", 30)
Lig + 1:AddGadgetColumn(#ListIconElements, Lig, "Texte", 0)
Lig + 1:AddGadgetColumn(#ListIconElements, Lig, "Module", 30)

TabloGadgets(1, 1) = "111111111111"
TabloGadgets(2, 1) = "22222222222222"
TabloGadgets(3, 1) = "333333333333333"

; TabloGadgets(1, 2) = "44444444444444444"
; TabloGadgets(2, 2) = "555555555555555"
; TabloGadgets(3, 2) = "666666666666666"

TabloGadgets(1, 2) = "0"
TabloGadgets(2, 2) = "0"
TabloGadgets(3, 2) = "0"

TabloGadgets(1, 3) = "777777777777"
TabloGadgets(2, 3) = "888888888"
TabloGadgets(3, 3) = "999999999"

For i = 1 To 3
      
 PhraseGadget$ = "" 
 PhraseGadget$ + TabloGadgets(1, i) + Chr(10)
 PhraseGadget$ + TabloGadgets(2, i) + Chr(10)
 PhraseGadget$ + TabloGadgets(3, i) + Chr(10)
 
 ValeurLigne = Abs(Val(TabloGadgets(1, i)) + Val(TabloGadgets(2, i)) + Val(TabloGadgets(3, i)))
       
 If ValeurLigne
  Debug PhraseGadget$
  AddGadgetItem(#ListIconElements, i - 1, PhraseGadget$)
 EndIf 
 
Next

For i = 0 To 3
 SendMessage_(GadgetID(#ListIconElements), #LVM_SETCOLUMNWIDTH, i, #LVSCW_AUTOSIZE) 
Next

Repeat  
Until WaitWindowEvent() = #PB_Event_CloseWindow

CloseWindow(#FormListeElements)

Merci et bonne journée

Bon j'me repond...j'ai trouvé ce qui allait pas, j'ai enlevé le "i"

Code : Tout sélectionner

If ValeurLigne
  Debug PhraseGadget$
  AddGadgetItem(#ListIconElements, - 1, PhraseGadget$)
EndIf

2 heures hier et une aujourd'hui de recherche pour ça.....

Y'a des jours ...

Bonjour KCC
J'ai regardé ton code. Tu as été plus vite que moi pour trouver l'érreur.

Toutefois une petite question quand tu fais (If ValeurLigne) tu testes quoi?

Personnellement je ne fais jamais de if sans un test quelconque if ValeurLigne= ou <> ect
Pour moi comme tu as écrit ce n'est pas parlant.
si tu fais Debug ValeurLigne tu as soit un nombre soit 0 (zéro étant aussi un nombre, mais pas la même signification) le zéro étant dans le deuxième tour de boucle ?
Mais j'ai peut-être tort

PureBasic

ListIconGadget gourmant [Resolu]

ListIconGadget gourmant [Resolu]

Re: ListIconGadget gourmant

Re: ListIconGadget gourmant [Resolu]