Vraag : formaat controle die bij het overgaan van vorm en controlenaam wordt gebaseerd

Eerder dan het veranderen van de achtergrondkleur in elke gebeurtenis van de Ingang en van de Uitgang voor een het gegevensbestandvorm van de TOEGANG 2003, zou ik een functie willen tot stand brengen die dit dat als ik de kleuren wil veranderen doet, moet ik slechts het binnen doen eens plaats.  Nochtans, wanneer ik probeer om de naam van de vorm over te gaan, of als koord voor de vormnaam, krijg ik fouten zoals verklaarde niet variabele of datatype mismatched.
" codeBody " 
1:
2:
3:
4:
5:
6:

Public SubOnFocusColors (frmName als Vorm, ctlName als Controle)
    Vormen! frmName.cltName.BackColor = 16709086
 Sub van het eind
Openbare SubLostFocusColors (frmName als Vorm, ctlName als Controle)
 Vormen! frmName.cltName.BackColor = 16777215
Sub van het eind

Antwoord : formaat controle die bij het overgaan van vorm en controlenaam wordt gebaseerd

Ik zou gebruiken Activate/desactiveer gebeurtenissen. Zie de code. Merk op Ik de parameters in koorden veranderde.

Lee


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Openbare SubOnFocusColors (frmName als Koord, ctlName als Koord)
    Vormen (frmName). De controles (ctlName) .BackColor = vbRed
Sub van het eind
Openbare SubLostFocusColors (frmName als Koord, ctlName als Koord)
    Vormen (frmName). Controles (ctlName) .BackColor = vbBlue
Sub van het eind

Privé SubForm_GotFocus ()
    Vraag OnFocusColors (Me.Name, Text0.Name)
Sub van het eind

Privé SubForm_LostFocus ()
    Vraag LostFocusColors (Me.Name, Text0.Name)
Sub van het eind
Andere oplossingen  
 
programming4us programming4us