Besoin du code clavier numérique [Résolu]
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
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
Salut
Pas compris le problème
tu as dix buttons 0 à 9
et 4 textboxes à quoi servent'ils ?
Pas compris le problème
tu as dix buttons 0 à 9
et 4 textboxes à quoi servent'ils ?
et je veux programmer le clavier d'une façon avec laquelle le clavier sois fonctioné
avec tous les txtBox
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
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