Dim stroka1 As String, stroka2 As String

stroka1 = Text1.Text: stroka2 = Text2.Text

Text1.Text = stroka2: Text2.Text = stroka1

14. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

Dim stroka1 As String, stroka2 As String

stroka1 = Text1.FontName: stroka2 = Text2.FontName

Text1.FontName = stroka2: Text2.FontName = stroka1

15. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

Dim stroka1 As Boolean, stroka2 As Boolean

'полужирный

stroka1 = Text1.FontBold: stroka2 = Text2.FontBold

Text1.FontBold = stroka2: Text2.FontBold = stroka1

'курсив

stroka1 = Text1.FontItalic: stroka2 = Text2.FontItalic

Text1.FontItalic = stroka2: Text2.FontItalic = stroka1

16. Проверьте работу программы. Объясните, почему объявленные переменные имеет различный тип в процедурах.

17. Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Ввод, вывод и присвоение в программе

Цель работы: получить навыки разработки приложений для вычислительных задач

Порядок выполнения

1. Расположите на форме следующие объекты и измените для них свойства:

Объект	Свойство	Значение
Рамка	Caption	Введите X и Y
Текстовое окно	Name	TxtX
Text	(отсутствует)
Текстовое окно	Name	TxtY
Text	(отсутствует)
Линейка прокрутки	Name	HSX
Max
Min
Линейка прокрутки	Name	HSY
Max
Min
Рамка	Caption	Результат
Метка	Name	LblResult
Caption	(отсутствует)
Командные кнопки	Name Caption	CmdPlus +
Name Caption	CmdMinus -
Name Caption	CmdDel /
Name Caption	CmdMul *

2. Для текстовых окон и метки установите выравнивание по центру (свойство Alignment)

3. Для всех объектов, кроме прокруток, увеличьте размер шрифта (свойство Font)

4. Приведите свою форму в соответствии с образцом.

5. В разделе общих объявлений набрать

Дата добавления: 2015-11-16