Je n'arrive pas à comprendre pourtant ça marche sur d'autres PC mais pas sur le mien (Portable Asus I3, clavier AZERTY, Douchette Av h125 simple).
Le code barre ne s'affiche pas après lecture du code barre avec douchette. Est ce un problème de configuration douchette ? ou bien erreur au niveau du code Pb?
Si vous avez une douchette, svp faites un test et dites moi ce que ça donne.
Merci d'avance
Code : Tout sélectionner
Enumeration
#Prod_Titre
#Prod_Frame
#Prod_txtCodebarre
#Prod_Codebarre
#Prod_TxtProd
#Prod_Prod
#Prod_Valider
#Prod_supprimer
#Prod_initialiser
#Prod_grid
EndEnumeration
Global ExitTable
ExitTable=0
OpenWindow(0, 0,0,800,460, "Test: lecture code barre avec douchette", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
TextGadget(#prod_Titre, 20, 20, 560, 30, "TABLE DES PRODUITS")
wrow=50 : wcol=200
TextGadget(#Prod_Txtcodebarre,20, wrow,90, 20, "Code barre:")
StringGadget(#Prod_codebarre,100, wrow,100, 20, "" )
TextGadget(#Prod_TxtProd,230, wrow, 150, 20, "Désignation du produit:")
StringGadget(#Prod_Prod,370, wrow, 280, 20, "" , #PB_String_UpperCase)
wrow=wrow+40
ButtonGadget(#Prod_supprimer,10,wrow, 100, 30, "Supprimer")
ButtonGadget(#Prod_valider, 670,wrow, 100, 30, "Valider")
wrow=wrow+40
ListIconGadget(#Prod_Grid, 10, wrow, 760, 300, "Code barre", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect)
AddGadgetColumn(#Prod_Grid,1, "Désignation du produit",300)
SetActiveGadget(#Prod_codebarre)
Repeat
EventId=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Exittable=1
EndIf
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Prod_valider
;Prod_valider()
Case #Prod_supprimer
;Prod_supprimer()
EndSelect
EndIf
Until exitTable=1
End