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

@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

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

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

Решение

Решение

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