Menu.SetFocus

7. Добавить к проекту еще одну форму (см. рис. 46) с заголовком окна «звезда» и свойством Name – zvezda. Установить на форме 2 командные кнопки со свойствами Caption: построить звезду и ОК соответственно. (Будьте внимательны! Звезду на форме не рисовать!) Записать следующий программный код для кнопки ОК:

Zvezda.Hide

menu.Enabled=True

Menu.SetFocus

8. Создать процедуру–функцию для построения правильной звезды с помощью метода формы Line и с использованием тригонометрических функций. Для этого следует открыть раздел программного кода GeneralDeclarations в окне редактора кодов программы для формы «звезда», где описать эту процедуру–функцию:

Private Function Postr_Zvezda()

Dim Pi, L, al, x0, y0, X1, Y1 as Single

Dim X2, Y2, x3, y3, x4, y4, x5, y5 as Single

ForeColor=&HFF ' цвет красный

Pi=3.1416:x0=1500:y0=1000:L=2000:al=36/180*Pi

X1=x0:Y1=y0

X2=X1+L:Y2=Y1:Line(X1,Y1)-(X2,Y2)

x3=X2-L*Cos(al):y3=Y2+L*Sin(al)

Line (X2,Y2)-(x3,y3)

x4=x3+L*Sin(al/2):y4=y3-L*Cos(al/2)

Line (x3,y3)-(x4,y4)

x5=x4+L*Sin(al/2):y5=y3

Line (x4,y4)-(x5,y5)

Line (x5,y5)-(X1,Y1)

End Function

Записать для кнопки построить звезду следующий программный код:

Dim zvezd As Double

zvezd=Postr_Zvezda()

9. Вернуться в главную форму «разработка меню». Вызвать окно редактора для команды меню звезда и записать следующий программный код:

Private Sub zvez_Click(Index As Integer)

Select Case Index

Case 0

menu.Enabled=False

Zvezda.Show

Case 1

End

End Select