Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
qwegan
Цитата:| чтобы они все одновременно при нажатии на кнопку (как вариант) добавлялись в проигрыватель. |
Код: --[[
Описание: Создание M3U плейлиста.
Аргументы: sOutFile - полный путь к создаваемому плейлисту (с указанием имени).
Если аргумент sOutFile не будет указан, то будет создан
файл (плейлист) во временной папке Windows с именем Default.m3u
]]
function CreatePLS(sOutFile)
-- если аргумент не указан
if (sOutFile == nil) then
-- создаем плейлист во временной папке Windows с именем Default.m3u
sOutFile = _TempFolder.."\\Default.m3u";
end
-- количество пунктов в Листбоксе
local nCount = ListBox.GetCount("ListBox1");
-- если их больше нуля
if (nCount > 0) then
-- создаем строковую переменную для хранения списка треков
sTracks = "";
-- перебираем в цикле каждый пункт Листбокса
for n = 1, nCount do
-- добавляем в переменную sTracks путь к треку
sTracks = sTracks..ListBox.GetItemData("ListBox1", n).."\r\n";
end
-- создаем M3U плейлист
TextFile.WriteFromString(sOutFile, "#EXTM3U\r\n"..sTracks, false);
-- проверяем на ошибки
nError = Application.GetLastError();
-- если есть ошибки
if (nError ~= 0) then
-- возвращем nil
return nil;
else -- если нет ошибок
-- возвращаем путь к созданному плейлисту
return sOutFile;
end
end
end |
On Click кнопки:
Код: -- создаем плейлист
local sPathPLS = CreatePLS();
-- если пл-ст создан
if (sPathPLS) then
-- воспроизводим его ассоциированной с ним программой
File.Run(File.GetDefaultViewer(".m3u), sPathPLS, "", SW_SHOWNORMAL, false);
end |
Цитата:| можно при наведении курсора на элемент listboxa этот самый элемент как-нибудь подсвечивать? |
Стандартно такое не сделать, можно наверно с помощью API и таймера получать номер item'a под курсором мыши и выделять его с помощью ListBox.SelectItem();
|
Всего записей: 3273 | Зарегистр. 30-05-2007 | Отправлено: 21:31 14-09-2008 | Исправлено: Zloy_Gelud, 21:52 14-09-2008 |
|
