Fråga : Få det känt av en aktiv kontrollerar

Jag har flera text att boxas kontrollerar i en arbetssedel. Boxas, när en användare väljer en text, jag önskar att ha bakgrunden av texten att boxas ändring från vit till ljusblå (och att vända om på LostFocus). Jag kan göra denna på den GotFocus händelsen för kontrollera, men jag måste att använda en rikta hänvisar till till den kända kontrollera (varje gång). Jag har 39 som text boxas, så jag skulle något liknande för att vara kompetent att bestämma det känt av texten boxas som har varit utvald (dvs., texten boxas som har fokusera), och därefter uppsättningen egenskapen using den information. Tack för någon för class=" codeSnippet " för help.

1 för >

Privat undertxtRecDevGen_GotFocus ()
txtRecDevGen.BackColor = &HFFFFC0
Avsluta suben

Privat undertxtRecDevGen_LostFocus ()
txtRecDevGen.BackColor = &HFFFFFF
Avsluta Sub<-/pre>
 " klar "

Svar : Få det känt av en aktiv kontrollerar

Jag skulle gör det mer något liknande detta:
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:

nr.! /usr/bin/perl

använd strikt;
använd varningar;
bruk sparar:: Kopiera;
bruk sparar:: Bana;
bruk sparar:: Basename;

mitt $web_dir = ”arkiv”;
om (! - D ”directory.slb.com”) {
   mkdir (”$web_dir”, 0777);
}

nr. spara listar för att kontrolleras ut från CVS
min @CVSfiles = qw (
 utveckling/rengöringsduk-sparar/hjälp/file.xx
 utveckling/rengöringsduk-sparar/hjälp/file2.xx
 utveckling/rengöringsduk-sparar/hjälp/avbildar/file.xx
 utveckling/rengöringsduk-sparar/hjälp/avbildar/file2.xx
 utveckling/rengöringsduk-sparar/hjälp/ändra-bearbetar/file.xx
 utveckling/rengöringsduk-sparar/hjälp/ändra-bearbetar/file2.xx
 utveckling/rengöringsduk-sparar/hjälp/företags-identiteten/file.xx
 utveckling/rengöringsduk-sparar/hjälp/företags-identiteten/file2.xx
 utveckling/rengöringsduk-sparar/hjälp/exempel-beställare/file.xx
 utveckling/rengöringsduk-sparar/hjälp/exempel-beställare/file2.xx
);

foreach min $file (@CVSfiles) {
    mitt $dir = dirname ($file);
    mkpath ($dir) om! - D $dir;
}
Andra lösningar  
 
programming4us programming4us