Cuestión : Conseguir el nombre de un control activo

Tengo varios controles de la caja de texto en una hoja de trabajo. Cuando un usuario selecciona una caja de texto, quiero tener el fondo del cambio de la caja de texto de blanco a azul claro (e invertir en LostFocus). Puedo hacer esto en el acontecimiento de GotFocus para el control pero tengo que utilizar una referencia directa al nombre del control (cada vez). Tengo 39 cajas de texto así que quisiera poder determinar el nombre de la caja de texto que se ha seleccionado (es decir, la caja de texto que tiene el foco) y después fijó la característica usar esa información. Gracias por cualquie class= " lineNumbers " >
1 del >

txtRecDevGen_GotFocus secundario privado ()
txtRecDevGen.BackColor = &HFFFFC0
Submarino del extremo

txtRecDevGen_LostFocus secundario privado ()
txtRecDevGen.BackColor = &HFFFFFF
Class= > " claro " del extremo Sub

class= del

Respuesta : Conseguir el nombre de un control activo

Lo haría más bién esto:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

¡#! /usr/bin/perl

utilizar terminante;
utilizar las advertencias;
archivo del uso:: Copia;
archivo del uso:: Trayectoria;
archivo del uso:: Basename;

mi $web_dir = “directorio”;
¡si (! - d “directory.slb.com ") {
   mkdir (“$web_dir”, 0777);
}

# lista del archivo que se comprobará hacia fuera de CVS
mis @CVSfiles = qw (
 desarrollo/tela-archivos/ayuda/file.xx
 desarrollo/tela-archivos/ayuda/file2.xx
 desarrollo/tela-archivos/ayuda/imágenes/file.xx
 desarrollo/tela-archivos/ayuda/imágenes/file2.xx
 desarrollo/tela-archivos/ayuda/cambiar-proceso/file.xx
 desarrollo/tela-archivos/ayuda/cambiar-proceso/file2.xx
 desarrollo/tela-archivos/ayuda/corporativo-identidad/file.xx
 desarrollo/tela-archivos/ayuda/corporativo-identidad/file2.xx
 desarrollo/tela-archivos/ayuda/ejemplo-clientes/file.xx
 desarrollo/tela-archivos/ayuda/ejemplo-clientes/file2.xx
);

foreach mi $file (@CVSfiles) {
    mi $dir = dirname ($file);
    ¡mkpath ($dir) si! - d $dir;
}
Otras soluciones  
 
programming4us programming4us