Смена фигур, их цветов

@alexeu121 · Регистрация: 24.12.2013

Студворк — интернет-сервис помощи студентам

Всем доброй ночи. Начали изучать VB. Ну соответственно дали задание.
Нужно сделать двумя способами, первым сделал, помогите пожалуйста со вторым. Не могу в select case разобраться.

Visual Basic
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
Option Explicit
Dim a As Integer
 
Private Sub Form_Load()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.FillStyle = 1
Picture1.DrawWidth = 4
 
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command1_Click()
If (Option1.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbRed
If (Option2.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbYellow
If (Option3.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbCyan
If (Option4.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbGreen
If (Option5.Value = True) And (Option6.Value = True) Then Picture1.Circle (0, 0), 6, vbBlue
 
If (Option1.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbRed, B
If (Option2.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbYellow, B
If (Option3.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbCyan, B
If (Option4.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbGreen, B
If (Option5.Value = True) And (Option7.Value = True) Then Picture1.Line (-6, 6)-(6, -6), vbBlue, B
 
If (Option1.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbRed
Picture1.Line (0, 6)-(-6, -5), vbRed
Picture1.Line (-6, -5)-(6, -5), vbRed
End If
If (Option2.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbYellow
Picture1.Line (0, 6)-(-6, -5), vbYellow
Picture1.Line (-6, -5)-(6, -5), vbYellow
 
End If
If (Option3.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbCyan
Picture1.Line (0, 6)-(-6, -5), vbCyan
Picture1.Line (-6, -5)-(6, -5), vbCyan
End If
If (Option4.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbGreen
Picture1.Line (0, 6)-(-6, -5), vbGreen
Picture1.Line (-6, -5)-(6, -5), vbGreen
End If
If (Option5.Value = True) And (Option8.Value = True) Then
Picture1.Line (0, 6)-(6, -5), vbBlue
Picture1.Line (0, 6)-(-6, -5), vbBlue
Picture1.Line (-6, -5)-(6, -5), vbBlue
End If
 
 
End Sub

@gaw · 09.10.2014, 01:32

Visual Basic
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
Dim ind%
 
Private Sub Command1_Click()
Picture1.Scale (-15, -15)-(15, 15)
R = 10
Select Case ind
Case 0: Picture1.Circle (0, 0), R
Case 1: Picture1.Line (-10, -10)-(10, 10), , B
Case 2:
        Picture1.PSet (0, -10)
        Picture1.Line -(-10, 10)
        Picture1.Line -(10, 10)
        Picture1.Line -(0, -10)
End Select
End Sub
 
Private Sub Command2_Click()
Picture1.Cls
End Sub
 
Private Sub Form_Load()
'===========================
'Option1(0)...Option1(4)
'Option2(0)...Option2(2)
'===========================
Picture1.Height = Picture1.Width
Picture1.DrawWidth = 3
Option1(0).Value = 1
End Sub
 
Private Sub Option1_Click(Index As Integer)
Picture1.ForeColor = Option1(Index).BackColor
End Sub
 
 
Private Sub Option2_Click(Index As Integer)
ind = Index
End Sub

@alexeu121 · 10.10.2014, 19:58 **[ТС]**

Спасибо за помощь. но есть еще задача. Вместо кнопки "Cтереть" фигура должна пропасть сама после нажатия на кнопку "Нарисовать". Вот текущий код:

Visual Basic
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
Option Explicit
Dim color As String, ind As Integer, cind As String
Private Sub Form_Load()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.DrawWidth = 4
End Sub
Private Sub Command2_Click() 'вот вместо этой кнопки
Picture1.Cls
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then cind = 0
If Option2.Value = True Then cind = 1
If Option3.Value = True Then cind = 2
If Option4.Value = True Then cind = 3
If Option5.Value = True Then cind = 4
 
Select Case cind
Case 0: color = 255
Case 1: color = 65535
Case 2: color = 16776960
Case 3: color = 65280
Case 4: color = 16711680
End Select
 
If Option6.Value = True Then ind = 0
If Option7.Value = True Then ind = 1
If Option8.Value = True Then ind = 2
 
Select Case ind
Case 0: Picture1.FillStyle = 0: Picture1.FillColor = color: Picture1.Circle (0, 0), 6, color
Case 1: Picture1.FillStyle = 1: Picture1.Line (-6, -6)-(6, 6), color, B
Case 2:
        Picture1.Line (-6, -6)-(0, 6), color
        Picture1.Line (0, 6)-(6, -6), color
        Picture1.Line (6, -6)-(-6, -6), color
End Select
End Sub

@gaw · 10.10.2014, 20:07

после 10 строки Picture1.Cls

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

Смена фигур, их цветов

Решение

Решение

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	10.10.2014, 20:07
	Сообщение было отмечено alexeu121 как решение Решение после 10 строки Picture1.Cls 1

Опции темы