Hi Everyone,
In according the help, the Drop-Down Tree can be set the Event but I am not able to established the Event at all.
I have the test Code here.
Did I missing something on the Dropdown Tree's event handle?
In according the help, the Drop-Down Tree can be set the Event but I am not able to established the Event at all.
Code:
Drop Down Tree Control Syntax Syntax [ [. Width ] Variable_Name ^=< Choice_Array [ ! Event ][ ? Enabled ] ]
I have the test Code here.
Code:
dim treeoptions as C treeoptions = <<%str% Power . No Power Network . Can't log in Network . Can't connect Network . Invalid username or password Network . Other Printer . Specific error message Printer . Print job stuck in queue Printer . Paper Jam Printer . Can't print Printer . Print job going to another printer Printer . Other Software . Program error Software . Virus Network . Setup new account Software . Install software Software . Can't access email Hardware . Noisy Hardware . Can't boot / hangs during boot Hardware . No display on monitor Printer . Install printer Software . Computer freezes Relocate . Equipment Relocate . User data Relocate . User account Hardware . Install new hardware %str% ui_dlg_box("Drop Down Tree Control",<<%dlg% {lf}; Dropdown Tree:| [%S=BRL%.50option^=<treeoptions!vTree_*]; {lf}; Sample cell:| [.10Samplecell!ul_cell_*]; {lf}; <cancel>; %dlg%,<<%code% If left(alltrim(a_dlg_button),6) ="vTree_" then 'msgbox("Event ") If a_dlg_button ="vTree_setfocus" then msgbox("event status","setfocus"+a_dlg_button) end if If a_dlg_button ="vTree_change" then msgbox("event status","Changed"+a_dlg_button) end if If a_dlg_button ="vTree_killfocus" then msgbox("event status","killfocus"+a_dlg_button) end if a_dlg_button ="" end if if left(a_dlg_button,7) = "ul_cell" then if a_dlg_button = "ul_cell_killfocus" then ul_cell = upper(samplecell) msgbox("Cell Killfocus: "+ul_cell) 'frow = regex_merge(samplecell, "[A-Z]","") 'fcol = asc(regex_merge(samplecell, "[0-9]",""))-64 end if a_dlg_button = "" end if %code%)
Comment