댓글 리스트
-
답댓글 작성자 파빌신 작성시간14.06.11 uo_tabbar ln_open
integer li_index, li_max
w_sheet lw_open
// 같은것이 있는지 찾아서
li_max = wf_FindObject (as_text, false)
if li_max > 0 then
tab_1.Selecttab( tab_1.control[li_max] )
else
li_index = upperBound( tab_1.control ) + 1
tab_1.Opentab( ln_open, "uo_tabbar", li_index)
li_max ++
ln_open.text = as_text// + '_' + String(li_max)
ln_open.is_Text = ln_open.text
ln_open.powertiptext = ln_open.is_Text
tab_1.Selecttab( ln_open )
OpenSheet( lw_open, 'w_sheet', This, 1, Layered! )
lw_open.title = ln_open.text
end if