Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
1. Откройте новый проект, установите следующие объекты и измените им свойства
Объект | Свойство | Значение | |||
Рамки | Caption | Как Вас зовут? | |||
Caption | Полное имя (заглавные буквы) | ||||
Caption | Полное имя (строчные буквы) | ||||
Caption | Инициалы | ||||
Метки | Caption | Фамилия | |||
Caption | Имя | ||||
Caption | Отчество | ||||
Name | LblNam2 (для рамки строчные буквы) | ||||
Командные кнопки | Name | CmdNam1 | |||
Caption | Вывести | ||||
Name | CmdNam2 | ||||
Caption | Вывести в одну строку | ||||
Name | CmdNam3 | ||||
Caption | Вывести в три строки | ||||
Name | CmdFIO | ||||
Caption | Вывести инициалы | ||||
Name | CmdShifr | ||||
Caption | Шифровать | ||||
Текстовые окна | Name | TxtFam | |||
Name | TxtName | ||||
Name | TxtOt | ||||
Name | TxtNam1 (для заглавных букв) | ||||
Name | TxtFIO | ||||
Name | TxtShifr |
2. Приведите свою форму в соответствие с образцом
3. В окне кода процедуры обработки события Click набрать для объекта cmdNam1
TxtNam1.Text = UCase(tXTfAM.Text) + " " + UCase(TxtName.Text) + " " + UCase(TxtOt.Text)
4. В окне кода процедуры обработки события Click набрать для объекта cmdNam2
LblNam2.Caption = LCase(tXTfAM.Text) + " " + LCase(TxtName.Text) + " " + LCase(TxtOt.Text)
5. В окне кода процедуры обработки события Click набрать для объекта cmdNam3
LblNam2.Caption = LCase(tXTfAM.Text) + Chr(13) + Chr(10) + LCase(TxtName.Text)
6. В окне кода процедуры обработки события Click набрать для объекта cmdFIO
Дата публикования: 2015-02-22; Прочитано: 216 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!