AMSSpecialist

HIDE: ON

Hidebb Message Hidden Description

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

hdd.utilities escribió: ↑

20 Sep 2018 21:24

ListBoxEx Adicionar ícone Assoc APZ Exemplo
{{This message has been hidden}}

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