Forum Liberty Basic France

Débutant » Retour sur "textbox" Pour Christophe
Le 16/09/2017 à 09h08

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2093
Pour revenir sur ce topic: http://libertybasic.fr/forum/topic-417+recuperer-le-texte-d-une-textbox.php
J'ai trouvé chez les anglophones ce truc qui fait la saisie instantanée de textbox
ça peut servir
Le mot de passe est: "ok"
Code VB :
 
 pwd$="ok"
        nomainwin
        WindowWidth = 285 : WindowHeight= 130
        'center the window
        UpperLeftX = (DisplayWidth-WindowWidth)/2
        UpperLeftY = (DisplayHeight-WindowHeight)/2
        'graphicbox is used to capture key input
        graphicbox #pass.gb, 0,0,0,0
        textbox #pass.tb, 1,20,275,25
        'ok button optional
        button #pass.default, "Ok", [ok],UL 100,60,70,25
        open "Enter Password" for window as #pass
        print #pass, "trapclose [quitpass]"
        print #pass, "font courier_new 10 bold"
        print #pass.gb, "setfocus"
        print #pass.tb, "password"
        print #pass.gb, "when characterInput [pwd]"
        c=0:p$="":flg=0
        goto[denytb]
        wait
        [pwd]
        timer 0
        if flg=1 goto [pwd1]
        #pass.gb,"setfocus"
        k=asc(mid$(Inkey$,len(Inkey$),1))
        print k
        if k=13 then goto[end]
        if k<>8 and k<>13 then c=c+1:p$=p$+chr$(k)
        if k=8 and flg=0 and c>0 then timer 0:c=c-1:p$=left$(p$,c):flg=1
        m$=""
      for i=1 to c
            m$=m$+"*"
      next
        #pass.tb,m$:#pass.gb,"setfocus":goto[denytb]
        wait
        [pwd1]
        timer 0:#pass.gb,"setfocus"
        flg=0
        goto[denytb]
        [denytb]
        timer 500,[t]:#pass.gb,"setfocus"
        wait
        [t]
        timer 0:#pass.gb,"setfocus"
        goto[denytb]
        [ok]
        [end]
      if p$=pwd$ then
            note$="you are logged in"
      else
            note$="wrong password"
      end if
        notice note$
       [quitpass]
        close#pass
        end
 
____________________
Roro

   
Débutant » Retour sur "textbox" Pour Christophe  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie