Вопрос по ListBox

@sashocheck · Регистрация: 09.12.2010

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

Добрый день! Имеется 2 вопроса.

Вопрос1.
Дано: ListBox1 (со значениями Россия и Украина), TextBox1.
Требуется: нажав на значение Россия в TextBox1 отобразилось значение Москва; нажав на значение Украина в TextBox1 в отобразилось значение Киев.

Вопрос2
Дано: ListBox1 (со значениями Россия и Украина), TextBox1, CommandButton1.
Требуется: нажав на CommandButton1, появляется Форма, в которой имеется TextBox2, TextBox3 и кнопка ОК; вводим в TextBox2 значение Франция, в TextBox3 - Париж; нажимаем ОК и значение Франция добавляется в ListBox1, нажав на которое в TextBox1 отобразится значение Париж.

Заранее благодарен!

@Busine2009 · 30.12.2010, 19:16

Вопрос 1:

Visual Basic
1
2
3
4
5
6
7
Private Sub ListBox1_Click()
TextBox1.Value = ListBox1.Value
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Россия"
ListBox1.AddItem "Украина"
End Sub

@Ципихович Эндрю · 30.12.2010, 19:16

>Требуется: нажав на значение Россия в TextBox1
Это как?

@Busine2009 · 30.12.2010, 19:27

Вопрос 2.
Код для первой формы:

Visual Basic
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Private Sub UserForm_Activate()
ListBox1.AddItem "Россия"
ListBox1.AddItem "Украина"
End Sub

Код для второй формы:

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
UserForm1.ListBox1.AddItem UserForm2.TextBox1
UserForm1.TextBox1.Text = UserForm2.TextBox2
Unload Me
End Sub

В Вопросе 1 недоделано было, вот окончательный вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Private Sub ListBox1_Click()
If ListBox1.Value = "Россия" Then
   TextBox1.Value = "Москва"
ElseIf ListBox1.Value = "Украина" Then
   TextBox1.Value = "Киев"
End If
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Россия"
ListBox1.AddItem "Украина"
End Sub

@sashocheck · 30.12.2010, 20:01 **[ТС]**

Сообщение от Ципихович Эндрю

>Требуется: нажав на значение Россия в TextBox1
Это как?

Очепятка. Я хотел написать ListBox

Добавлено через 24 минуты
Busine2009, все работает, спасибо! Только как сохранить в ListBox новое значение?

@gaw · 30.12.2010, 22:11

Busine2009, разреши пару слов
в первом задании нет CommandButton1
например
1 согласно условию

Visual Basic
1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
st = Array("Москва", "Киев")
   TextBox1 = st(ListBox1.ListIndex)
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Россия"
ListBox1.AddItem "Украина"
End Sub

Busine2009,

второе, во втором задании, если кликнуть на лист1 по неактивной "Франция" --- то в текст1 "Париж" не появиться

@sashocheck · 30.12.2010, 22:47 **[ТС]**

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

второе, во втором задании, если кликнуть на лист1 по неактивной "Франция" --- то в текст1 "Париж" не появиться

А задача и не стояла, чтобы "Париж" отображался при неактивной "Франция".
За дополнение к первому вопросу, спасибо - прекрасно работает!

@gaw · 30.12.2010, 22:59

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

при неактивной

совсем не то, что

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

по неактивной

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

UserForm1.ListBox1.AddItem UserForm2.TextBox1
UserForm1.TextBox1.Text = UserForm2.TextBox2

этот фрагмент просто копирует из формы2 в 1
но, кликните на Россия, а потом понеактивной Франция, то в

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

TextBox1 отобразится значение Париж

не получится
вот я об этом

@gaw · 30.12.2010, 23:28

как то так, вторая форма без проверки на пустое поле (легко добавить)
интересным представляется вариант хранения данных в файле

@sashocheck · 30.12.2010, 23:48 **[ТС]**

Так при закрытии файла информация не сохраняется?!

@sashocheck · 01.01.2011, 12:22 **[ТС]**

Подскажите, пожалуйста, как сохранить введенные данные?

@Ципихович Эндрю · 01.01.2011, 12:51

Из этой области

PureBasic
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
Sub Глобальная_переменная()
 
If Not ExistVar("Счётчик") Then 'запускаем проверку на наличие переменной "Счётчик" в документе
ActiveDocument.Variables.Add "Счётчик", 0 'если переменной нет, значит создаем её, присваиваем ей значение …
ActiveDocument.Save 'сохранение документа, чтобы пользователь не смог закрыть документ не сохраняя создания счётчика
Else
ActiveDocument.Variables("Счётчик").Value = ActiveDocument.Variables("Счётчик").Value + 1 'если переменная уже существует, то увеличиваем её значение на 1
ActiveDocument.Save 'сохраняем документ сразу после увеличения счётчика, чтобы пользователь не смог закрыть документ не сохраняя изменённое значение счётчика
If ActiveDocument.Variables("Счётчик").Value > 10 Then 'условие, если значение счётчика больше предельного значения, тогда ...
MsgBox "Хорош, время вышло", vbOKOnly + vbCritical 'сообщение о превышении количества запусков
ActiveDocument.Close 'закрытие документа
End If
End If
Количество = ActiveDocument.Variables("Счётчик").Value 'после создания переменной значение Количество = 0
 
End Sub
 
Function ExistVar(ИмяИскомойПеременной As String) As Boolean 'функция для проверки существования переменной с именем "ИмяИскомойПеременной"
 
Dim myVar As Variable
ExistVar = False 'начальное значение функции
Количество_переменных_в_документе = ActiveDocument.Variables.Count
For Each myVar In ActiveDocument.Variables 'перебор всех переменных в документе
If myVar.Name = ИмяИскомойПеременной Then
ExistVar = True 'если переменная существует - возвращаем значение True
Exit For 'выход из цикла
End If
Next myVar
 
End Function

@sashocheck · 01.01.2011, 18:31 **[ТС]**

gaw, нашел в интернете:

1) для сохранения значений из ListBox в текстовый файл
Private Sub CommandButton2_Click()
pFile = "c:\11.txt"
Open pFile For Output As #1
For i = 0 To ListBox1.ListCount - 1
Print #1, ListBox1.List(i)
Next
Close #1
End Sub

2)для загрузки значений из текстового файла в ListBox
Private Sub UserForm_Activate()
pFile = "c:\11.txt"
Open pFile For Input As #1
Do While Not EOF(1)
Line Input #1, sTemp
ListBox1.AddItem sTemp
Loop
Close #1
End Sub

Но как внедрить все это в файл:

@Ципихович Эндрю · 01.01.2011, 18:36

ТЕКСТОВЫЙ ФАЙЛ УДАЛИТ КТО ТО И ВЫ В ПРОЛЁТЕ

@gaw · 01.01.2011, 18:47

Сообщение от Ципихович Эндрю

ТЕКСТОВЫЙ ФАЙЛ УДАЛИТ КТО ТО И ВЫ В ПРОЛЁТЕ

====> сохраняйте на листе книги

@Ципихович Эндрю · 01.01.2011, 18:56

ЧЕМ ВАМ НЕ ПОНРАВИЛИСЬ ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ?

@sashocheck · 01.01.2011, 19:15 **[ТС]**

gaw, место хранения информации, в принципе, не имеет значения (лучше файл, т.к. я потом хочу переделать данное приложение на VB). Вопрос в том как и куда внедрить код, который я нашел, в файл, который Вы предоставили, чтобы сохранились данные: "государство" и "столица"?
А то я уже 3 часа бьюсь над этим, а результат нулевой!

Я так думаю, что нужно 2 текстовых файла: один для "государство", другой для "столица"?

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

Сообщение от Ципихович Эндрю

ЧЕМ ВАМ НЕ ПОНРАВИЛИСЬ ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ?

Честно - я не понял куда и что вставлять согласно моим данным (я только новичок в VBA). Если бы, хоть немного, преобразили бы код под мои нужды - было бы очень неплохо!
А то до глобальных переменных в своих познаниях VBA я пока что не дошел.

@gaw · 01.01.2011, 19:21

sashocheck
из поверхностного анализа задачии возникают еще вопросы:
1 необходимо предусмотреть возможность изменения строки
2 ------- удаления ---//---
3 проверки на наличие повторов , ну что б два раза не было одно и то же

потом два файла текстовых --- если будешь в них непосредественно редактировать , да и то, можно обойтись одним
а лучше сохранять в *.bzd файл

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

я потом хочу переделать данное приложение на VB

ну так может сразу, там это проще реализовать /п.к.м. для меня/

@Ципихович Эндрю · 01.01.2011, 19:22

когда закрываете документ проверяете наличие глобальной переменной столица, если её нет создаёте и присваиваете ей значение, например Киев
Когда открываете документ проверяете наличие глобальной переменной столица, если она есть её значение то есть Киев считываете и вставляете его значением Лист бокса, ОК, там же и пример приложил

@Busine2009 · 01.01.2011, 19:22

sashocheck,
я потерял нить беседы.
Напишите ещё раз, что вам нужно.

Новые блоги и статьи Все статьи Все блоги /
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-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@sashocheck 19 / 19 / 6 Регистрация: 09.12.2010 Сообщений: 140

	Вопрос по ListBox 30.12.2010, 18:59. Показов 4485. Ответов 32 Метки нет (Все метки) Добрый день! Имеется 2 вопроса. Вопрос1. Дано: ListBox1 (со значениями Россия и Украина), TextBox1. Требуется: нажав на значение Россия в TextBox1 отобразилось значение Москва; нажав на значение Украина в TextBox1 в отобразилось значение Киев. Вопрос2 Дано: ListBox1 (со значениями Россия и Украина), TextBox1, CommandButton1. Требуется: нажав на CommandButton1, появляется Форма, в которой имеется TextBox2, TextBox3 и кнопка ОК; вводим в TextBox2 значение Франция, в TextBox3 - Париж; нажимаем ОК и значение Франция добавляется в ListBox1, нажав на которое в TextBox1 отобразится значение Париж. Заранее благодарен! 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	30.12.2010, 19:16
	>Требуется: нажав на значение Россия в TextBox1 Это как? 0

@sashocheck 19 / 19 / 6 Регистрация: 09.12.2010 Сообщений: 140
	30.12.2010, 23:48 [ТС]
	Так при закрытии файла информация не сохраняется?! 0

@sashocheck 19 / 19 / 6 Регистрация: 09.12.2010 Сообщений: 140
	01.01.2011, 12:22 [ТС]
	Подскажите, пожалуйста, как сохранить введенные данные? 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	01.01.2011, 18:36
	ТЕКСТОВЫЙ ФАЙЛ УДАЛИТ КТО ТО И ВЫ В ПРОЛЁТЕ 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	01.01.2011, 18:56
	ЧЕМ ВАМ НЕ ПОНРАВИЛИСЬ ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ? 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	01.01.2011, 19:22
	когда закрываете документ проверяете наличие глобальной переменной столица, если её нет создаёте и присваиваете ей значение, например Киев Когда открываете документ проверяете наличие глобальной переменной столица, если она есть её значение то есть Киев считываете и вставляете его значением Лист бокса, ОК, там же и пример приложил 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	01.01.2011, 19:22
	sashocheck, я потерял нить беседы. Напишите ещё раз, что вам нужно. 0