J'ai fait une procédure :
1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub P_Affichage(ByVal blnPremier As Boolean, ByVal blnPrecedent As Boolean, _
ByVal blnSuivant As Boolean, ByVal blnDernier As Boolean, _
ByVal blnMAJ As Boolean, ByVal blnModifier As Boolean, ByVal blnAjouter As Boolean)
btnPremier.Enabled = blnPremier
btnPrecedent.Enabled = blnPrecedent
btnSuivant.Enabled = blnSuivant
btnDernier.Enabled = blnDernier
btnMAJ.Enabled = blnMAJ
btnModifier.Enabled = blnModifier
btnAjouter.Enabled = blnAjouter
End Sub |
Et j'aimerais rajouter un paramètre du type
ByVal Propriete as property
et donc remplacer ".enabled" par ".Propriete". Cela me permettrait de pouvoir appeler la procdédure avec ".Locked" par exemple..Mais ça ne marche pas..
Merci d'avances et bonne journée
Partager