Редактирование ListBox через доп. форму

@mentat111 · Регистрация: 05.10.2017

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

Добрый день, уважаемые форумчане.
Что-то делаю не так, но не могу разобраться что.. Надеюсь на вашу помощь
Есть две формы на первой Listbox со списком. На второй textbox и кнопка
Поясню как хочу чтобы работал этот код:
При двойном нажатии на строку в Listbox нужно скопировать значение из второго стобца этой строки и отобразить в textbox на второй форме, если уже было значение, то кнопку назвать "Edit", если пусто, то Create. По нажатию кнопки отредактировать второй стобец выбранной строки.

Я объявил переменную Public в которую записываю значение выбранной строки. Но почему-то редактируется всеравно только первая строка во втором стобце в ListBox.

userform 4

Visual Basic

Public ListI As Integer
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListI = ListBox1.ListIndex
If ListBox1.List(ListI, 1) = "" Then
UserForm6.CommandButton1.Caption = "Create"
Else
UserForm6.CommandButton1.Caption = "Edit"
End If
 
UserForm6.TextBox1.Value = ListBox1.List(ListI, 1)
UserForm6.Show
End Sub

userform 6

Visual Basic

Private Sub CommandButton1_Click()
UserForm4.ListBox1.List(ListI, 1) = TextBox1.Value
Unload Me
End Sub

SoftIce · 09.10.2017, 14:32

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

ListI

нужно сделать глобальной, или передавать через параметры.

Добавлено через 19 минут

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

Public ListI As Integer

Даже объявленная так в модуле формы переменная не будет видна в других модулях форм.

Нужно её так объявить в простом модуле.

@mentat111 · 09.10.2017, 14:35 **[ТС]**

SoftIce, Блин точно, думал что сделал, а на самом деле объявил только для userform4, Спасибо

SoftIce · 09.10.2017, 14:37

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

только для userform4

А вот из userform4 объявление нужно убрать.

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	09.10.2017, 14:32	2
	Сообщение было отмечено mentat111 как решение Решение Сообщение от mentat111 ListI нужно сделать глобальной, или передавать через параметры. Добавлено через 19 минут Сообщение от mentat111 Public ListI As Integer Даже объявленная так в модуле формы переменная не будет видна в других модулях форм. Нужно её так объявить в простом модуле. 1

@mentat111 0 / 0 / 0 Регистрация: 05.10.2017 Сообщений: 6
	09.10.2017, 14:35 [ТС]	3
	SoftIce, Блин точно, думал что сделал, а на самом деле объявил только для userform4, Спасибо 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	09.10.2017, 14:37	4
	Сообщение от mentat111 только для userform4 А вот из userform4 объявление нужно убрать. 0

Редактирование ListBox через доп. форму

Решение