Вопрос : Получите имя активно управления

Я имею несколько управлений коробки текста в рабочий лист. Когда потребитель выбирает коробку текста, я хочу иметь предпосылку изменения коробки текста от белизны к свету - сини (и обратить на LostFocus). Я могу сделать это на случае GotFocus для управления но я должен использовать сразу справку к имени управления (each time). Я имею 39 коробок текста поэтому я хотел был бы мочь обусловить имя коробки текста была выбрана (т.е., коробка текста которая имеет фокус) и после этого установила свойство using та информация. Спасибо для любого class= " lineNumbers " >

1 >

Приватное Sub txtRecDevGen_GotFocus ()
txtRecDevGen.BackColor = &HFFFFC0
Подводная лодка конца

Приватное Sub txtRecDevGen_LostFocus ()
txtRecDevGen.BackColor = &HFFFFFF
Class= " ясное " > конца Sub

  
  class= 

Ответ : Получите имя активно управления

Я сделал бы его больше как это:

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 используйте только; используйте предупреждения; архив пользы:: Экземпляр; архив пользы:: Курс; архив пользы:: Basename; мо $web_dir = «директория»; если (! - d «directory.slb.com ") { mkdir («$web_dir», 0777); } # список архива, котор нужно проверить вне от CVS мои @CVSfiles = qw ( развитие/стержн-архивы/помощь/file.xx развитие/стержн-архивы/помощь/file2.xx развитие/стержн-архивы/помощь/изображения/file.xx развитие/стержн-архивы/помощь/изображения/file2.xx развитие/стержн-архивы/помощь/изменять-процесс/file.xx развитие/стержн-архивы/помощь/изменять-процесс/file2.xx развитие/стержн-архивы/помощь/корпоративн-тождественность/file.xx развитие/стержн-архивы/помощь/корпоративн-тождественность/file2.xx развитие/стержн-архивы/помощь/пример-клиенты/file.xx развитие/стержн-архивы/помощь/пример-клиенты/file2.xx ); foreach мое $file (@CVSfiles) { мо $dir = dirname ($file); mkpath ($dir) если! - d $dir; }