ListBoxEx Adicionar ícone Assoc APZ

Ejemplos y plantillas para Autoplay Media Studio.
ListBoxEx Adicionar ícone Assoc APZ Exemplo
HIDE: ON
Hidebb Message Hidden Description




Imagen

strSourceFile = "C:\\Users";
tbSearchFiles = {"*"};
for index,type in pairs (tbSearchFiles) do
file = File.Find(strSourceFile, type, true, false, nil);    
if file ~= nil and file ~="CANCEL" then
for j,file_path in pairs (file) do
idIcon = ListBoxEx.AddAssocIcon("Plugin1", LBXASSOC_SMALLICON, file_path);
tbFilePath = String.SplitPath(file_path);
sFile = "<p><font color=#0000A0 face='verdana' size=3>"..tbFilePath.Filename..tbFilePath.Extension.."</font></p>";
ListBoxEx.AddItem("Plugin1", sFile, file_path, file_path, "", idIcon, LBXITEM_HTML, 0, x, nil, nil);
end
end
end
Obrgado
thank you
thnlsssssssssssssssssssssss
Gracias...
THANKSSS
:feelsgoodman-1417755815: :ilied-1417752608:
hdd.utilities escribió:
20 Sep 2018 21:24
ListBoxEx Adicionar ícone Assoc APZ Exemplo
{{This message has been hidden}}




Imagen

strSourceFile = "C:\\Users";
tbSearchFiles = {"*"};
for index,type in pairs (tbSearchFiles) do
file = File.Find(strSourceFile, type, true, false, nil);    
if file ~= nil and file ~="CANCEL" then
for j,file_path in pairs (file) do
idIcon = ListBoxEx.AddAssocIcon("Plugin1", LBXASSOC_SMALLICON, file_path);
tbFilePath = String.SplitPath(file_path);
sFile = "<p><font color=#0000A0 face='verdana' size=3>"..tbFilePath.Filename..tbFilePath.Extension.."</font></p>";
ListBoxEx.AddItem("Plugin1", sFile, file_path, file_path, "", idIcon, LBXITEM_HTML, 0, x, nil, nil);
end
end
end