Codigo Plus

Descargar Archivo
Titulo	Color de Enabled
Descripcion	Para los que les gusta personalizar todo. Con este cambias el color cuando pones Enabled=False
Descargas	760
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SetSysColors Lib <span style="color: #B22222">"user32"</span> (<span style="color: #0000FF">ByVal</span> nChanges <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lpSysColor <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lpColorValues <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">Dim</span> NewColor(0) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">Dim</span> IndexArray(0) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> COLOR_GRAYTEXT = 17

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command1_Click()
   IndexArray(0) = COLOR_GRAYTEXT
   NewColor(0) = QBColor(Int(Rnd * 16))
   SetSysColors 1, IndexArray(0), NewColor(0)
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Command2_Click()
   IndexArray(0) = COLOR_GRAYTEXT
   NewColor(0) = QBColor(Int(Rnd * 16))
   SetSysColors 1, IndexArray(0), RGB(141, 141, 141)
<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_QueryUnload(Cancel <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>, UnloadMode <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>)
 Command2_Click
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>