- Charte d'utilisation de CodeS-SourceS - Aspects légaux
- Charte de Codes-SourceS -- Neutralité
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte d'utilisation de Codes Sources
- Charte de CommentCaMarche.net - Conseils d'écriture
Besoin du code clavier numérique [Résolu]
assil06
- Messages postés
- 6
- Date d'inscription
- lundi 23 mai 2011
- Dernière intervention
- 24 mai 2011
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Dernière intervention
- 30 octobre 2013
A voir également:
- Besoin du code clavier numérique
- Javascript : Clavier numerique securisé - CodeS SourceS - Guide
- Code clavier - Codes sources - Visual Basic / VB.NET (Modules)
- Flash : Un petit jeux avec code clavier - CodeS SourceS - Guide
- Code horloge numérique dans une application ✓ - Forum - Delphi / Pascal
- Envoyer un code clavier à une appli directx ✓ - Forum - C# / .NET
10 réponses
Meilleure réponse
emmmmmmmmmmmm c booon je trouve la solution
j'utilise le code suivant
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
mode = True
End Sub
Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
mode = False
End Sub
Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, b8.Click, b9.Click
If mode = True Then
TextBox1.Text = TextBox1.Text + sender.text
ElseIf mode = False Then
TextBox2.Text = TextBox2.Text + sender.text
End If
End Sub
j'utilise le code suivant
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
mode = True
End Sub
Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
mode = False
End Sub
Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, b8.Click, b9.Click
If mode = True Then
TextBox1.Text = TextBox1.Text + sender.text
ElseIf mode = False Then
TextBox2.Text = TextBox2.Text + sender.text
End If
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
91 internautes nous ont dit merci ce mois-ci
Mon application c'est pour un Mobile' s'appel le terminal pc' pour relever des index
et Mon interface contient Des touches numériques de 0 jusqu’à 9 pour permettre à l'utilisateur d’effectuer la saisie des index dans les TextBox sans être obligé d’afficher le clavier du Terminal
et moi j'arrive pas de la programmer
c'est exactement comme une calculatrice mais avec 4 text box
mercii
et Mon interface contient Des touches numériques de 0 jusqu’à 9 pour permettre à l'utilisateur d’effectuer la saisie des index dans les TextBox sans être obligé d’afficher le clavier du Terminal
et moi j'arrive pas de la programmer
c'est exactement comme une calculatrice mais avec 4 text box
mercii
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Dernière intervention
- 30 octobre 2013
Dans ton code tu mets "If mode = True Then". visiblement ta variable mode et global et tu ne la maitrise pas. Donc je te propose de supprimer ton if rien que pour voir si tu peut mettre plus d'un chiffre. Si oui alors il faut que tu repense l'utilisation de ta var mode, Si non le problème et autre. Regrede
redis moi
dim mode as boolean Private Sub b0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, b8.Click, b9.Click 'If mode = True Then 'txtbox1.Text = "" 'mode = False 'End If txtbox1n.Text = txtbox1.Text + sender.text End Sub
redis moi
oui ça marche bien avec le premier TxtBox,
Mais moi j'ai plus que 1 txtBox et je veux que le clavier fonction avec les autres TxtBoxs j'ai mais le code suivant,Mais si je clique sur un boutton du clavier il me donne la même valeur dans tous les txtbox en meme temps:
Private Sub b0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, b8.Click, b9.Click
txtbox4.Text = txtbox4.Text + sender.text
txtbox2.Text = txtbox2.Text + sender.text
txtbox3.Text = txtbo3.Text + sender.text
txtbox1n.Text = txtbox1.Text + sender.text
End Sub
Mais moi j'ai plus que 1 txtBox et je veux que le clavier fonction avec les autres TxtBoxs j'ai mais le code suivant,Mais si je clique sur un boutton du clavier il me donne la même valeur dans tous les txtbox en meme temps:
Private Sub b0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b0.Click, B1.Click, B2.Click, B3.Click, B4.Click, B5.Click, B6.Click, B7.Click, b8.Click, b9.Click
txtbox4.Text = txtbox4.Text + sender.text
txtbox2.Text = txtbox2.Text + sender.text
txtbox3.Text = txtbo3.Text + sender.text
txtbox1n.Text = txtbox1.Text + sender.text
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.