![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
|
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; Прочитано: 240 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
