hola chicos soy nueva estoy intentando hacer una discografia con ujn LISTBOXEX y he conseguido que al pulsar en una imagen se cargue los mp3 en el ListBoxEx pero no consigo que al selecionar un MP3 me lo reproduzca en el plugin media player, os dejo el codigo
en cada imagen en el OnClick
en el Global
los MP3 me los carga perfectamente
en el OnSelect
y en el OnFinist del plugin Media player
no me reproduce los Mp3
gracias chicos
en cada imagen en el OnClick
Folder= _SourceFolder.."\\AutoPlay\\Audio\\MUSICA\\Pablo Alboran"-- Carpeta que queremos de contenedor de nuestros mp3
AddFilestoList(Folder)
function AddFilestoList(strFolder)
local sz_itemText;
ListBoxEx.DeleteAllItems("List");
StatusDlg.Show(MB_ICONNONE, false);
local tb = File.Find(strFolder, "*.mp3", false, false);--Busqueda de archivos mp3 en el directorio strFolder
if tb then
StatusDlg.SetMeterRange(1,table.maxn(tb));
for i,v in pairs (tb) do--recorremos tabla
sFile = String.SplitPath(v).Filename..String.SplitPath(v).Extension --estraccion del nombre de archovo y extension de la ruta completa
nIcon = ListBoxEx.AddAssocIcon("List", LBXASSOC_SMALLICON,v);--Funcion del listboex para sacar el icono por defecto de windows en el archivo, previo crear imagelist "on create" evento.
StatusDlg.SetMeterPos(i);
StatusDlg.SetTitle(Math.Floor((i/table.maxn(tb)*100)).." %");
StatusDlg.SetMessage("Add "..sFile.." to list");
sz_itemText = "<p><b><font color=#333333 face=Arial size=4 >"..sFile.."</font></b></p>"--codigo hatml para crear el item con el nombre del archivo
Application.Sleep(50)-- esto es para que sea mas visible el statusdlg , totalmente opcional.
ListBoxEx.AddItem("List", sz_itemText, "", v, "", nIcon, LBXITEM_HTML, 0, nil, nil, nil);--añadimos item
end
end
StatusDlg.Hide();
end
en el OnSelect
tSelected = ListBox.GetSelected("List");
if tSelected then
sFile = ListBox.GetItemData("List", tSelected[1]);
MediaPlayer.Load("Reproductor", sFile);
MediaPlayer.Play("Reproductor");
end
nCount ="";
nNext ="";
sFile ="";
nCount = ListBox.GetCount("List");
tSelected = ListBox.GetSelected("List");
if tSelected then
nSelected = tSelected[1];
nNext = nSelected;
if nNext < nCount then
nNext = nNext+1;
ListBox.SelectItem("List", nNext);
sFile = ListBox.GetItemData("List", nNext);
MediaPlayer.Load("Reproductor", sFile);
MediaPlayer.Play("Reproductor");
elseif nNext == nCount then
ListBox.SelectItem("List", 1);
sFile = ListBox.GetItemData("List", 1);
MediaPlayer.Load("Reproductor", sFile);
MediaPlayer.Play("Reproductor");
end
end
gracias chicos