Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic valider avec touche ENTER

valider avec touche ENTER

1 réponse
Avatar
JohnPaulGeorgesRingo
j'accede a mon back office par une page de connection avec un code
utilisateur et un mot de passe pour ensuite valider par appuie sur un
bouton.
J'aimerais qu'en appuyant sur la touche "ENTER", qu'il puisse valider la
saisie sans que l'on doive absolument appuyer sur le bouton avec la souris
j'ai vu une solution en c#
je la cherche en aps VB.net

j'ai ajouté a mon textbox "OnTextChanged="entree""
puis je ne sais que faire dans le module "entree" pour lancer le module
"login" servant a declancherune action via le bouton (onclick="Login")

j'ai franchement besoin de vos lumieres

--------------CODE ASPX--------------
<body background=".fond">
<form runat="server">
<asp:label id="message" runat="server"></asp:label>
<hr>
<h2>Admin - Connector</h2>
<table>
<tr>
<td>Nom utilisateur :</td>
<td><asp:textbox id="userName" runat="server"></asp:textbox></td>
</tr>
<tr>
<td>Mot de passe :</td>
<td><asp:textbox id="TBPassword" runat="server" OnTextChanged="entree"
AutoPostBack="True" TextMode="password"></asp:textbox></td>
</tr>
<tr>
<td align="right" colSpan="2"><asp:button id="Button1" onclick="Login"
runat="server" Text="Se connecter"></asp:button></td>
</tr>
</table>
</form>
</body>


--------------CODE ASPX.VB--------------

imports System.Web.Security

Public Class Connexion
Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Placez ici le code utilisateur pour initialiser la page

End Sub

Private Sub entree(ByVal sender As Object, ByVal e As EventArgs)
Button1.OK()?????
Login(e) ????


End Sub
Private Sub Login(ByVal sender As Object, ByVal e As EventArgs)
If FormsAuthentication.Authenticate(userName.Text, TBPassword.Text)
Then

FormsAuthentication.RedirectFromLoginPage(userName.Text, True)
Else
message.Text = "La connexion a échoué. Essayez à nouveau."
End If
End Sub


End Class
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JohnPaulGeorgesRingo
ah oui j'ai oublié "bonjour" ;=)
ce n'est qu'un petit rien, mais ça fait tjrs plaisir non ?

"JohnPaulGeorgesRingo" a
écrit dans le message de news:
j'accede a mon back office par une page de connection avec un code
utilisateur et un mot de passe pour ensuite valider par appuie sur un
bouton.
J'aimerais qu'en appuyant sur la touche "ENTER", qu'il puisse valider la
saisie sans que l'on doive absolument appuyer sur le bouton avec la souris
j'ai vu une solution en c#
je la cherche en aps VB.net

j'ai ajouté a mon textbox "OnTextChanged="entree""
puis je ne sais que faire dans le module "entree" pour lancer le module
"login" servant a declancherune action via le bouton (onclick="Login")

j'ai franchement besoin de vos lumieres

--------------CODE ASPX--------------
<body background=".fond">
<form runat="server">
<asp:label id="message" runat="server"></asp:label>
<hr>
<h2>Admin - Connector</h2>
<table>
<tr>
<td>Nom utilisateur :</td>
<td><asp:textbox id="userName" runat="server"></asp:textbox></td>
</tr>
<tr>
<td>Mot de passe :</td>
<td><asp:textbox id="TBPassword" runat="server"
OnTextChanged="entree" AutoPostBack="True"
TextMode="password"></asp:textbox></td>
</tr>
<tr>
<td align="right" colSpan="2"><asp:button id="Button1" onclick="Login"
runat="server" Text="Se connecter"></asp:button></td>
</tr>
</table>
</form>
</body>


--------------CODE ASPX.VB--------------

imports System.Web.Security

Public Class Connexion
Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Placez ici le code utilisateur pour initialiser la page

End Sub

Private Sub entree(ByVal sender As Object, ByVal e As EventArgs)
Button1.OK()?????
Login(e) ????


End Sub
Private Sub Login(ByVal sender As Object, ByVal e As EventArgs)
If FormsAuthentication.Authenticate(userName.Text, TBPassword.Text)
Then

FormsAuthentication.RedirectFromLoginPage(userName.Text, True)
Else
message.Text = "La connexion a échoué. Essayez à nouveau."
End If
End Sub


End Class