Je trouve aussi que +2000 lignes pour un convertisseur de valeur c'est beaucoup, il ne fait surement pas que ça.
Tu peux remplir des champs à la volée, sans avoir à cliquer sur un bouton..
Remplis les champs cm et pouces suivant.
Code : Tout sélectionner
OpenWindow(0,#PB_Ignore,#PB_Ignore, 400,400,"convert",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TextGadget(1, 1, 10, 200, 20,"Cm")
TextGadget(2, 205, 10, 200, 20,"Pouces")
StringGadget(3,1,25,50,40,"")
StringGadget(4,205,25,50,40,"")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 3
pouce.f = ValF(GetGadgetText(3))/2.54
SetGadgetText(4,StrF(pouce,2))
Case 4
cm.f = ValF(GetGadgetText(4))*2.54
SetGadgetText(3,StrF(cm,2))
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow