Vb6 programmer bouton enter
tche17
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis un cour d'informatique au secondaire et en se moment nous fesont un logiciel qui solicite un bouton pour calculer mais jaimerais que si que pèse sur le bouton enter sur mon clavier cela active la programation que jai dans mon bouton comme si je le fesais avec ma souris...mais voile je nest aucune idée de comme le faire !
merci de vos reponce :)
je travaille avec visual basic 6 si cela peut vous aider!
Je suis un cour d'informatique au secondaire et en se moment nous fesont un logiciel qui solicite un bouton pour calculer mais jaimerais que si que pèse sur le bouton enter sur mon clavier cela active la programation que jai dans mon bouton comme si je le fesais avec ma souris...mais voile je nest aucune idée de comme le faire !
merci de vos reponce :)
je travaille avec visual basic 6 si cela peut vous aider!
A voir également:
- Vb6 programmer bouton enter
- Vb6 - Télécharger - Divers Utilitaires
- Programmer sms - Guide
- Programmer mail gmail - Guide
- Bouton reinitialisation pc - Guide
- Press del to enter setup ✓ - Forum Windows
3 réponses
Bonjour,
Avec l'événement KeyDown de ta forme.
Dans le module de la forme, en dessous du code du bouton tu met...
Avec l'événement KeyDown de ta forme.
Dans le module de la forme, en dessous du code du bouton tu met...
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Command1_Click
End If
End SubA+
ouais mais quand je fait le if et que je met la programmation de dans sa ne fonctionne pas :( jai un for d'intégrer de dans...ect-ce que je peut faire cette action? si cela taide voila se que jai faite
Private Sub cmdcalculer_Click()
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)
For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i
End Sub
Private Sub cmdcalculer_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)
If (KeyCode = vbKeyReturn) Then
For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i
End If
End Sub
Private Sub cmdcalculer_Click()
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)
For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i
End Sub
Private Sub cmdcalculer_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)
If (KeyCode = vbKeyReturn) Then
For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i
End If
End Sub
Tu supprime la sub que tu a fais et tu copie RIGOUREUSEMENT la sub que j'ai mis, en d'autre terme.. TU CHANGE RIEN.
Pour avoir...(supposant que le nom de ton bouton est cmdcalculer)
Pour que ça fonctionne tu doit mettre la propriété KeyPreview de la forme à True
A+
Pour avoir...(supposant que le nom de ton bouton est cmdcalculer)
Private Sub cmdcalculer_Click()
Dim i, montant, banque
montant = Val(txtmontantannullement.Text)
interet = Val(txtinteret)
annee = Val(txtannee)
For i = 1 To annee
banque = banque + montant
banque = (1 + (interet / 100)) * banque
lblmontantaffichage.Caption = banque
Next i
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmdcalculer_Click
End If
End Sub
Pour que ça fonctionne tu doit mettre la propriété KeyPreview de la forme à True
A+