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

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.

210187
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.

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 IfExit SubErrhandler: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 NextElse   MsgBox Err & " " & Error   ' Show Error number and string of error                              ' value.Exit SubEnd IfEnd 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.
fichier INF

Avertissement : Cet article a été traduit de manière automatique

Propriétés

ID d'article : 210187 - Dernière mise à jour : 02/09/2014 21:01:19 - Révision : 2.2

  • Microsoft Access 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbhowto kbprogramming kbusage KB210187 KbMtfr
Commentaires