Red de conocimiento informático - Espacio del host - Quiero crear un módulo de VB y hacer que todos los cuadros de texto de VB se conviertan en fondo negro y fuentes blancas. ¿Cómo hacerlo?

Quiero crear un módulo de VB y hacer que todos los cuadros de texto de VB se conviertan en fondo negro y fuentes blancas. ¿Cómo hacerlo?

Atenuar tb como TextBox

Para cada tb en Form1.Controls

Si TypeOf tb es TextBox entonces

tb.BackColor = vbBlack

tb.ForeColor = vbWhite

End If

Next

Simplemente agréguelo donde sea necesario ~ úselo para recorrer todo el formulario Control de cuadro de texto, determine el tipo de control y, cuando sea tb, cambie el estilo que necesite.