this->textBox2->Text= ; this->textBox2->Focus() ; return;

pas=w->Substring(pos+1, (posl - pos -1)); int j j=s->Cofnpare (s,pas);

if(jj) {

MessageBox::Show( Ошибка в Password , Приложение 67 ,

MessageBoxButtons::OK,MessageBoxIcon::Asterisk); this->textBox2->Text= ; . this->textBox2->Focus(); return;

пароль сравнился. Проверяем дату pdsl=posl+l; pas=w->Substring(posl); DateTime din,dtek; dtek=dtek.Today; текущая дата

din=din.Parse(pas); =StrToDate(pas); дата из пароля if(dtek > din) {

key=pas; return;

this->textBoxl->Text= ; this->textBox2->Text= ; this->tabControll->SelectedIndex=l; } if Key== } обработчик

------------------------------------------------------------------

private: System::Void tabControll SelectedIndexChanged(System: :Object sender.

System::EventArgs e)

int i=key->Compare(key,pas); if (!i)

this->tabControH->SelectedIndex =0;

rivate: System::Void Foml Resize (System::Object sender. System:: EventArg s e)

Ithis->textBoxl->Focus(); установка фокуса ввода на UserName

Iprivate: System:: Void Forml Shown (System: :Object sender, I System::EventArgs e)

this->textBoxl->Focus(); установка фокуса ввода на UserName

liffivate: System: :Void button2 Click(System: :Object sender. System::EventArgs e)

if(this->listBoxl->Visible==false) this->listBoxl->Show () ; . else

this->listBoxl->Hide() ; this->button2->Enabled=false; this->textBoxl->Text= ;

this->textBoxl->Focus 0 ;

1; класс

пространство

[Компонент Timer

Компонент находится в списке Components палитры компонентов. Он задает счетчик времени.

[Свойство Enabled управляет запуском и остановкой таймера.

Свойство Interval задает промежуток времени, через который возникает единственное его событие Tick. При разработке обработчика события следует учитывать, что новое событие не возникает, пока не выполнятся все команды обработчика. Как только все команды обработчика будут завершены, новое событие возникает не позднее, чем через интервал времени, заданный в свойстве Interval. Основными методами компонента являются start () и stop (), которые запускают и останавливают таймер.

Timer- ЭТО удобное средство для организации процессов, автоматически повторяющихся через равные интервалы времени. Например, вы хотите, чтобы на экране компьютера происходило движение различных окрашенных линий. Вставьте в обработчик события Tick формирование таких линий и запустите это приложение. Пока ваш компьютер будет включен (или пока вы не отключите таймер с помощью кнопки), его экран будет светиться разноцветными линиями (рис. 11.108). Текст обработчиков событий приводится в листинге 11.24.

Пуск/осганое таймера

Otimerl

Forml

2. Р.1бота после пуск.1 таймера

1. Это конпонен! ProgiessBai

Properties 9 X

tlmerl System.Windo -

Ш (AppllcatK

(Name) timerl Enabled Fdse

, Generate! True Interval 500 Modifiers Private

; Tag

3. Свойства Taiii.ie>.i

Рис. 11.108. Автоматическая разрисовка экрана и ход этого процесса

Листинг 11.24

sender.