GDG Macros Lesson 28 Part 3 of 7: Apply a color to a form command button, loop form controls, and save and get the color from registry

HI Everyone! Big Smile

In this lesson we will consolidate code to prevent code reuse. Follow along as we demonstrate by doing the following and more:

Apply a color to a form command button, loop form controls, and save and get the color from registry

Part 3 of  7

As always If anyone wants to contribute to these posts with any tips or things to add I think it would be great.

You could let us know:

-How you do it (or better).

-Your suggestions

-Any screw up I said or did in the video.

-Any extra tips about the subject.

-Feedback

~John

Parents
  • getting an error = Runtime Error '424' Object Required.

    here is what I have where the error is showing:

     

    Private Function getCol(i%) As Color

        Dim strCol$

        Set getCol = New Color
        strCol = GetSetting(cMACRONAME, "Pref_" & VersionMajor, "col_" & i, col.ToString)
       
        If strCol = "" Then
        getCol.RGBAssign 204, 204, 204
        Else

        getCol.StringAssign strCol

        End If

    End Function

Reply Children
No Data