cs_Macuserman
Messages postés2Date d'inscriptionmardi 16 mars 2010StatutMembreDernière intervention28 avril 2010
-
28 avril 2010 à 10:44
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
28 avril 2010 à 18:03
Salut tout le monde !
Avec des collègues nous sommes sur un projet. Un Logiciel de code barre pour des élections ou autre bref.
Voila le code du bouton OK pour valider le nombre d'inscrit.
Private Sub Bouton_valide_nb_inscrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_valide_nb_inscrit.Click
' Si clique sur bouton OK
col.nb_inscrit = change_nb_inscrit() ' On change le nombre d'inscrits
Label3.Text = "" ' On remet le Label3 à rien, pour enlever le texte qui affiche la requête
TextBox1.Visible = False ' On enlève la TextBox1
Bouton_valide_nb_inscrit.Visible = False ' On enlève le bouton OK
Label2.Text = "Il y a actuellement " & col.nb_inscrit & " inscrits" ' Et on réaffiche la nouvelle valeur dans Label2
If (col.nb_inscrit_sauvegarde >= col.nb_inscrit) Then
Label2.Text = Label2.Text + ", entrez une valeur au dessus de " & col.nb_inscrit_sauvegarde ' Affiche les valeurs interdites
End If
candidat() ' On appel à nouveau candidat() pour gérer l'affichage des candidats dans le cas où le nombre d'inscrits est différent de zéro
If Not (col.nb_inscrit = 0) Then ' S'il y a au moins un inscrit, mettre Bouton_vote en enabled true, pour pouvoir commencer le vote
Bouton_vote.Enabled = True
End If
End Sub
Et la j'ai le code pour la toucher entrer
TextAEnvoyer_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
If Not Shift And KeyCode = 13 Then
Bouton_valide_nb_inscrit_Click()
KeyCode = 0
Or j'ai beau le placer à la fin ou au début rien ne change, ca ne fonctionne pas.
Je suis sous Visual basic 2008 et sous WIN7 sur MAC !(si ca change quelque chose...)