<div>
Not all controls have a settable backcolor..... &nbsp;commandbuttons being one of them unless the style is set to graphical!<br />

</div>


Not all controls have a settable backcolor.....  commandbuttons being one of them unless the style is set to graphical!


<div>
check1,<br />
you have an error before the code &quot;on error goto ...&quot;<br />
<br />
Form3!dlg.ShowColor should be form3.dlg.showcolor?<br />
<br />
Dim myControl as Control is OK.<br />
<br />
What error message you get?<br />
<br />

</div>


check1,
you have an error before the code "on error goto ..."

Form3!dlg.ShowColor should be form3.dlg.showcolor?

Dim myControl as Control is OK.

What error message you get?



<div>
What anthonyc said is true... But it is OK because of your errortrapping. When no back color, error occurs, and it will automatically clear the error and goto the next control.<br />

</div>


What anthonyc said is true... But it is OK because of your errortrapping. When no back color, error occurs, and it will automatically clear the error and goto the next control.


<div>
I don't know, I can just say If I use the same code for fonts it works, let me try you suggesion.<br />
<br />
Check1<br />

</div>


I don't know, I can just say If I use the same code for fonts it works, let me try you suggesion.

Check1


<div>
Thanks!<br />
<br />
CHECK!<br />

</div>


<div>
<div class="content wysiwyg-content">
With the commondialog control I want to change the colors of command buttons, labels, etc. &nbsp;The code I was given works great for fonts but I get error messages when i apply it to colors.<br />
<br />
Form3!dlg.ShowColor<br />
<br />
Dim myControl As CommandButton' &nbsp;this does not work even If I put control or label here!<br />
<br />
<br />
On Error GoTo Trap<br />
For Each myControl In Form1<br />
&nbsp; &nbsp;<br />
myControl.BackColor = Form3!dlg.Color<br />
<br />
Next<br />
&nbsp; &nbsp;'Exit here<br />
Trap:<br />
&nbsp; &nbsp; &nbsp;Err.Clear<br />
&nbsp; &nbsp;Resume Next<br />
<br />
thanks
</div>
</div>


With the commondialog control I want to change the colors of command buttons, labels, etc.  The code I was given works great for fonts but I get error messages when i apply it to colors.

Form3!dlg.ShowColor

Dim myControl As CommandButton'  this does not work even If I put control or label here!


On Error GoTo Trap
For Each myControl In Form1
   
myControl.BackColor = Form3!dlg.Color

Next
   'Exit here
Trap:
     Err.Clear
   Resume Next

thanks

Change color on controls

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.