afficher en temp reel le nombre de caractere saisit par un u

[Emile]

bonjourcomment faire dans un masque pour qu'un utilisateur ne puisse pas tapper plus de 300 caractere dans un champ texte et pr afficher ce nombre de caractere en temp reel pour qu'il voit qaund s'arreterje vous remercie d'avance

[oguruma]

à priori c'est du ressort des api C et l'os... si appli web... applet java

[emile]

pourrai tu etre plus precis?je débute et je ne comprend pas bien

[Teamlogeur]

Sur l'action OnKeyPress ajouter un petit agent Javascript// ici je limite à 250ControleLibelleSortie(this,250);// la fonction appelée :function ControleLibelle(elem, longueur,codetouche){ if (LongeurSaisie(elem.value)>longueur-1) { alert(MSG_LONG + longueur + " caractères"); return false; }}// qui utilise (avec gestion des retours chariot) :function LongeurSaisie(maChaine, max){ var nbCHR10=0; var nbCHR13=0; for(var k=0;k<maChaine.length;k++) { if(maChaine.charCodeAt(k)==13) nbCHR13++; if(maChaine.charCodeAt(k)==10) nbCHR10++; } return(maChaine.length-nbCHR10+2*nbCHR13);}// une ptite fonction qui l utilise égalementfunction VerifLongueur(monChamp,max) {if(LongeurSaisie(monChamp.value) > max) {tmp = monChamp.value.substr(0,max);while(LongeurSaisie(tmp) > max) {tmp = tmp.substr(0,tmp.length-1);}monChamp.value = tmp;alert(msg_long1+max+msg_long2);monChamp.focus();}}

[Emile]

super ca marche nikel en mode web !!!!!!!!!!!!!bravo a toiest ce aussi possible pour que ca marche en prévisualisation notes?

[Teamlogeur]

Si tu es en Domino v6 tu peux executer du javascript sur certains évenements, malheureusement pas avec OnKeyPress...Tu peux peut-être essayer avec onBlur, le contrôle s'exécutera à la perte du focus, c'est pas terrible mais c'est mieux que rien.

[Droad]

Un moyen (pas terrible): vérifier pérodiquement la taille du texte à l'aide d'un NoteTimer.Ex: 1) Un champ 'Texte' (Declaration):Dim LengthCheckTimer As NotesTimerConst MAX_LEN = 20Entering:LengthCheckTimer.Enabled = TrueExiting:LengthCheckTimer.Enabled = FalseInitialize:Set LengthCheckTimer = New NotesTimer(1)LengthCheckTimer.Enabled = FalseOn Event Alarm From LengthCheckTimer Call CheckLengthA coller:Sub CheckLength(Source As NotesTimer) Dim ws As New NotesUIWorkspace, uidoc As NotesUIDocument Dim t As String, lg As Integer Set uidoc = ws.CurrentDocument Set doc = uidoc.Document t = uidoc.FieldGetText("Texte") lg = Len(t) If (lg>MAX_LEN ) Then Msgbox "Text trop long ( caractères " & MAX_LEN & "max.)" Call uidoc.FieldSetText("Texte", Left(t,MAX_LEN )) lg = MAX_LEN End If Call uidoc.FieldSetText("LongueurTexte", lg & "")End Sub2) Un champ 'LongueurTexte', numérique, éditable, décocher l'option 'afficher les délimiteur', par défaut : 0, conversion d'entrée: @Length(Texte)Entering:Dim ws As New NotesUIWorkspaceCall ws.CurrentDocument.GotoPrevField()[%sig%]