Question : Obtenir le nom d'une commande active

J'ai plusieurs commandes de boîte des textes dans une feuille de travail. Quand un utilisateur choisit une boîte des textes, je veux avoir le fond du changement de boîte des textes de blanc à bleu-clair (et renverser sur LostFocus). Je peux faire ceci sur l'événement de GotFocus pour la commande mais je dois employer une référence directe au nom de commande (chaque fois). J'ai 39 boîtes des textes ainsi je voudrais pouvoir déterminer le nom de la boîte des textes qui a été choisie (c.-à-d., la boîte des textes qui a le foyer) et a puis placé la propriété using cette information. Merci pour tout class= " lineNumbers " >
1 de >

txtRecDevGen_GotFocus secondaire privé ()
txtRecDevGen.BackColor = &HFFFFC0
Sous-marin d'extrémité

txtRecDevGen_LostFocus secondaire privé ()
txtRecDevGen.BackColor = &HFFFFFF
Class= >
 " clair " de l'extrémité Sub

  
  class= de

Réponse : Obtenir le nom d'une commande active

Je le ferais plutôt ceci :
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

employer strict ;
employer les avertissements ;
dossier d'utilisation : : Copie ;
dossier d'utilisation : : Chemin ;
dossier d'utilisation : : Basename ;

mon $web_dir = « annuaire » ;
si (! - d « directory.slb.com ") {
   mkdir (« $web_dir », 0777) ;
}

# liste de dossier à vérifier de CVS
mes @CVSfiles = qw (
 développement/Web-dossiers/aide/file.xx
 développement/Web-dossiers/aide/file2.xx
 développement/Web-dossiers/aide/images/file.xx
 développement/Web-dossiers/aide/images/file2.xx
 développement/Web-dossiers/aide/changer-processus/file.xx
 développement/Web-dossiers/aide/changer-processus/file2.xx
 développement/Web-dossiers/aide/de corporation-identité/file.xx
 développement/Web-dossiers/aide/de corporation-identité/file2.xx
 développement/Web-dossiers/aide/exemple-clients/file.xx
 développement/Web-dossiers/aide/exemple-clients/file2.xx
) ;

foreach mon $file (@CVSfiles) {
    mon $dir = dirname ($file) ;
    mkpath ($dir) si ! - d $dir ;
}
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us