Questione : Ottenere il nome di un controllo attivo

Ho parecchi comandi della casella di testo in un manuale. Quando un utente seleziona una casella di testo, voglio avere i precedenti del cambiamento della casella di testo da bianco a blu-chiaro (ed invertire su LostFocus). Posso fare questo sull'evento di GotFocus per il controllo ma devo usare un riferimento diretto al nome di controllo (ogni volta). Ho 39 caselle di testo in modo da vorrei potere determinare il nome della casella di testo che è stata selezionata (cioè, la casella di testo che ha il fuoco) ed allora ha regolato la proprietà using quelle informazioni. Ringraziamenti per qualsiasi class= " lineNumbers " >
1 del >

txtRecDevGen_GotFocus secondario riservato ()
txtRecDevGen.BackColor = &HFFFFC0
Sommergibile dell'estremità

txtRecDevGen_LostFocus secondario riservato ()
txtRecDevGen.BackColor = &HFFFFFF
Class= > " libero " dell'estremità Sub

  
  class= del

Risposta : Ottenere il nome di un controllo attivo

Lo farei di più come questo:
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

usare rigoroso;
usare gli avvertimenti;
lima di uso:: Copia;
lima di uso:: Percorso;
lima di uso:: Basename;

mio $web_dir = “indice„;
se (! - d “directory.slb.com ") {
   mkdir (“$web_dir„, 0777);
}

# lista della lima da verificare da CVS
i miei @CVSfiles = qw (
 sviluppo/fotoricettore-lime/aiuto/file.xx
 sviluppo/fotoricettore-lime/aiuto/file2.xx
 sviluppo/fotoricettore-lime/aiuto/immagini/file.xx
 sviluppo/fotoricettore-lime/aiuto/immagini/file2.xx
 sviluppo/fotoricettore-lime/aiuto/cambiare-processo/file.xx
 sviluppo/fotoricettore-lime/aiuto/cambiare-processo/file2.xx
 sviluppo/fotoricettore-lime/aiuto/corporativo-identità/file.xx
 sviluppo/fotoricettore-lime/aiuto/corporativo-identità/file2.xx
 sviluppo/fotoricettore-lime/aiuto/esempio-clienti/file.xx
 sviluppo/fotoricettore-lime/aiuto/esempio-clienti/file2.xx
);

foreach il mio $file (@CVSfiles) {
    mio $dir = dirname ($file);
    mkpath ($dir) se! - d $dir;
}
Altre soluzioni  
 
programming4us programming4us