hi,
je voudrais pouvoir controler la saisie à l'interieur d'un stringgadget,
i.e : controler la longueur, le masque de saisie (par exemple : refuser un chiffre en 3eme position)...
pour cela, j'ai besoin de :
1/ savoir si un evement "touche appuyée" a été généré sur mon stringgadget
2/ récupérer la touche et sa position dans la chaine
le tout si possible en conservant la portabilité du langage. (je dois pouvoir utiliser le code sous linux)
merci d'aance pour vos nombreuses réponses
A+
gestion avancee des stringgadget
Merci pour ton aide, j'ai jetté un oeil sur ces macros.
Ca me permet en effet de récupérer le caractère saisi, mais je ne connais pas son rang dans la chaine. Ce n'est pas forcement à la suite du dernier caractère, si l'utilisateur déplace le curseur souris en plein milieu de la chaine, je dois etre capable de l'insérer à sa bonne place...
A+
SID
Ca me permet en effet de récupérer le caractère saisi, mais je ne connais pas son rang dans la chaine. Ce n'est pas forcement à la suite du dernier caractère, si l'utilisateur déplace le curseur souris en plein milieu de la chaine, je dois etre capable de l'insérer à sa bonne place...
A+
SID
ça te vas pas ça ? 
; Codé par Dobro
; en purebasic 4.00
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#String_0
#Text_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow ( #Window_0 , 216, 0, 600, 300, "New window ( 0 )" , #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList ( WindowID ( #Window_0 ))
StringGadget ( #String_0 , 50, 30, 150, 20, "" , #PB_String_Numeric )
TextGadget ( #Text_0 , 50, 60, 140, 20, "Limité a 6 caracteres chiffre" )
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat ; Start of the event loop
Event = WaitWindowEvent () ; This line waits until an event is received from Windows
WindowID = EventWindow () ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget () ; Is it a gadget event?
EventType = EventType () ; The event type
;You can place code here, and use the result as parameters for the procedures
If Event = #PB_Event_Gadget
If GadgetID = #String_0
text$= GetGadgetText ( #String_0 )
If Len ( text$)>6
text$= Left (text$,6)
StringGadget ( #String_0 , 50, 30, 150, 20, "" , #PB_String_ReadOnly|#PB_String_Numeric )
StringGadget ( #String_0 , 50, 30, 150, 20, "" , #PB_String_Numeric )
SetGadgetText ( #String_0 , text$)
EndIf
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;
Salut Dobro,
Merci pour ton petit code. Il permet effectivement de gérer le nombre maximum de caractères à saisir, mais ne permet pas de filtrer les caractères de facon individuelle. i.e : je ne peux pas imposer un masque de saisie de la forme : <+/-><1-9><0-9><0-9><0-9><.><0-9><0-9>
ou encore plus spécifique : <A|b|c><0-9><X|Y><&|#>
you see what i mean ?
Bye
SID
Merci pour ton petit code. Il permet effectivement de gérer le nombre maximum de caractères à saisir, mais ne permet pas de filtrer les caractères de facon individuelle. i.e : je ne peux pas imposer un masque de saisie de la forme : <+/-><1-9><0-9><0-9><0-9><.><0-9><0-9>
ou encore plus spécifique : <A|b|c><0-9><X|Y><&|#>
you see what i mean ?
Bye
SID
xMask - A Masked Edit Gadget : http://www.purebasic.fr/english/viewtopic.php?t=14904
sinon tu as ce code 
ou bien celui ci de Jacobus , Si je me souviens bien
Code : Tout sélectionner
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=3279&highlight=
; Author: Sylvia
; Date: 29. December 2003
;**********************************
;* 2003 Dec.29 "Sylvia" GermanForum
;**********************************
Procedure.s StringUsing(Format$,Wert)
; Liefert einen formatierten Zahlenstring zurück
;
; Format$ = Erste 2 Zeichen= ">$" = Wert wird Hexadezimal konvertiert
; Erste 2 Zeichen= ">%" = Wert wird Binär konvertiert
;
; 0 Ziffer/Vorzeichen oder zwingend 0
; # Ziffer/Vorzeichen oder Blank
;
; andere Zeichen werden 1:1 ausgegeben
;
; Result$ = formatierter Zahlenstring
Protected Result$,a,Wert$
Result$=""
If Len(Format$)=0: Goto StringUsingEnd: EndIf
; Wert in Hex/Binär/Dezimal-String umwandeln
Select Left(Format$,2)
Case ">$": Wert$=Hex(Wert): Format$=Right(Format$,Len(Format$)-2)
Case ">%": Wert$=Bin(Wert): Format$=Right(Format$,Len(Format$)-2)
Default: Wert$=Str(Wert)
EndSelect
; Result$ von hinten auffüllen
For a=Len(Format$) To 1 Step -1
Select Mid(Format$,a,1)
Case "0"
If Len(Wert$)
Result$=Right(Wert$,1)+Result$
Wert$=Left(Wert$,Len(Wert$)-1)
Else
Result$="0"+Result$
EndIf
Case "#"
If Len(Wert$)
Result$=Right(Wert$,1)+Result$
Wert$=Left(Wert$,Len(Wert$)-1)
Else
Result$=" "+Result$
EndIf
Default
Result$=Mid(Format$,a,1)+Result$
EndSelect
Next a
StringUsingEnd:
ProcedureReturn Result$
EndProcedure
; Beispiele
a$=">% %######## ########": Zahl= 123456789: Debug StringUsing(a$,Zahl)
a$=">%%0000 0000 0000 0000": Zahl= 123456789: Debug StringUsing(a$,Zahl)
Debug ""
a$=">$ 00 00 00 00": Zahl= 123456789: Debug StringUsing(a$,Zahl)
a$=">$ 0000 0000": Zahl= 123456789: Debug StringUsing(a$,Zahl)
Debug ""
a$="###0.000 kByte": Zahl= 123456789/1024: Debug StringUsing(a$,Zahl)
; ExecutableFormat=Windows
; FirstLine=1
; EOFou bien celui ci de Jacobus , Si je me souviens bien
Code : Tout sélectionner
Procedure.s FormatNumber(format.s,Number.f, Unit.s)
Ret.s = ""
EntF.l = FindString(format,".",1)-1
DecF.l = Len(format)-EntF-1
EntN.l = Len(Str(Number))
CarF.s = Left(format,1)
If CarF = "#"
CarF = " "
EndIf
If EntF => EntN
Ret = Space(EntF-EntN)+StrF(Number,DecF)
Ret = ReplaceString(Ret," ",CarF)
Else
Ret = Space(EntF)+"."+Space(DecF)
Ret = ReplaceString(Ret," ","x")
EndIf
Ret + Unit
ProcedureReturn Ret
EndProcedure
; Exemples
exemple.s = FormatNumber("0######.##",2355.236," cm")+Chr(13)
exemple + FormatNumber("0###.##",231155.236," dl")+Chr(13)
exemple + FormatNumber(" #######.###",-255.18," m²")+Chr(13)
exemple + FormatNumber("######.##",857.596," Km")+Chr(13)
exemple + FormatNumber("_######.##",2355.236,"")
MessageRequester("Exemples de formats possibles", exemple)