Height |
- задает вертикальный размер (высоту) объекта. |
Группа Position (Расположение) окна Properties служит для позиционирования объектов в системе координат формы и установки размеров объектов.
Свойства шкалы размеров объекта
Свойства группы Scale (Масштаб) устанавливают шкалу максимальных размеров объектов в системе координат формы.
ScaleLeft |
- задает максимальное положение объекта по горизонтальной оси; |
ScaleTop |
- задает максимальное положение объекта по вертикальной оси; |
ScaleWidth |
- задает максимальный горизонтальный размер (максимальная |
|
ширина); |
ScaleHeight |
- задает максимальный вертикальный размер (максимальная |
|
высота). |
Пример формы с размещенными на ней объектами и измененными свойствами (цвет, шрифт, строка заголовка формы, надписи на объектах и др.) приведен на рис. 23.
Рис. 23. Окно формы с размещенными на ней объектами
4.2.Задания
1.Пусть смешано V1 литров воды температуры t1 с V2 литрами воды температуры t2 и V3 литрами воды температуры t3 . Вычислить объем и температуру образовавшейся смеси (рис. 24).
38
Рис. 24. Окно вывода результатов
Протестируйте для следующих данных (рис. 25)
Рис. 25. Окно вывода результатов
2. Поменяйте между собой значения переменных А и В, воспользовавшись третьей переменной С, без использования третьей переменной. Пример формы рабочего окна программы (рис. 26).
39
Рис. 26. Окно формы
3. Используя ранее созданный проект, написать код, который по щелчку меняет свойства формы: изменяет цвет, размер, местоположение, заголовок
(рис. 27).
Рис. 27. Окно вывода результатов
4.3. Порядок выполнения работы
Задание 1.
Код программы: Private Sub Command1_Click()
Dim V1 As Integer, t1 As Integer, V2 As Integer, t2 As Integer, V3 As Integer, t3 As Integer
V1 = Val(Text1)
t1 = Val(Text2)
V2 = Val(Text3)
40
t2 = Val(Text4)
V3 = Val(Text5)
t3 = Val(Text6)
S = V1 + V2 + V3
t = (V1 * t1 + V2 * t2 + V3 * t3) / (V1 + V2 + V3) Text7 = Format(S, "#.000")
Text8 = Format(t, "#.000") End Sub
Private Sub Command2_Click() End
End Sub
Задание 2.
Код программы: Private Sub Command1_Click() c=0
a= InputBox("введите число А")
b= InputBox("введите число B") Text1.Text = a
Text2.Text = b c=a
a=b
b=c Text3.Text = a Text4.Text = b End Sub
Задание 3.
Код программы: Private Sub Form_Click() Dim intloop As Integer
Form1.DrawStyle = vbInsideSolid Form1.DrawWidth = 2 Form1.ScaleHeight = 256
For intloop = 0 To 255
Form1.Line (0, intloop)-(Screen.Width, intloop - 1), RGB(0, 0, 255 - intloop), B Next intloop
End Sub
Private Sub Form_Paint()
Caption = "Цветовая форма"
BackColor = vbWhite * Rnd
End Sub
41