0 / 0 / 0
Регистрация: 04.05.2011
Сообщений: 5
1

combobox и listbox

04.05.2011, 23:01. Показов 1637. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
суть такая:
текстовый файл содержит такие данные: группа, фамилия, оценки по экзаменам
выглядит это примерно так
группа 1, Борисов, 5, 4, 3, 4, 5 (и так 16 штук)
так вот, подскажите как мне сделать так, чтоб при выборе в combobox "группа 1" или "группа 2" в listbox-ах отображались соответствующие фамилии и тп
всем заранее спасибо
0
04.05.2011, 23:01
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.05.2011, 23:01
Ответы с готовыми решениями:

ComboBox и ListBox
Привет всем. Как при выборе определенного Item в ComboBox, в ListBox выводился нужный список?

Listbox,combobox
Здравствуйте, помогите пожалуйста немного сообразить. У меня есть listbox,combobox, textbox. В combobox я в список добавила : 11, 22, 33 ...

ListBox + ComboBox
В общем, начну с того, что я вообще не разбираюсь в Win API, у меня одна лабораторная по него в университете и дальше мы перейдем на что-то...

6
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
05.05.2011, 00:36 2
Ну, любая задача начинается с алгоритма.
Есть текстовый файл - значит будем считывать его в какую-нибудь переменную, назовём её strFile.Считаем всё туда, разделим это ";"

Далее, нужно разбить файл на строки, т.е. на данные для каждого студента.
strArray = Split(strFile,";")

Ещё нужно заполнить comboBox нашими группами.
Visual Basic
1
2
3
For i=0 to UBound(strArray)
     Combo1.AddItem strArray(0)
next i
Теперь в событии Combo1_Click допишем
Visual Basic
1
2
3
4
5
6
For i = 0 to UBound(strArray)
     If Combo1.Text = strArray(0) then
          temp = split(strArray(0),",")
          listbox1.addItem temp(1) & " " & temp(2) 'итд
     end if
next i
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
05.05.2011, 00:38 3
как вариант:
читаем файл по строках
в каждой строке выделяем содержимое до первой зпт.
если равно выбранному, то таким же образом забираем необходимое

Добавлено через 1 минуту
не успел
0
 Аватар для YuraAAA
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
05.05.2011, 00:41 4
хах, красава
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
05.05.2011, 06:14 5
Есть текстовый файл - значит будем считывать его в какую-нибудь переменную, назовём её strFile.Считаем всё туда, разделим это ";"
Далее, нужно разбить файл на строки, т.е. на данные для каждого студента.
strArray = Split(strFile,";")
Как вариант(я делаю именно так) Считать файл целиком в переменную и разбить по строкам -

Visual Basic
1
2
3
4
5
6
   Dim File As String, CF As String 
   File = "d:\ca.log" 
   Open File For Binary As #1 
      CF = Input(FileLen(File), 1) 
   Close #1 
strArray = Split(CF, VbNewLine)
1
0 / 0 / 0
Регистрация: 04.05.2011
Сообщений: 5
05.05.2011, 23:15  [ТС] 6
это все замечательно, спасибо)
но одна проблемка)
у меня все данные должны быть размещены в разных листбоксах
ну то есть у меня начало выглядит примерно так:

Dim Group(16) As String, Famil(16) As String, Ex1(16) As Integer, Ex2(16) As Integer, Ex3(16) As Integer
Dim Ex4(16) As Integer, Ex5(16) As Integer, SocWork(16) As Variant
Private Sub Command1_Click()
Open "P:\data.txt" For Input As #1
For i = 1 To 16
Input #1, Group(i), Famil(i), Ex1(i), Ex2(i), Ex3(i), Ex4(i), Ex5(i), SocWork(i)

List1.AddItem Group(i)
List2.AddItem Famil(i)
List3.AddItem Ex1(i)
List4.AddItem Ex2(i)
List5.AddItem Ex3(i)
List6.AddItem Ex4(i)
List7.AddItem Ex5(i)

есть какие-нибудь варианты?
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
05.05.2011, 23:26 7
Ничто не мешает разбить предложение по запятым в массив строки
Visual Basic
1
2
3
For i = 0 To Ubound(strArray)-1
 Group(i+1) = Split(strArray(i), ",")(0)
 Famil(i+1) = Split(strArray(i), ",")(1)
Или разбить во временный массив:
Dim S() As String
[VB]
Visual Basic
1
2
3
4
For i = 0 To Ubound(strArray)-1
S = Split(strArray(i), ",")
 Group(i+1) = S(0)
 Famil(i+1) = S(1)
0
05.05.2011, 23:26
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
05.05.2011, 23:26
Помогаю со студенческими работами здесь

ListBox из Combobox
Доброго времени суток, уважаемые коллеги! Задача следующая: есть база данных состоящая из элементов класса: public class ZAPIS { ...

listbox and combobox
Знающие помогите реализовать изменение listbox при помощи combobox, подробно в прикреплении

ListBox в combobox
Здравствуйте, подскажите пожалуйста, как значения из listbox передавать в combobox?

ListBox и ComboBox
Здравствуйте! Проблема такая, имеется несколько ComboBox-ов из которых значение заноситься в ListBox. При выборе значения из второго...

ListBox в ComboBox
Доброго времени суток всем. Создал partial class который наследуется от ComboBox. Хочу во время раскрытия комбобокса показывать...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
Отличия интерфейсов и типов в TypeScript
hw_wired 13.02.2025
TypeScript - мощное средство для создания качественного и поддерживаемого кода, который расширяет возможности JavaScript, добавляя систему статической типизации. В отличие от динамической типизации. . .
Async/await в циклах JavaScript
hw_wired 13.02.2025
Современная веб-разработка немыслима без асинхронного программирования. Когда приложение выполняет длительные операции - загрузку данных с сервера, чтение файлов или обработку медиа-контента, важно. . .
Git не работает на MacOS после апдейта
hw_wired 13.02.2025
После очередного обновления MacOS многие разработчики сталкиваются с неприятным сюрпризом - Git перестает работать и выдает ошибку "xcrun: error: invalid active developer path". Эта проблема особенно. . .
Git отказывается объединять несвязанные истории
hw_wired 13.02.2025
Git работает безупречно, пока мы не сталкиваемся с особыми ситуациями вроде объединения веток с разными корнями истории. В таких случаях система контроля версий может преподнести неприятный сюрприз в. . .
Проверка email с помощью JavaScript
hw_wired 13.02.2025
Email-адреса имеют довольно запутанную спецификацию, которая допускает множество неочевидных вариантов написания. Например, знали ли вы, что адрес вида "name+tag@domain. com" или даже. . .
Замена всех вхождений строки с помощью JavaScript
hw_wired 13.02.2025
JavaScript предлагает несколько способов для выполнения операций замены в строках, каждый из которых имеет свои особенности и область применения. От простейшей замены первого найденного вхождения до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru