Frage : Den Namen einer aktiven Steuerung erhalten

Ich habe einige Textkastenkontrollen in einem Arbeitsblatt. Wenn ein Benutzer einen Textkasten vorwählt, möchte ich den Hintergrund der Textkastenänderung von weißem an hellblauem haben (und auf LostFocus aufheben). Ich kann dies auf dem GotFocus Ereignis zur Steuerung tun, aber ich muss einen direkten Hinweis auf dem Steuernamen verwenden (jedes Mal). Ich habe 39 Textkästen, also möchte ich in der Lage sein, den Namen des Textkastens festzustellen, der ist vorgewählt worden (d.h., der Textkasten, der den Fokus) und dann das Eigentum using diese Informationen einstellte hat. Dank für irgendein help.

1:
2:
3:
4:
5:
6:
7:
8:

Privates VortxtRecDevGen_GotFocus ()
txtRecDevGen.BackColor = &HFFFFC0
Enden-Unterseeboot

Privates VortxtRecDevGen_LostFocus ()
txtRecDevGen.BackColor = &HFFFFFF
Ende Sub

Antwort : Den Namen einer aktiven Steuerung erhalten

Ich tun es eher wie dieses:
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

strenges verwenden;
Warnungen verwenden;
Gebrauch Akte:: Kopie;
Gebrauch Akte:: Weg;
Gebrauch Akte:: Basename;

mein $web_dir = „Verzeichnis“;
wenn (! - d „directory.slb.com ") {
   mkdir („$web_dir“, 0777);
}

# heraus von CVS überprüft zu werden Aktenliste,
meine @CVSfiles = qw (
 Entwicklung/Netzakten/Hilfe/file.xx
 Entwicklung/Netzakten/Hilfe/file2.xx
 Entwicklung/Netzakten/Hilfe/Bilder/file.xx
 Entwicklung/Netzakten/Hilfe/Bilder/file2.xx
 Entwicklung/Netzakten/Hilfe/Ändernprozeß/file.xx
 Entwicklung/Netzakten/Hilfe/Ändernprozeß/file2.xx
 Entwicklung/Netzakten/Hilfe/Unternehmens-identität/file.xx
 Entwicklung/Netzakten/Hilfe/Unternehmens-identität/file2.xx
 Entwicklung/Netzakten/Hilfe/Beispielklienten/file.xx
 Entwicklung/Netzakten/Hilfe/Beispielklienten/file2.xx
);

foreach mein $file (@CVSfiles) {
    mein $dir = dirname ($file);
    mkpath ($dir) wenn! - d $dir;
}
Weitere Lösungen  
 
programming4us programming4us