Pergunta : Começ o nome de um controle ativo

Eu tenho diversos controles da caixa de texto em uma folha. Quando um usuário seleciona uma caixa de texto, eu quero ter o fundo da mudança da caixa de texto do branco à luz - azul (e para inverter em LostFocus). Eu posso fazer este no evento de GotFocus para o controle mas eu tenho que usar uma referência direta ao nome do controle (cada vez). Eu tenho 39 caixas de texto assim que eu gostaria de poder determinar o nome da caixa de texto que foi selecionada (isto é, a caixa de texto que tem o foco) e ajustada então a propriedade using essa informação. Agradecimentos para algum class= " lineNumbers " >
1 do >

txtRecDevGen_GotFocus secundário confidencial ()
txtRecDevGen.BackColor = &HFFFFC0
Submarino da extremidade

txtRecDevGen_LostFocus secundário confidencial ()
txtRecDevGen.BackColor = &HFFFFFF
Class= > " desobstruído " da extremidade Sub

class= do

Resposta : Começ o nome de um controle ativo

Eu fá-lo-ia mais como este:
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

usar estrito;
usar avisos;
lima do uso:: Cópia;
lima do uso:: Trajeto;
lima do uso:: Basename;

meu $web_dir = “diretório”;
se (! - d “directory.slb.com ") {
   mkdir (“$web_dir”, 0777);
}

# lista da lima a ser verific para fora de CVS
meus @CVSfiles = qw (
 desenvolvimento/limas/ajuda/file.xx
 desenvolvimento/limas/ajuda/file2.xx
 desenvolvimento/limas/ajuda/imagens/file.xx
 desenvolvimento/limas/ajuda/imagens/file2.xx
 desenvolvimento/limas/ajuda/processo/file.xx
 desenvolvimento/limas/ajuda/processo/file2.xx
 desenvolvimento/limas/ajuda/identidade/file.xx
 desenvolvimento/limas/ajuda/identidade/file2.xx
 desenvolvimento/limas/ajuda/clientes/file.xx
 desenvolvimento/limas/ajuda/clientes/file2.xx
);

foreach meu $file (@CVSfiles) {
    meu $dir = dirname ($file);
    mkpath ($dir) se! - d $dir;
}
Outras soluções  
 
programming4us programming4us