Besoin du code clavier numérique [Résolu]
assil06
Membre Dernière intervention
24 mai 2011
- - Dernière réponse :
4u4me4us
Membre Dernière intervention
30 octobre 2013
- 25 mai 2011 à 10:48
- Messages postés
- 6
- Date d'inscription
- lundi 23 mai 2011
- Statut
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
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
- Messages postés
- 6
- Date d'inscription
- lundi 23 mai 2011
- Statut
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
141 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6
- Date d'inscription
- lundi 23 mai 2011
- Statut
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
- Statut
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
- Messages postés
- 6
- Date d'inscription
- lundi 23 mai 2011
- Statut
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