Как организовать цикл? Приведенный код срабатывает лишь раз

@Mishania · Регистрация: 26.09.2012

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

Здравствуйте, уважаемые специалисты. Есть код программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
If Check_pos1.Value = 1 Then
Label_pos1.Visible = True
n = Combo1.Text
Select Case n
 Case "À.1"
Label_1.Caption = 1110
Picture1_50.Visible = False
Picture1_70.Visible = True
Picture1_40x50.Visible = False
 Case "À.2"
Label_1.Caption = 1390
Picture1_50.Visible = True
Picture1_70.Visible = False
Picture1_40x50.Visible = False
 Case "À.3"
Label_1.Caption = 1490
Picture1_50.Visible = True
Picture1_70.Visible = False
Picture1_40x50.Visible = False

Эта программа работает лишь один раз. При выборе одного варианта появляется соответствующая картинка, а при попытке изменить свой выбор компилятор VB6 указывает на ошибку "Out of memory" на той строке, где расположен False. Получается, что компилятору памяти мало или как? Подскажите, пожалуйста, как исправить ошибку. Спасибо.

@Mishania · 17.06.2014, 15:02 **[ТС]**

Может быть, плохо объяснил, в чем проблема. Дело в том, что код программы работает только один раз. Например, выбираю в Combo1 вариат, нажимаю на кнопку - появляется соответствующая картинка, но при дальнейшей попытке выбрать другой вариант, жму на кнопку - и появляется ошибка: "Out of memory". При чем, ошибка появляется на строчке кода с False. Какисправить код, чтобы программа работала нормально? Подскажите, пожалуйста.

SoftIce · 17.06.2014, 15:41

Да как бэ ошибок в этом коде особых нет.

Проверял так

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
 Option Explicit
 
Private Sub Command1_Click()
    Dim n As String
    If Check_pos1.Value = 1 Then
       Label_pos1.Visible = True
       n = Combo1.Text
       Select Case n
              Case "А.1"
                   Label_1.Caption = "1110"
                   Picture1_50.Visible = False
                   Picture1_70.Visible = True
                   Picture1_40x50.Visible = False
              Case "А.2"
                   Label_1.Caption = "1390"
                   Picture1_50.Visible = True
                   Picture1_70.Visible = False
                   Picture1_40x50.Visible = False
              Case "А.3"
                   Label_1.Caption = "1490"
                   Picture1_50.Visible = False
                   Picture1_70.Visible = False
                   Picture1_40x50.Visible = True
       End Select
    End If
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem "А.1"
    Combo1.AddItem "А.2"
    Combo1.AddItem "А.3"
End Sub

@Mishania · 22.06.2014, 15:34 **[ТС]**

SoftIce, спасибо, конечно, но все равно код обрабатывается только один раз, а при выборе другого варианта выдает ошибку. Подскажите, пожалуйста, как здесь организовать цикл, если это поможет?

@Антихакер32 · 22.06.2014, 15:42

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
Option Explicit
 
Private Sub Command1_Click()
    Dim n As String
    On Error Resume Next
    If Check_pos1.Value = 1 Then
        Label_pos1.Visible = True
        n = Combo1.Text
        Select Case n
        Case "А.1"
            Label_1.Caption = "1110"
            Picture1_50.Visible = False
            Picture1_70.Visible = True
            Picture1_40x50.Visible = False
        Case "А.2"
            Label_1.Caption = "1390"
            Picture1_50.Visible = True
            Picture1_70.Visible = False
            Picture1_40x50.Visible = False
        Case "А.3"
            Label_1.Caption = "1490"
            Picture1_50.Visible = False
            Picture1_70.Visible = False
            Picture1_40x50.Visible = True
        End Select
    End If
End Sub
 
Private Sub Form_Load()
    On Error Resume Next
    Combo1.Clear
    Combo1.AddItem "А.1"
    Combo1.AddItem "А.2"
    Combo1.AddItem "А.3"
End Sub

SoftIce · 22.06.2014, 17:45

Сообщение от Mishania

код обрабатывается только один раз, а при выборе другого варианта выдает ошибку

Еще раз повторяю:

Сообщение от SoftIce

ошибок в этом коде особых нет

Весь код давайте, а не выдранный кусок. Здесь экстрасенсов нет. Может где-то очищается комбобокс и поэтому выскакивает ошибка.

@Mishania · 26.06.2014, 19:17 **[ТС]**

Антихакер32, если использовать это фрагмент в программе:

Сообщение от Антихакер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
Option Explicit
Private Sub Command1_Click()
 Dim n As String
 On Error Resume Next
 If Check_pos1.Value = 1 Then
 Label_pos1.Visible = True
 n = Combo1.Text
 Select Case n
 Case "А.1"
 Label_1.Caption = "1110"
 Picture1_50.Visible = False
 Picture1_70.Visible = True
 Picture1_40x50.Visible = False
 Case "А.2"
 Label_1.Caption = "1390"
 Picture1_50.Visible = True
 Picture1_70.Visible = False
 Picture1_40x50.Visible = False
 Case "А.3"
 Label_1.Caption = "1490"
 Picture1_50.Visible = False
 Picture1_70.Visible = False
 Picture1_40x50.Visible = True
 End Select
 End If
End Sub
Private Sub Form_Load()
 On Error Resume Next
 Combo1.Clear
 Combo1.AddItem "А.1"
 Combo1.AddItem "А.2"
 Combo1.AddItem "А.3"
End Sub

то по-прежнему появляется сообщение об ошибке, но при этом выделяются строчки, которые отвечают в программе за скрытие картики, например:

Visual Basic
1
Picture1_50.Visible = False

и т. д. В остальном ничего не меняется...

SoftIce · 26.06.2014, 20:06

Mishania, Вам ту никто не сможет помочь пока не покажите весь код или проект.

@Bati4eli · 10.07.2014, 11:42

Mishania,

Сообщение от SoftIce

пока не покажите весь код или проект.

Действительно! Выкладывайте проект.. со слов не поймешь, что у Вас не так.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Mishania 79 / 79 / 84 Регистрация: 26.09.2012 Сообщений: 341
	17.06.2014, 15:02 [ТС]
	Может быть, плохо объяснил, в чем проблема. Дело в том, что код программы работает только один раз. Например, выбираю в Combo1 вариат, нажимаю на кнопку - появляется соответствующая картинка, но при дальнейшей попытке выбрать другой вариант, жму на кнопку - и появляется ошибка: "Out of memory". При чем, ошибка появляется на строчке кода с False. Какисправить код, чтобы программа работала нормально? Подскажите, пожалуйста. 0

@Mishania 79 / 79 / 84 Регистрация: 26.09.2012 Сообщений: 341
	22.06.2014, 15:34 [ТС]
	SoftIce, спасибо, конечно, но все равно код обрабатывается только один раз, а при выборе другого варианта выдает ошибку. Подскажите, пожалуйста, как здесь организовать цикл, если это поможет? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	26.06.2014, 20:06
	Mishania, Вам ту никто не сможет помочь пока не покажите весь код или проект. 0

Как организовать цикл? Приведенный код срабатывает лишь раз

Решение