tester l'erreur

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
eddy
Messages : 67
Inscription : mer. 09/avr./2008 2:08

tester l'erreur

Message par eddy »

Je continue mes tests.
Est-ce que ça plante au même endroit ?.

Code : Tout sélectionner

Structure GADVT
   GadgetType.i
   SizeOf.i
   
   *GadgetCallback
   *FreeGadget
   *GetGadgetState
   *SetGadgetState
   *GetGadgetText
   *SetGadgetText
   *AddGadgetItem2
   *AddGadgetItem3
   *RemoveGadgetItem
   *ClearGadgetItemList
   *ResizeGadget
   *CountGadgetItems
   *GetGadgetItemState
   *SetGadgetItemState
   *GetGadgetItemText
EndStructure
Structure GAD
   hwnd.i
   *VT.GADVT
EndStructure

OpenWindow(0, 0, 0, 222, 200, "test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(10, 10, 10, 200, 220, "header0", 100)
AddGadgetColumn(10, 1, "header1", 100)
AddGadgetItem(10, 0, "item0"+#LF$+"item1")

*g.GAD=IsGadget(10)

Prototype.s GetGadgetItemText_1(*g.GAD, pos, col, *a=0)
Global GetGadgetItemText_1.GetGadgetItemText_1=*g\VT\GetGadgetItemText

Prototype.s GetGadgetItemText_2(*g.GAD, pos, col)
Global GetGadgetItemText_2.GetGadgetItemText_2=*g\VT\GetGadgetItemText

Debug GetGadgetItemText_1(*g, 0, 0)
txt$=GetGadgetItemText_1(*g, 0, 0)
Debug txt$

Debug GetGadgetItemText_2(*g, 0, 0)
txt$=GetGadgetItemText_2(*g, 0, 0) ;<---- error
Debug txt$
Ollivier
Messages : 4197
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :

Message par Ollivier »

Ben oui! Par déduction, je dirais que tu ne peux pas enlever le nombre de paramètres requis dans les arguments du prototype. ça n'est pas très contraignant.
Répondre