1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
| 'Показ зображення та дані фігури при наведенні на кнопку "Трикутник"
Private Sub CButton_Figure1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = "Трикутник"
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = "Трикутник - це геометрична фігура, яка складається з трьох точок, що не лежать на одній прямій, і трьох відрізків, які їх сполучають."
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Triangle.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Прямокутник"
Private Sub CButton_Figure2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = "Прямокутник"
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = "Прямокутник - це чотирикутник, усі кути якого прямі. Протилежні сторони прямокутника рівні. Є окремим випадком паралелограма."
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Rectangle.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Квадрат"
Private Sub CButton_Figure3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = "Квадрат"
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = ("Квадрат - це чотирикутник, у якого всі сторони рівні і всі кути прямі. Для побудови квадрата необхідно і достатньо задати дві точки на координатній площині, які відповідатимуть будь-яким двом кутам і врахувати їхню суміжність." + vbCrLf + vbCrLf + "Квадрат є водночас ромбом та прямокутником і навпаки: кожна фігура, яка є водночас ромбом і прямокутником, є квадратом.")
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Square.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Паралелограм"
Private Sub CButton_Figure4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = "Паралелограм"
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = ("Паралелограм - це чотирикутник, протилежні сторони якого попарно паралельні, тобто лежать на паралельних прямих." + vbCrLf + vbCrLf + "Паралелограм є плоскою геометричною фігурою, його аналогом у тривимірному просторі є паралелепіпед.")
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Parallelogram.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Ромб"
Private Sub CButton_Figure5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = (vbCrLf + "Ромб")
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = ("Ромб - це паралелограм, у якого всі сторони рівні. Ромб, сторони якого утворюють прямий кут, називають квадратом." + vbCrLf + vbCrLf + "Діагоналі ромба перетинаються під прямим кутом. Діагоналі ромба є бісектрисами його кутів.")
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Rhombus.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Трапеція"
Private Sub CButton_Figure6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = (vbCrLf + "Трапеція")
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = ("Трапеція - це чотирикутник, дві протележні сторони якого паралельні, а дві інші сторони - не паралельні." + vbCrLf + vbCrLf + "Паралельні сторони називають основами трапеції (верх і низ). Інші сторони називають бічними сторонами (ліво і право).")
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Trapezium.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Круг"
Private Sub CButton_Figure7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = (vbCrLf + "Круг")
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = "Круг - це геометрична фігура, обмежена колом. Іншими словами, круг - це множина, яка складається з усіх точок площини, відстань від яких до даної точки центра (центр круга) не перевищує заданої відстані (радіуса). Коло є межею круга."
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Circle.jpg")
End Sub
'Показ зображення та дані фігури при наведенні на кнопку "Еліпс"
Private Sub CButton_Figure8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image_Figure.Visible = True
Label_Figure.Visible = True
Title_Figure.Visible = True
Description_Figure.Visible = True
Label_Figure.Caption = "Еліпс"
Title_Figure.Caption = "Основні дані"
Description_Figure.Caption = "Еліпс - це крива на площині, що проходить довкола двох точок фокусів, таким чином, що сума відстаней до двох точок фокусів залишається сталою для кожної точки кривої. Окремим випадком еліпса є коло, що є еліпсом в якого обидві точки фокусу суміщені в одну"
Image_Figure.Picture = LoadPicture(App.Path & "\Images\Ellipse.jpg")
End Sub
'Кнопка "Налаштування"
Private Sub SettingsButton_Click()
SettingsForm.Show
MainForm.Hide
End Sub
'Кнопка "Вихід"
Private Sub ExitButton_Click()
Unload MainForm
Unload LoadingForm
Unload SettingsForm
End Sub
'Зникнення зображення при наведенні на форму
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Відновлення теми
SettingsFile = FreeFile
Open (App.Path & "\SettingsFile.txt") For Input As #SettingsFile
Line Input #SettingsFile, ThemeState
Close #SettingsFile
Image_Figure.Visible = False
Label_Figure.Visible = False
Title_Figure.Visible = False
Description_Figure.Visible = False
'Налаштування теми
If SettingsForm.ThemeState = 1 Then
'Налаштування темної теми
MainForm.BackColor = &H0&
Description_Figure.BackColor = &H0&
Title_Figure.BackColor = &H0&
Label_Figure.BackColor = &H0&
Description_Figure.ForeColor = &HFFFFFF
Title_Figure.ForeColor = &HFFFFFF
Label_Figure.ForeColor = &HFFFFFF
Else
'Налаштування світлої теми
MainForm.BackColor = &HFFFFFF
Description_Figure.BackColor = &HFFFFFF
Title_Figure.BackColor = &HFFFFFF
Label_Figure.BackColor = &HFFFFFF
Description_Figure.ForeColor = &H0&
Title_Figure.ForeColor = &H0&
Label_Figure.ForeColor = &H0&
End If
End Sub |
(
Сообщение от AoHeaven
Сообщение было отмечено AoHeaven как решение
