Тема: AHK: Удаление Gui элементов
Есть форма гуи с элементами Tab2, первая вкладка содержит таблицу ListView там есть список фалов по двойному клику создается новая вкладка с именем файла и его содержимым в формах, с созданием новой вкладки также создаются элементы гуи. Наверное все напсианно через "одно место" писал как умею. Задача такая нужно корректно закрывать вкладку и удалять все созданные на ней элементы. Приведу пример кода который создает вкладку. Буду очень благодарен за любую помощь.
Gui, 1:Add, Tab2, x0 y0 h20 w800 vMainTable gMainTable wrap, Заявки
Gui, 1:Tab, 1
Gui, 1:Add, ListView, vRequestList gRequestList r22 x20 y20 w510 AltSubmit Grid -LV0x10 -Multi NoSortHdr -WantF2 hwndlv, №|Заголовок|Статус|Ответ|Коментарий|
RequestList:
SNumber := LV_GetNext( "Focused" )
RowNumber := LV_GetNext( 0, "F" )
if not RowNumber
Return
if A_GuiEvent = DoubleClick
{
SNumber := LV_GetNext( "Focused" )
RowNumber := LV_GetNext( 0, "F" )
FileNumber := "Request\"
FileNumber .= NumberRequest
FileNumber .= ".txt"
GoSub MainTable
}
MainTable:
Gui SubMit, NoHide
NameTab := NumberRequest
Loop %PageNum%
{
TmpNamePage := PageMass[A_Index]
TmpFlagNum := FlagMass[A_Index]
if ( TmpNamePage = NameTab )
{
if ( TmpFlagNum = 1 )
{
NameTab := MainTable
Return
}
else
{
GoSub ClearGuiControlSource
GuiControl,, MainTable, %NameTab%
Gui, Tab, %NameTab%,, Exact
FlagMass[A_Index] := 1
GuiControl, Choose, MainTable, %A_Index%
StringPageTabs .= "|"
StringPageTabs .= NumberRequest
Gui SubMit, NoHide
GoSub RefreshGuiControlSource
Return
}
}
}
PageNum ++
PageMass[PageNum] := NumberRequest
FlagMass[PageNum] := 1
StringPageTabs .= "|"
StringPageTabs .= NumberRequest
PrevNameTabs := NameTab
GuiControl,, MainTable, %NameTab%
Gui, Tab, %NameTab%,, Exact
ForChooseRab := PageNum + 1
GuiControl, Choose, MainTable, %ForChooseRab%
Gui SubMit, NoHide
Gui, 1:Add, Text, x425 y10 w60 vDateRequest%MainTable%
Gui, 1:Add, Text, x30 y20, Номер заявки
Gui, 1:Add, Edit, x30 y40 w70 h20 Number vNumberRequest%MainTable% ReadOnly
Gui, 1:Add, Text, x130 y20, Заголовок заявки
Gui, 1:Add, Edit, x130 y40 w338 h20 vTitleRequest%MainTable%
Gui, 1:Add, GroupBox, x10 y70 w475 h180, Характириситки автомобиля
Gui, 1:Add, Text, x30 y90, Марка
Gui, 1:Add, DropDownList, vBrandSource%MainTable% x30 y110, Acura|Alfa Romeo|Audi|BMW|Chevrolet|Chrysler|Citroen|Dacia|Daewoo|DAF|Daihatsu|Dodge|Fiat|Ford|Honda|Hummer|Hyundai|Infiniti|Isuzu|Iveco|Jaguar|Jeep|Kia|Lancia|Land Rover|LDV (DAF)|Lexus|Man|Mazda|Mercedes-Benz|Mini|Mitsubishi|Nissan|Opel|Peugeot|Plymouth|Pontiac|Porsche|Proton|Renault|Rover|Saab|Seat|Skoda|Ssang Yong|Subaru|Suzuki|Toyota|Volkswagen|Volvo
Gui, 1:Add, Text, x174 y90, Модель
Gui, 1:Add, Edit, x174 y110 w200 h21 vModelSource%MainTable%
Gui, 1:Add, Text, x395 y90, Год
Gui, 1:Add, DropDownList, vYearSource%MainTable% AltSubmit x395 y110 w70, |2015|2014|2013|2012|2011|2010|2009|2008|2007|2006|2005|2004|2003|2002|2001|2000|1999|1998|1997|1996|1995|1994|1993|1992|1991|1990|1989|1988|1987|1986|1985|1984|1983|1982|1981|1980
Gui, 1:Add, Text, x30 y140, Тип кузова
Gui, 1:Add, DropDownList, vKuzovSource%MainTable% x30 y160 w90,|Седан|Внедорожник 5д|Внедорожник 3д|Компакт|Универсал|Хэтчбэк 5д|Хетчбэк 3д|Купе|Минивэн|Автобус
Gui, 1:Add, Text, x148 y140, Тип двигателя
Gui, 1:Add, DropDownList, vDvsSource%MainTable% x148 y160 w90, |Дизель|Дизель Турбо|Бензин|Бензин Турбо
Gui, 1:Add, Text, x261 y140, Обьем двигателя
Gui, 1:Add, DropDownList, vObemSource%MainTable% x261 y160 w90, |0.8|0.9|1.0|1.1|1.2|1.3|1.4|1.5|1.6|1.7|1.8|1.9|2.0|2.1|2.2|2.3|2.4|2.5|2.6|2.7|2.8|2.9|3.0|3.1|3.2|3.3|3.4|3.5|3.6|3.7|3.8|3.9|4.0|4.1|4.2|4.3|4.4|4.5|4.6|4.7|4.8|4.9|5.0|5.1|5.2|5.3|5.4|5.5|5.6|5.7|5.8|5.9|6.0|6.1|6.2|6.3|6.4|6.5|6.6|6.7|6.8|6.9|7.0|7.1|7.2|7.3|7.4|7.5|7.6|7.7|7.8|7.9|8.0
Gui, 1:Add, Text, x376 y140, Тип КПП
Gui, 1:Add, DropDownList, vKPPSource%MainTable% x376 y160 w90, |АКПП|Вариатор|МКПП-4ст|МКПП-5ст|МКПП-6ст|Робот|Типтроник
Gui, 1:Add, Text, x30 y190, Тип привода
Gui, 1:Add, DropDownList, vPrivodSource%MainTable% x30 y210 w90, |Передний|Задний|Полный
Gui, 1:Add, Text, x148 y190, Кондиционер
Gui, 1:Add, DropDownList, vKonditionSource%MainTable% x148 y210 w90, |Есть|Нет
Gui, 1:Add, Text, x261 y190, ABS
Gui, 1:Add, DropDownList, vAbsSource%MainTable% x261 y210 w90, |ABS|ABS+ASD|Без ABS|ESP
Gui, 1:Add, Text, x376 y190, VIN
Gui, 1:Add, Edit, x376 y210 w90 h21 vVinSource%MainTable%
Gui, 1:Add, GroupBox, x10 y255 w335 h165, Список запчастей
Gui, 1:Add, Edit, x30 y275 w300 h135 vDetaliSource%MainTable%
Gui, 1:Add, GroupBox, x350 y255 w137 h165, Контакты клиента
Gui, 1:Add, Text, x360 y270, Имя
Gui, 1:Add, Edit, x360 y290 w120 vName%MainTable%
Gui, 1:Add, Text, x360 y320 vPhoneTextMain%MainTable% w100, Телефон
Gui, 1:Add, Edit, x360 y340 w120 vPhone%MainTable%
Gui, 1:Add, Text, x360 y370, E-Mail
Gui, 1:Add, Edit, x360 y390 w120 vMail%MainTable%
Gui, 1:Add, GroupBox, x10 y425 w335 h130, Коментарий
Gui, 1:Add, Edit, x30 y440 w300 h100 vCommentSource%MainTable%
Gui, 1:Add, Button, x360 y430 w120 h30 gCallPhone vbCall%MainTable%, Позвонить
Gui, 1:Add, Button, x360 y477 w120 h30 gSendMail vbSendMailForm%MainTable%, Отправить E-Mail
Gui, 1:Add, Button, x360 y525 w120 h30 gSendSMS vbSendSMS%MainTable%, Отправить SMS
Gui, 1:Add, Button, x60 y580 w140 h24 gSaveSource vbSaveSource%MainTable%, Сохранить
Gui, 1:Add, Button, x300 y580 w140 h24 gCloseSource vbCloseSource%MainTable%, Закрыть
Gui, 1:Add, GroupBox, x500 y10 w300 h600, История общения
Gui, 1:Add, Edit, x510 y30 w280 h570 ReadOnly vHistoryMessengMain%MainTable%
GoSub EditRequest
Return
Вырваны куски кода которые должны хоть немного обрисовать картину.