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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@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

Опции темы

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

Решение