ACC: Using Code to Set Control's Colors

MORE INFORMATION

1. Open the sample database Northwind.MDB (or NWIND.MDB in version 2.0).
2. Create a module and type the following lines in the Declarations section:

         Option Explicit
         Dim SaveForeColor As Single
         Dim SaveBackColor As Single
   
         Const MyBackColor = 0
         Const MyForeColor = 16777215
   						

3. Type the following two Sub procedures:

         Sub SetControlColor (MyControl As Control)
         ' ******************************************************************
         ' Sub:     SetControlColor
         '
         ' Purpose: This procedure sets the colors of the referenced control.
         ' ******************************************************************
   
         On Local Error Resume Next
   
         ' Save the current control colors.
         SaveBackColor = MyControl.BackColor
         SaveForeColor = MyControl.ForeColor
   
         ' Set the custom colors.
         MyControl.BackColor = MyBackColor
         MyControl.ForeColor = MyForeColor
   
         End Sub
   
         Sub ReSetControlColor (MyControl As Control)
         ' ***********************************************************
         ' Sub: ReSetControlColor
         '
         ' Purpose: This procedure resets the colors of the referenced
         '          control.
         ' ***********************************************************
   
         On Local Error Resume Next
   
         ' Reset to the saved colors.
         MyControl.BackColor = SaveBackColor
         MyControl.ForeColor = SaveForeColor
   
         End Sub
   						

4. Save the module as SetColorModule.
5. Open the Employees form in Design view.
6. Set the OnEnter property of the LastName control to the following event procedure:

         Private Sub LastName_Enter ()
           Call SetControlColor([LastName])
         End Sub
   						

   NOTE: In version 2.0, there is a space in the Last Name field name.
7. Set the OnExit property of the LastName control to the following event procedure:

         Private Sub LastName_Exit (Cancel As Integer)
           Call ReSetControlColor([LastName])
         End Sub
   						

8. Save and close the form.

1. Open the Employees form in Form view.
2. Press the TAB key to move to the LastName control. Note that the background color of the control changes to black and foreground color changes to white.
3. Press TAB to move to the next control. Note that the original colors return to the LastName control.