PureBasic

Bonsoir à tous

Je ne comprends pas pourquoi mon TextGadget ne s'affiche pas ?

Enumeration
#wincb
#Printcb_txtchaine
#Printcb_chaine
#Printcb
EndEnumeration

If OpenWindow(#wincb,0,0,480,200,"Edition des codes barres",#PB_Window_SystemMenu |   #PB_Window_SizeGadget)
  SetWindowColor(#wincb,RGB(255, 255, 255)) 
  If CreateGadgetList(WindowID(#wincb))
    TextGadget(#Printcb_txtchaine,20,10,90,20,"Code barre >>")
    StringGadget(#Printcb_chaine,120,10,100,20,"fdsdfdf")
    ImageGadget(1,15,50,150,20,0)
  EndIf
  wrow=10
  wcol=230
  ButtonGadget(#Printcb,wcol,wrow,110,30,"Imprimer (#F2)")
EndIf

exitPrintCb=0

Repeat
EventId=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
   exitPrintCb=1
EndIf
Until exitPrintCb=1
End

Merci

Bonjour,

Parceque

Code : Tout sélectionner

ImageGadget(1,15,50,150,20,0)
#Printcb_txtchaine ; dans l'énumération vaut 1

Comme ceci ça fonctionne

Code : Tout sélectionner

Enumeration
#wincb
#Printcb_txtchaine
#Printcb_chaine
#Printcb
#Image
EndEnumeration

If OpenWindow(#wincb,0,0,480,200,"Edition des codes barres",#PB_Window_SystemMenu |   #PB_Window_SizeGadget)
  SetWindowColor(#wincb,RGB(255, 255, 255)) 
  If CreateGadgetList(WindowID(#wincb))
    TextGadget(#Printcb_txtchaine,20,10,90,20,"Code barre >>")
    StringGadget(#Printcb_chaine,120,10,100,20,"fdsdfdf")
    ImageGadget(#Image,15,50,150,20,0)
  EndIf
  wrow=10
  wcol=230
  ButtonGadget(#Printcb,wcol,wrow,110,30,"Imprimer (#F2)")
EndIf

exitPrintCb=0

Repeat
EventId=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
   exitPrintCb=1
EndIf
Until exitPrintCb=1
End

Merci beaucoup MicroDevWeb

(D'où, il vaut mieux s'habituer à utiliser des noms de constantes au lieu de caractères numériques)

Grand merci pour ton aide

PureBasic

[RESOLU] Mon TextGadget ne s'affiche pas !

[RESOLU] Mon TextGadget ne s'affiche pas !

Re: Mon TextGadget ne s'affiche pas !

Re: Mon TextGadget ne s'affiche pas !