French ButtonEvent

[JJM]

Bonjour,
dans le Beginners GuideV1_6 il y a un programme(2) qui permet d'entrer des chiffres grace au clavier créé. En fait cela ne marche pas; aucune donnée n'est envoyée dans:
**************
Sub btnEvent_Click ' les boutons se nomment btn0 à btn9
Dim Send As Button
Send =Sender

Select Send.Tag
Case "BS"
If lb1Result.Text.Length >0 Then
lb1Result.Text=lb1Result.Text.SubString2(0,lb1Result.Text.Length-1)
End If
Case Else
lb1Result.Text=lb1Result.Text & Send.Tag
End Select

End Sub
************
Pourriez-vous m'expliquer si c'est bien ainsi qu'il faut définir l'Event pour les boutons?
Par avance merci.
JJ M

 

[klaus]

Est-ce vous avez défini la propriété Tag des boutons comme expliqué à la page 39 ?
Est-ce que vous avez entré btnEvent comme propriété EventName.
Vous pouvez aussi mettre un 'breakpoint' (page 64) à l'entrée de la routine pour vérifier si celle-ci est appelée.
Sinon vous pouvez envoyer votre code sous forme de fichier zip et j'y jetterai un coup d'oeil.

Meilleures salutations.

 

[JJM]

Button Event

Merci Klaus,

J'avais oublié de mettre btnEvent comme propriété de Event Name.
Effectivement comme cela le programme fonctionne beaucoup mieux!!!...

Merci encore et bonne soirée.

JJ M