Codigo Plus

Descargar Archivo
Titulo	Colores en Botones
Descripcion	Cambiar el color de las letras y de fondo de los botones
Descargas	1019
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Option</span> <span style="color: #0000FF">Explicit</span>

<span style="color: #008000">'non-vb colours</span>
<span style="color: #0000FF">Const</span> vbDarkRed = &H90&
<span style="color: #0000FF">Const</span> vbDarkBlue = &H900000

<span style="color: #008000">'consts for the Command1 button control array</span>
<span style="color: #0000FF">Const</span> nDefault = 0
<span style="color: #0000FF">Const</span> nRed = 1
<span style="color: #0000FF">Const</span> nGreen = 2
<span style="color: #0000FF">Const</span> nBlue = 3
<span style="color: #0000FF">Const</span> nYellow = 4
<span style="color: #0000FF">Const</span> nMagenta = 5
<span style="color: #0000FF">Const</span> nCyan = 6
<span style="color: #0000FF">Const</span> nWhite = 7
<span style="color: #0000FF">Const</span> nDkRed = 8
<span style="color: #0000FF">Const</span> nDkBlue = 9


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command2_Click()

   <span style="color: #0000FF">Unload</span> <span style="color: #0000FF">Me</span>
   
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Form_Load()

  <span style="color: #008000">'create the coloured buttons</span>
   RegisterButton Command1(nRed), vbRed
   RegisterButton Command1(nGreen), vbGreen
   RegisterButton Command1(nBlue), vbBlue
   RegisterButton Command1(nYellow), vbYellow
   RegisterButton Command1(nMagenta), vbMagenta
   RegisterButton Command1(nCyan), vbCyan
   RegisterButton Command1(nWhite), vbWhite
   RegisterButton Command1(nDkRed), vbDarkRed
   RegisterButton Command1(nDkBlue), vbDarkBlue

  <span style="color: #008000">'set the default backcolour</span>
   Option1(0).Value = <span style="color: #0000FF">True</span>
   
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Option1_Click(Index <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>)

   <span style="color: #0000FF">Dim</span> clrref <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

  <span style="color: #008000">'set the backcolour</span>
   <span style="color: #0000FF">Select</span> <span style="color: #0000FF">Case</span> Index
      <span style="color: #0000FF">Case</span> 0: clrref = vbButtonFace
      <span style="color: #0000FF">Case</span> 1: clrref = vbApplicationWorkspace
      <span style="color: #0000FF">Case</span> 2: clrref = vbBlack
      <span style="color: #0000FF">Case</span> 3: clrref = vbWhite
      <span style="color: #0000FF">Case</span> 4: clrref = vbRed
      <span style="color: #0000FF">Case</span> 5: clrref = vbGreen
      <span style="color: #0000FF">Case</span> 6: clrref = &H900000
      <span style="color: #0000FF">Case</span> 7: clrref = vbCyan
      <span style="color: #0000FF">Case</span> 8: clrref = vbMagenta
      <span style="color: #0000FF">Case</span> 9: clrref = vbYellow
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">Select</span>
   
   Command1(nRed).BackColor = clrref
   Command1(nGreen).BackColor = clrref
   Command1(nBlue).BackColor = clrref
   Command1(nYellow).BackColor = clrref
   Command1(nMagenta).BackColor = clrref
   Command1(nCyan).BackColor = clrref
   Command1(nWhite).BackColor = clrref
   Command1(nDkRed).BackColor = clrref
   Command1(nDkBlue).BackColor = clrref
   
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #008000">' En un Modulo</span>

<span style="color: #0000FF">Option</span> <span style="color: #0000FF">Explicit</span>

<span style="color: #0000FF">Private</span> colButtons  <span style="color: #0000FF">As</span> <span style="color: #0000FF">New</span> Collection
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> KeyConst = <span style="color: #B22222">"K"</span>
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> PROP_COLOR = <span style="color: #B22222">"SMDColor"</span>
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> PROP_HWNDPARENT = <span style="color: #B22222">"SMDhWndParent"</span>
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> PROP_LPWNDPROC = <span style="color: #B22222">"SMDlpWndProc"</span>
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> GWL_WNDPROC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = (-4)
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ODA_SELECT <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H2
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ODS_SELECTED <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H1
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ODS_FOCUS <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H10
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ODS_BUTTONDOWN <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = ODS_FOCUS <span style="color: #0000FF">Or</span> ODS_SELECTED
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> WM_DESTROY <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H2
<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> WM_DRAWITEM <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = &H2B

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> RECT
   Left        <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   Top         <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   Right       <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   Bottom      <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> SIZE
   cx          <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   cy          <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> DRAWITEMSTRUCT
   CtlType     <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   CtlID       <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   itemID      <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   itemAction  <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   itemState   <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   hWndItem    <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   hDC         <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   rcItem      <span style="color: #0000FF">As</span> RECT
   itemData    <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> CallWindowProc Lib <span style="color: #B22222">"user32"</span> _
    Alias <span style="color: #B22222">"CallWindowProcA"</span> _
   (<span style="color: #0000FF">ByVal</span> lpPrevWndFunc <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> msg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    lParam <span style="color: #0000FF">As</span> DRAWITEMSTRUCT) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetParent Lib <span style="color: #B22222">"user32"</span> _
    (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetProp Lib <span style="color: #B22222">"user32"</span> _
    Alias <span style="color: #B22222">"GetPropA"</span> _
   (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> lpString <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> GetTextExtentPoint32 Lib <span style="color: #B22222">"gdi32"</span> _
    Alias <span style="color: #B22222">"GetTextExtentPoint32A"</span> _
   (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> lpSz <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, _
    <span style="color: #0000FF">ByVal</span> cbString <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    lpSize <span style="color: #0000FF">As</span> SIZE) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> RemoveProp Lib <span style="color: #B22222">"user32"</span> _
    Alias <span style="color: #B22222">"RemovePropA"</span> _
   (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> lpString <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SetProp Lib <span style="color: #B22222">"user32"</span> _
    Alias <span style="color: #B22222">"SetPropA"</span> _
   (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> lpString <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, _
    <span style="color: #0000FF">ByVal</span> hData <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SetTextColor Lib <span style="color: #B22222">"gdi32"</span> _
    (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> crColor <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SetWindowLong Lib <span style="color: #B22222">"user32"</span> _
    Alias <span style="color: #B22222">"SetWindowLongA"</span> _
   (<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> nIndex <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> dwNewLong <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> TextOut Lib <span style="color: #B22222">"gdi32"</span> _
    Alias <span style="color: #B22222">"TextOutA"</span> _
   (<span style="color: #0000FF">ByVal</span> hDC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> x <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
    <span style="color: #0000FF">ByVal</span> lpString <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, _
    <span style="color: #0000FF">ByVal</span> nCount <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Function</span> FindButton(sKey <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>

   <span style="color: #0000FF">Dim</span> Command1Button <span style="color: #0000FF">As</span> CommandButton
   
   <span style="color: #0000FF">On</span> <span style="color: #0000FF">Error</span> <span style="color: #0000FF">Resume</span> <span style="color: #0000FF">Next</span>
   <span style="color: #0000FF">Set</span> Command1Button = colButtons.Item(sKey)
   FindButton = (Err.Number = 0)

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Function</span> GetKey(hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>

   GetKey = KeyConst & hWnd

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Function</span> ProcessButton(<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                               <span style="color: #0000FF">ByVal</span> uMsg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                               <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                               lParam <span style="color: #0000FF">As</span> DRAWITEMSTRUCT, _
                               sKey <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

   <span style="color: #0000FF">Dim</span> Command1Button       <span style="color: #0000FF">As</span> CommandButton
   <span style="color: #0000FF">Dim</span> bRC             <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>
   <span style="color: #0000FF">Dim</span> lRC             <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> x               <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> y               <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lpWndProC       <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lButtonWidth    <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lButtonHeight   <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lPrevColor      <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lColor          <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> TextSize        <span style="color: #0000FF">As</span> SIZE
   <span style="color: #0000FF">Dim</span> sCaption        <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>
   
   <span style="color: #0000FF">Const</span> PushOffset = 2
   
   <span style="color: #0000FF">Set</span> Command1Button = colButtons.Item(sKey)
   sCaption = Command1Button.Caption
   
   lColor = GetProp(Command1Button.hWnd, PROP_COLOR)
   lPrevColor = SetTextColor(lParam.hDC, lColor)
   
  <span style="color: #008000">'In Pixels/Logical Units</span>
   lRC = GetTextExtentPoint32(lParam.hDC, _
   sCaption, <span style="color: #0000FF">Len</span>(sCaption), TextSize)
   
  <span style="color: #008000">'In Pixels/Logical Units</span>
   lButtonHeight = lParam.rcItem.Bottom - lParam.rcItem.Top
   lButtonWidth = lParam.rcItem.Right - lParam.rcItem.Left
   
  <span style="color: #008000">'The button is pressed! Offset the text</span>
  <span style="color: #008000">'so it looks like the button is pushed</span>
   <span style="color: #0000FF">If</span> (lParam.itemAction = ODA_SELECT) <span style="color: #0000FF">And</span> _
      (lParam.itemState = ODS_BUTTONDOWN) <span style="color: #0000FF">Then</span>
      Command1Button.SetFocus
      DoEvents
      x = (lButtonWidth - TextSize.cx + PushOffset) \ 2
      y = (lButtonHeight - TextSize.cy + PushOffset) \ 2
   <span style="color: #0000FF">Else</span>
      x = (lButtonWidth - TextSize.cx) \ 2
      y = (lButtonHeight - TextSize.cy) \ 2
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
  <span style="color: #008000">'Get the default WndProd address</span>
   lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
   
  <span style="color: #008000">'Do the default button processing</span>
   ProcessButton = CallWindowProc(lpWndProC, hWnd, uMsg, wParam, lParam)
   
  <span style="color: #008000">'Put our text on the button</span>
   bRC = TextOut(lParam.hDC, x, y, sCaption, <span style="color: #0000FF">Len</span>(sCaption))
   
  <span style="color: #008000">'Restore the device context to the original color</span>
   lRC = SetTextColor(lParam.hDC, lPrevColor)
   
ProcessButton_Exit:
   <span style="color: #0000FF">Set</span> Command1Button = <span style="color: #0000FF">Nothing</span>

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> RemoveForm(hWndParent <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>)

   <span style="color: #0000FF">Dim</span> hWndButton <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> i <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>
   
   UnsubclassForm hWndParent
   
   <span style="color: #0000FF">On</span> <span style="color: #0000FF">Error</span> <span style="color: #0000FF">GoTo</span> RemoveForm_Exit
   
   <span style="color: #0000FF">For</span> i = colButtons.Count - 1 <span style="color: #0000FF">To</span> 0 <span style="color: #0000FF">Step</span> -1
   
      hWndButton = colButtons(i).hWnd
      
      <span style="color: #0000FF">If</span> GetProp(hWndButton, PROP_HWNDPARENT) = hWndParent <span style="color: #0000FF">Then</span>
         RemoveProp hWndButton, PROP_COLOR
         RemoveProp hWndButton, PROP_HWNDPARENT
         colButtons.Remove i
      <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
      
   <span style="color: #0000FF">Next</span> i
   
RemoveForm_Exit:
   <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">Sub</span>

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Function</span> UnsubclassForm(hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>

   <span style="color: #0000FF">Dim</span> lpWndProC <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   
   lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
   
   <span style="color: #0000FF">If</span> lpWndProC = 0 <span style="color: #0000FF">Then</span>
   
      UnsubclassForm = <span style="color: #0000FF">False</span>
      
   <span style="color: #0000FF">Else</span>
   
      <span style="color: #0000FF">Call</span> SetWindowLong(hWnd, GWL_WNDPROC, lpWndProC)
      RemoveProp hWnd, PROP_LPWNDPROC
      UnsubclassForm = <span style="color: #0000FF">True</span>
      
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>


<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Function</span> ButtonColorProc(<span style="color: #0000FF">ByVal</span> hWnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                                 <span style="color: #0000FF">ByVal</span> uMsg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                                 <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, _
                                 lParam <span style="color: #0000FF">As</span> DRAWITEMSTRUCT) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

   <span style="color: #0000FF">Dim</span> lpWndProC       <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> bProcessButton  <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>
   <span style="color: #0000FF">Dim</span> sButtonKey      <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>

   bProcessButton = <span style="color: #0000FF">False</span>      <span style="color: #008000">'Assume default processing</span>

   <span style="color: #0000FF">If</span> (uMsg = WM_DRAWITEM) <span style="color: #0000FF">Then</span>
   
     <span style="color: #008000">'Do we have this button? To find out, just</span>
     <span style="color: #008000">'try to reference the item in the collection.</span>
     <span style="color: #008000">'If it's there, we own the button.  If it's</span>
     <span style="color: #008000">'not there, we'll get an error.</span>
      sButtonKey = GetKey(lParam.hWndItem)
      bProcessButton = FindButton(sButtonKey)
   
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
   
   <span style="color: #0000FF">If</span> bProcessButton <span style="color: #0000FF">Then</span>
   
      ProcessButton hWnd, uMsg, wParam, lParam, sButtonKey
      
   <span style="color: #0000FF">Else</span>
   
      lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
      ButtonColorProc = CallWindowProc(lpWndProC, hWnd, uMsg, wParam, lParam)

      <span style="color: #0000FF">If</span> uMsg = WM_DESTROY <span style="color: #0000FF">Then</span> RemoveForm hWnd
      
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>


<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> RegisterButton(Button <span style="color: #0000FF">As</span> CommandButton, _
                               Forecolor <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>

   <span style="color: #0000FF">Dim</span> hWndParent      <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> lpWndProC       <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> sButtonKey      <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>

  <span style="color: #008000">'Make the colButtons key for the button</span>
   sButtonKey = GetKey(Button.hWnd)
   
  <span style="color: #008000">'If we already own the button, just change the</span>
  <span style="color: #008000">'color otherwise we need to process the whole thing.</span>
   <span style="color: #0000FF">If</span> FindButton(sButtonKey) <span style="color: #0000FF">Then</span>
   
      SetProp Button.hWnd, PROP_COLOR, Forecolor
      Button.Refresh
      
   <span style="color: #0000FF">Else</span>
   
     <span style="color: #008000">'Get the handle to the buttons parent form.</span>
      hWndParent = GetParent(Button.hWnd)
   
     <span style="color: #008000">'If we can't find a parent form, report a</span>
     <span style="color: #008000">'problem and get out.</span>
      <span style="color: #0000FF">If</span> (hWndParent = 0) <span style="color: #0000FF">Then</span>
         RegisterButton = <span style="color: #0000FF">False</span>
         <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">Function</span>
      <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
     <span style="color: #008000">'found the parent, gather all of the necessary</span>
     <span style="color: #008000">'button values and add it to the collection.</span>
      colButtons.Add Button, sButtonKey
      SetProp Button.hWnd, PROP_COLOR, Forecolor
      SetProp Button.hWnd, PROP_HWNDPARENT, hWndParent
      
     <span style="color: #008000">'Determine if we've already subclassed this form.</span>
      lpWndProC = GetProp(hWndParent, PROP_LPWNDPROC)
   
     <span style="color: #008000">'It's a new form.  Subclass it and add the</span>
     <span style="color: #008000">'Window proc address to the collection.</span>
      <span style="color: #0000FF">If</span> (lpWndProC = 0) <span style="color: #0000FF">Then</span>
         lpWndProC = SetWindowLong(hWndParent, _
         GWL_WNDPROC, <span style="color: #0000FF">AddressOf</span> ButtonColorProc)
         SetProp hWndParent, PROP_LPWNDPROC, lpWndProC
      <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>
   
   RegisterButton = <span style="color: #0000FF">True</span>

<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span>


<span style="color: #0000FF">Public</span> <span style="color: #0000FF">Function</span> UnregisterButton(Button <span style="color: #0000FF">As</span> CommandButton) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Boolean</span>

   <span style="color: #0000FF">Dim</span> hWndParent <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
   <span style="color: #0000FF">Dim</span> sKeyButton <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>

   sKeyButton = GetKey(Button.hWnd)

   <span style="color: #0000FF">If</span> (FindButton(sKeyButton) = <span style="color: #0000FF">False</span>) <span style="color: #0000FF">Then</span>
      UnregisterButton = <span style="color: #0000FF">False</span>
      <span style="color: #0000FF">Exit</span> <span style="color: #0000FF">Function</span>
   <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span>

   hWndParent = GetProp(Button.hWnd, PROP_HWNDPARENT)
   UnregisterButton = UnsubclassForm(hWndParent)

   colButtons.Remove sKeyButton
   RemoveProp Button.hWnd, PROP_COLOR
   RemoveProp Button.hWnd, PROP_HWNDPARENT
   
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Function</span></font></pre>