Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Задача! Помогите решить задачу на VB 
:(
    Опции темы
REVOLT
  Дата 6.4.2004, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
Условие:
Составить программу, в которой по номеру элемента списка, введённому в одном зи полей ввода, в другом поле ввода выводиться значение элемента (т.е. содержимое строки в листе) из списка. В случае ввода несуществуешего помера должно быть выведенно сообветствующее сообщение сообщение
PM MAIL WWW ICQ   Вверх
cardinal
Дата 6.4.2004, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Модератор: Название темы должно отражать ее суть!

MSDN:
Returning the Number of Items with the ListCount Property
Цитата
To return the number of items in a list box, use the ListCount property. For example, the following statement uses the ListCount property to determine the number of entries in a list box:

Text1.Text = "You have " & List1.ListCount & " _
entries listed"

Accessing List Items with the List Property
Цитата
The List property provides access to all items in the list. This property contains an array in which each item in the list is an element of the array. Each item is represented in string form. To refer to an item in the list, use this syntax:

box.List(index)

The box argument is a reference to a list box, and index is the position of the item. The top item has an index of 0, the next has an index of 1, and so on. For example, the following statement displays the third item (index = 2) in a list in a text box:

Text1.Text = List1.List(2)

То есть (если с ошибкой):
Код
Private Sub Command1_Click()
Dim i As Integer
i = 2
If i > List1.ListCount Then MsgBox "error"
Text1.Text = List1.List(i)
End Sub

Если что не понятно - спрашивай!


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
REVOLT
Дата 6.4.2004, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
Чё-то не очень понял! Если не затруднит, можно подробнее.
PM MAIL WWW ICQ   Вверх
cardinal
Дата 6.4.2004, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
В какой строке, что не понял?


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
REV0LT
Дата 6.4.2004, 19:27 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Если честно, то вообще не понял. Я может быть не так задачу задал. Вот сейчас по русски. Ести один ListBox и два текстовых поля. В листе есть три записи. Вопрос мой таков. Надо ввести в Text1 номер строки (не индекс, а именно номер) и чтобы в Text2 появилась та строчка номер которой ввели. Помоги пожалуйста чайнику, плиз!
  Вверх
cardinal
Дата 6.4.2004, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Может я что-то не понимаю, но
index + 1 = номер строки
Немного математики и ты получишь
index = номер строки - 1 smile.gif

Соответственно вот:
Код
Private Sub Command1_Click()
Text2.Text = List1.List(Text1.Text - 1)
End Sub

Private Sub Form_Load()
List1.AddItem "первая строка"
List1.AddItem "вторая строка"
List1.AddItem "третья строка"
End Sub



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Гость_REVOLT
Дата 7.4.2004, 14:01 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Cardinal, спасибо тебе огромное, очень выручил!
  Вверх
REVOLT
  Дата 7.4.2004, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
У меня ещё одна проблема! Как сделать так чтобы при вводе неверного числа, т.е если такой строчки нет выводилась ошибка?
PM MAIL WWW ICQ   Вверх
cardinal
Дата 7.4.2004, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Самый простой вариант:
Код
Private Sub Command1_Click()
On Error GoTo ShitHappened
' тут происходит ошибка
ShitHappened:
    ' тут можешь обработать ошибку
End Sub

Подробней читай тут:
http://www.firststeps.ru/vba/excel/r.php?12
тут:
http://www.handheld-basic.com/documentatio...t/page_966.html
и тут:
http://forum.vingrad.ru/index.php?showtopic=20660


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
REVOLT
Дата 7.4.2004, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
Ууу, я вас ещё не достал? У меня ещё вопрос. Как сделать так чтобы при вводе текста в текстбокс строчки из листбокса во втором текстовом окне появлялся номер строки?
PM MAIL WWW ICQ   Вверх
cardinal
Дата 7.4.2004, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата
Ууу, я вас ещё не достал?

Нет, просто дал тебе побольше информации smile.gif

Переформулируй последний вопрос, как то не очень понятно...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
REVOLT
Дата 7.4.2004, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет
Есть ЛистБокс, и 2 текстовых поля, в первое текстовое поле нужно ввести данные листБокса например "Кошка", а во втором текстовом поле должен появиться его номер из листа. И ещё вопросик MSDN русская бывает?
PM MAIL WWW ICQ   Вверх
cardinal
Дата 7.4.2004, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата
в первое текстовое поле нужно ввести данные листБокса например "Кошка"

Встаем в TextBox и вводим "к", "о", "ш", "к", "а" - "кошка" smile.gif
Цитата
а во втором текстовом поле должен появиться его номер из листа

Делаешь фунцию, которая пробегается по элементам списка и возвращает 0 если ничего не найдет или номер элемента в списке. Если ноль, то пишешь в TextBox2 "not found", если нет - пишешь туда номер, который она возвратила.
Цитата
И ещё вопросик MSDN русская бывает?

Помоему нет, у меня английский. Учи английский, тебе пол интернета (и тот же MSDN) не доступно, если ты не знаешь английский smile.gif


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0508 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.