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