Форум
Написать нам
  • Страница 1 из 1
  • 1
Модератор форума: as-master  
Никак не могу поять ListBox
mulrusДата: Четверг, 26 Июня 2014, 17:05 | Сообщение # 1
Новый участник
Группа: Пользователи
Сообщений: 2
Репутация: 0
Награды: 0
Статус: Offline
Приветствую форум.

В билдере давно работаю, я не профессинальный программер. И вот недавно приспичило сделать простую прогу:

Страница 1 - есть ListBox, в котором есть просто выбор пунктов. Как по выбору допустим конкретного пункта перейти на нужную мне страницу. Перекопал все уж. help help

Список загружаю следующим способом:
ListBoxAddItem("SongList","Главный раздел")
ListBoxAddItem("SongList"," Подраздел.1")
ListBoxAddItem("SongList"," Подраздел.2")
ListBoxAddItem("SongList","Главный раздел")

Кто нить знает как решить эту простую задачку?
 
YURIYДата: Воскресенье, 29 Июня 2014, 12:07 | Сообщение # 2
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
Всё очень просто. Тем более, что есть справка, куча примеров и так далее, где всё это описано. Вам нужна команда ListBoxGetSelectedItems. И тогда, в свойствах списка по событию Double click, можно прописать примерно такой код:

Код
ListBoxGetSelectedItems("SongList","Items$,NumItems$,#,Count")
If (Count<>0) Then
   For i=1 To Count
     Item$=GetArrayItem(Items$,#,i)
     If (Item$='Главный раздел') Then
       Message("Выбран главный раздел","")
     End
   Next i
End


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



Вечная память Андрею Сергееву!
 
mulrusДата: Понедельник, 30 Июня 2014, 10:15 | Сообщение # 3
Новый участник
Группа: Пользователи
Сообщений: 2
Репутация: 0
Награды: 0
Статус: Offline
Приветствую. Попытался сделать так

ListBoxGetSelectedItems("SongList","Items$,NumItems$,#,Count")
If (Count<>0) Then
For i=1 To Count
Item$=GetArrayItem(Items$,#,i)
If (Item$='Главный раздел') Then
Page("Page 2")
End
Next i
End

Но при переходе на страницу, программа тупо дает ошибку и вылетает. Хотя с Message всё работает.
 
YURIYДата: Понедельник, 30 Июня 2014, 12:16 | Сообщение # 4
Злостный админ
Группа: Администраторы
Сообщений: 3018
Репутация: 71
Награды: 28
Статус: Offline
Хм, действительно... У меня так же. Какой-то баг... Подумаю ещё, как обойти.


Вечная память Андрею Сергееву!
 
  • Страница 1 из 1
  • 1
Поиск: