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

@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

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

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

Решение

Решение

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