ACC2000 : Comment faire pour modifier la couleur d'arrière-plan contrôle active avec l'événement Timer

Traductions disponibles Traductions disponibles
Numéro d'article: 210187 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Options avancées : nécessite codage expert, de l'interopérabilité et de compétences multi-utilisateur.

Agrandir tout | Réduire tout

Résumé

Cet article présente une méthode que vous pouvez utiliser pour modifier la couleur d'arrière-plan du contrôle actif dans un formulaire. Cette méthode est modifie la couleur d'arrière-plan des actif contrôle qui prend en charge la propriété BackColor .

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Plus d'informations

Pour créer la méthode qui modifie la couleur d'arrière-plan du contrôle actif dans un formulaire, procédez comme suit.

attention : suivez les étapes décrites dans cet exemple montre comment modifiera la base de données exemple Comptoir.mdb sera modifiée. Vous souhaiterez peut-être sauvegarder les Comptoirs.mdb ou effectuer ces étapes sur une copie de la base de données Les Comptoirs.
  1. Ouvrez la base de données exemple Comptoir.mdb sera modifiée.
  2. Dans la fenêtre base de données, cliquez sur modules sous objets , puis cliquez sur Nouveau .
  3. Dans la section Déclarations du module, tapez la ligne suivante :
    Global myctrname as String
    
  4. Enregistrez le module sous Module1, puis fermez le module.
  5. Ouvrez le formulaire Clients en mode Création.
  6. Définissez la propriété OnTimer du formulaire clients à la procédure événementielle suivante :
    Private Sub form_Timer ()      
    
    Dim lngYellow As Long, lngWhite As Long
        On Error GoTo Errhandler
        lngYellow = RGB(255, 255, 0)     'Set lngYellow variable for
                                         'yellow color.
        lngWhite = RGB(255, 255, 255)    'Set lngWhite variable for white
                                         'color.
    
        If Screen.ActiveControl.Name <> myctrname Then  ' If active
                                                        ' control not
                                                        ' equal to
                                                        ' myctrname do
                                                        ' next line.
        Me(myctrname).BackColor = lngWhite            ' Set myctrname
                                                      ' variable to white
                                                      ' BackColor.
        Screen.ActiveControl.BackColor = lngYellow    ' Set active color
                                                      ' BackColor to
                                                      ' yellow.
        myctrname = Screen.ActiveControl.Name         ' Set myctrname
                                                      ' variable to
                                                      ' active control
                                                      ' name.
        End If
    
    Exit Sub
    
    Errhandler:
    If Err = 2465 Then        ' If error is 2465 which is "Object-defined
                              ' error."
    Resume Next               ' Resume running on next line after error.
    ElseIf Err = 2474 Then    ' If error is 2474 which is "No Control is
                              ' active."
    Resume Next
    Else
       MsgBox Err & " " & Error   ' Show Error number and string of error
                                  ' value.
    Exit Sub
    End If
    
    End Sub
    
  7. Définissez la propriété TimerInterval du formulaire clients à 200.
  8. Affichez le formulaire Clients en mode formulaire. Appuyez sur TAB pour passer d'un contrôle à un autre. Notez que les modifications couleur d'arrière-plan de blanc jaune pour chaque contrôlent qui reçoit le focus.
Remarque : la propriété TimerInterval utilise millisecondes (1 000 = une seconde). Nombres plus petits générer plus rapides de réponses. Vous devrez peut-être expérimenter les numéros pour obtenir l'effet souhaité.

Références

Pour plus d'informations sur les couleurs d'arrière-plan, cliquez sur l'aide de Microsoft Access dans le menu Aide , tapez changer la couleur d'arrière-plan d'un contrôle ou d'une section dans le Compagnon Office ou l'aide intuitive et puis cliquez sur Rechercher pour afficher la rubrique.

Propriétés

Numéro d'article: 210187 - Dernière mise à jour: dimanche 9 février 2014 - Version: 2.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 2000 Standard Edition
Mots-clés : 
kbnosurvey kbarchive kbmt kbhowto kbprogramming kbusage KB210187 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 210187
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com