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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка 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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@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

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

Решение