davpin22
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lerik2703
Цитата:| вообше как я писал что код который я выложил это не более чем пример!расскажи о структуре проекта ! |
Структура проекта такая:
В ComboBox1 открывается выпадающий список всех марок автомобилей(Audi;BMW;Fiat...). При выборе одного из них,например Audi, в ComboBox2 открывается выпадающий список всех моделей этой марки (A4;A6;TT...). А при выборе одной из модели в ComboBox2, в ListBox появляется файл описания этой модели в формате pdf, который открывается при двойном клике.
Впроекте все так и работает но есть проблема!
Допустим в ComboBox1 выбрано Audi, в ComboBox2 появляется список всех моделей A4;A6;TT...
За тем в ComboBox1 выбрано "Buick" к моделям которого нет описания и ComboBox2 должен быть пустым, но в нём остаются прежние марки A4;A6;TT...
nGetCou = ComboBox.GetCount("ComboBox2");
for x=1,nGetCou do
ComboBox.DeleteItem("ComboBox2", 1);
end
sDate = ComboBox.GetItemData("ComboBox1", e_Selection);
elseif sDate == "Audi" then
tPerformer={Q7="Q7",TT="TT",A4="A4"}
elseif sDate == "BMW" then
tPerformer={BMW3="BMW3",BMW5="BMW5"}
--elseif sDate == "Buick" then
tPerformer={Lucerne="Lucerne",LaCross="LaCross",ParkAvenue="Park Avenue"}
elseif sDate == "Cadillac" then
tPerformer={DeVille="DeVille",SRX="SRX"}
end
if tPerformer ~= nil then
for n,sPerformer in pairs (tPerformer) do
ComboBox.AddItem("ComboBox2",sPerformer,n);
end
end
ComboBox.SetSelected("ComboBox2", 1)
Цитата:| Можно ли добавить в ListBox папки в формате pdf и txt? |
Файлы pdf это схемы, к определённой модели,которые например находятся в .."\\Autoplay\\Docs\\Audi\\A3"
но а если схемы к выбранной модели нет, то чтобы был виден файл в формате *.txt вкотором будет описание к этой модели в той же папке .."\\Autoplay\\Docs\\Audi\\A3"
Другими словами,если в ComboBox2 выбрано A3, то ListBox1 были бы видны фалы в формате pdf и txt которые находятся в папке .."\\Autoplay\\Docs\\Audi\\A3"
ListBox.SetVisible("ListBox1", true);
Label.SetVisible("Label3", true);
nCount = ListBox.GetCount("ListBox1");
if (nCount) then
while nCount > 0 do
ListBox.DeleteItem("ListBox1", nCount);
nCount = nCount - 1;
end
end
sDate = ComboBox.GetItemData("ComboBox2", e_Selection);
if sDate == "A3" then
sFilePatch=_SourceFolder.."\\Autoplay\\Docs\\Audi\\A3"
elseif sDate == "A4" then
sFilePatch=_SourceFolder.."\\Autoplay\\Docs\\Audi\\A4"
else
sFilePatch=""
end
if sFilePatch ~= "" then
file = File.Find(sFilePatch, "*.pdf", false, false, nil);
if file ~= nil then
ListBox.DeleteItem("ListBox1", -1);
for j,strFilePatch in pairs (file) do
title = strFilePatch;
title = String.Right(title, (String.Length(title) - String.ReverseFind(title, "\\", true)));
ListBox.AddItem("ListBox1", title , strFilePatch);
end
else
Dialog.Message("", "Íå íàéäåíî íè îäíîãî Ôàéëà ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end
|
Дружественная тема в Варезнике
))