Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
3 / 3 / 0
Регистрация: 15.05.2015
Сообщений: 76

Caption динамически созданной кнопки. Ошибка 438: Object doesn't support this property or method

20.04.2021, 10:39. Показов 1430. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim a As String
Dim b As Single
Dim btn As Object
 
Private Sub Form_Load()
Open App.Path & "\knopki.txt" For Input As #1  '
b = 1
While Not EOF(1)
Input #1, a
 
Set btn = Form1.Controls.Add("Forms.CommandButton.1", "command" & b, Form1)
btn.Height = 300
btn.Top = 300 * b
btn.Visible = True
Form1.Height = Form1.Height + 300
 
btn.Caption = a    'ТУТ ВЫДАЁТ ОШИБКУ
 
b = b + 1
Wend
Close #1
End Sub
Добрый день, коллеги. Помогите пожалуйста.
Пытаюсь сделать надписи на динамически создаваемые кнопки, но эта зараза упорно выдаёт мне "error 438".
Я перепробовал уже все варианты, которые удалось нагуглить:
- Dim btn As Control
- кнопки массивом btn() и перебор по индексу
- With btn ..... .Caption = a
- и многое другое.
Ничего не помогло(
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.04.2021, 10:39
Ответы с готовыми решениями:

Ошибка Object doesn't support this property or method
Здравствуйте! Сия ошибка возникает в связи вот с чем... прошу не обижать понимаю, что коряво я написал- нужда :-( Существуют две...

Ошибка Runtime eror '438'. Object doesn't support this property or method
Sub macro1() Dim wSheetName(1 To 5) As String wSheetName(1) = "КЦМР12" wSheetName(2) = "Forte Bank 12" ...

Ошибка Run-time error '438': Object doesn't support this property or method при транспонировании матрицы
Выдает ошибку Run-time error '438': Object doesn't support this property or method. Private Sub CommandButton1_Click() Dim a(),...

3
 Аватар для Argus19
1427 / 444 / 78
Регистрация: 24.09.2017
Сообщений: 2,528
Записей в блоге: 22
20.04.2021, 11:13
Лучший ответ Сообщение было отмечено MrRoxMJ как решение

Решение

Цитата Сообщение от MrRoxMJ Посмотреть сообщение
но эта зараза упорно выдаёт мне "error 438".
А так:
Visual Basic
1
Set btn = Form1.Controls.Add("vb.CommandButton", "command" & b, Form1)
2
fly
 Аватар для I can
4946 / 4630 / 843
Регистрация: 13.04.2015
Сообщений: 9,810
20.04.2021, 11:28
Цитата Сообщение от MrRoxMJ Посмотреть сообщение
"Forms.CommandButton.1"
Эта хрень из VBA.
Правильно у Argus19
1
3 / 3 / 0
Регистрация: 15.05.2015
Сообщений: 76
20.04.2021, 11:44  [ТС]
Спасибо)) Ура! Сработало))

...как мало надо человеку для счастья)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.04.2021, 11:44
Помогаю со студенческими работами здесь

Ошибка в VBA object doesn't support this property or method
Всем добрый день подскажите в чем ошибка object doesn't support this property or method error 438 вот скрин подскажите что не...

Run-time error '438' — object doesn't support this method
Дана строка. Преобразовать ее, удалив каждый символ «*». При запуске выдает Run-time error '438' - object doesn't support this...

Object doesn't support this property or method макрос
вот в этой строчке ошибка .DataBodyRange.FormulaFormulaR1C1 = "=AVERAGE(:])" Sub SameSurnameStudents() Application.ScreenUpdating...

Object doesn't support this property or method, slides.InsertFromFile
При выполнении выходит ошибка "object doesn't support this property or method". Путь указан верно, вроде должно работать. Но после...

Object doesn't support this property or method microsoft access 2010
Здравствуйте. Возникает такая ошибка: Object doesnt' support this property or method при записи в поле. Конкретно выдает эту ошибку вот на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru