Лекция: Типы фигур.
0 — прямоугольник
1 — квадрат
2 — овал
3- окружность
4 — скругленный прямоугольник
5 — скругленный квадрат
Типы заливки (FillStyle)
0 — сплошная
1 — прозрачно
2 — горизонтально
3 — вертикально
4 — диагональ вверх
5 — диагональ вниз
6 — пересечение
7 — диагональное пересечение
Командный код данной программы:
‘ Задание типа фигур
Private Sub Option1_Click()
Shape1 = 1
End Sub
Private Sub Option2_Click()
Shape1 = 0
End Sub
Private Sub Option3_Click()
Shape1 = 3
End Sub
Private Sub Option4_Click()
Shape1 = 2
End Sub
‘Задание цвета фигур
Private Sub Option5_Click()
Shape1.FillColor = vbWhite
End Sub
Private Sub Option6_Click()
Shape1.FillColor = vbBlue
End Sub
Private Sub Option7_Click()
Shape1.FillColor = vbRed
End Sub
‘Задание цвета заливки
Private Sub Option8_Click()
Shape1.FillStyle = 0
End Sub
Private Sub Option9_Click()
Shape1.FillStyle = 2
End Sub
Private Sub Option10_Click()
Shape1.FillStyle = 6
End Sub
Private Sub Option11_Click()
Shape1.FillStyle = 7
End Sub
Private Sub Command1_Click()
End
End Sub
Задача 65. Создайте проект игры в кости. В задаче используется 6 переключателей, при выборе одного из которых появлялся бы кубик с соответствующим количеством точек.
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\1.bmp»)
End Sub
Private Sub Option2_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\2.bmp»)
End Sub
Private Sub Option3_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\3.bmp»)
End Sub
Private Sub Option4_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\4.bmp»)
End Sub
Private Sub Option5_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\5.bmp»)
End Sub
Private Sub Option6_Click()
Image1.Picture = LoadPicture(«C:\Documents and Settings\User\Рабочий стол\Игра в кости\Рисунки\6.bmp»)
End Sub