Типы фигур

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

Дата добавления: 2014-12-23