Questione : controllo di disposizione basato sul passare nome di controllo e della forma

Piuttosto che cambiando il colore della priorità bassa in ogni evento dell'uscita e dell'entrata per una forma 2003 della base di dati di ACCESSO, vorrei generare una funzione che fa questa così se voglio cambiare i colori, io deve farla soltanto dentro una volta dispone.  Tuttavia, quando provo a passare il nome della forma, l'uno o l'altro come stringa per il nome della forma, io ottenere gli errori quali la variabile non dichiarata o il datatype mismatched. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
class= OnFocusColors secondario >Public " notpretty " (frmName del id= " codeSnippet941957 " del
class= del

Risposta : controllo di disposizione basato sul passare nome di controllo e della forma

Userei l'attivazione/disattivo gli eventi. Vedere il codice. Notare che ho cambiato i parametri alle stringhe.

Lee


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

OnFocusColors secondario pubblico (frmName come stringa, ctlName come stringa)
    Forme (frmName). Controlla (ctlName) .BackColor = vbRed
Sommergibile dell'estremità
LostFocusColors secondario pubblico (frmName come stringa, ctlName come stringa)
    Forme (frmName). Controlla (ctlName) .BackColor = vbBlue
Sommergibile dell'estremità

Form_GotFocus secondario riservato ()
    Chiamata OnFocusColors (Me.Name, Text0.Name)
Sommergibile dell'estremità

Form_LostFocus secondario riservato ()
    Chiamata LostFocusColors (Me.Name, Text0.Name)
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us