Задача - перебрать в проекте все контролы CheckBox и сохранить их значения

@warlord@au.ru · Регистрация: 16.08.2007

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

Задача - перебрать в проекте все контролы CheckBox и сохранить их значения (то что имена повторяються - не учитывать), перебераю все формы, пытаюсь перебрать все CheckBox но ничего не получается - во внутрь IF я не попадаю... хотя если заменить CheckBpx на например так же присутствующие в проекте ToolBar то условие пашет... ЧТО НЕ ТАК? (Даже загружаю все формы - думая, что необходимо что бы они были подгружены при переборе - но...)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim frm As Form
For Each frm In Forms
 
For Each CtR In frm.Controls
frm.Show
frm.Hide
 
If TypeOf CtR Is CheckBox Then
SaveSetting 'WarLord', 'NetUtilChecks', CtR.name, CtR.Value
End If
 
Next CtR
Next

@big_mammoth · 26.08.2007, 15:54

Попробуй использовать вместо TypeOf функцию TypeName

@Konst_one · 26.08.2007, 16:08

Может ты забыл вставить в последнем цикле тип переменной:

Visual Basic
1
2
3
4
For each frm in forms
...
...
Next frm ' <===== забыл поставить и поэтому вываливаешся из цикла

@warlord@au.ru · 27.08.2007, 09:59 **[ТС]**

Строка If TypeName CtR Is CheckBox Then вообще краснющая - он ее не понимает, а цикл то пашет нормально с теми же ToolBars а с CheckBox не пашет....

ХЭЛП!!!

@big_mammoth · 27.08.2007, 11:13

Естественно она будет красной
писать надо

Visual Basic
1
if TypeName(aControl) = 'CheckBox' then....

Новые блоги и статьи Все статьи Все блоги /
Инструменты 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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@big_mammoth 0 / 0 / 0 Регистрация: 25.07.2007 Сообщений: 39
	26.08.2007, 15:54
	Попробуй использовать вместо TypeOf функцию TypeName 0

@warlord@au.ru 0 / 0 / 1 Регистрация: 16.08.2007 Сообщений: 271
	27.08.2007, 09:59 [ТС]
	Строка If TypeName CtR Is CheckBox Then вообще краснющая - он ее не понимает, а цикл то пашет нормально с теми же ToolBars а с CheckBox не пашет.... ХЭЛП!!! 0