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

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Смена фигур, их цветов»

textual
Листинг программы 
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

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы