개발 참고자료

/* 주어진 메뉴를 String Tree로 표현 한다.*/
//integer of_MenuTreeCreate( menu am_root, integer ai_level, ref string as_MenuTree )
integer i, icnt, j
if IsValid( am_Root ) then
icnt = UpperBound( am_Root.item )
for i = 1 to icnt
for j = 1 to ai_level
as_MenuTree += '~t'
next
as_MenuTree += am_Root.item[i].text + '~r~n'
if UpperBound( am_Root.item[i].item ) > 0 then
//하위 메뉴가 있다.
of_MenuTreeCreate( am_Root.item[i], ai_level + 1, as_MenuTree )
end if
next
end if
return 0

사용은 다음과 같이

menu lm_root
lm_root = parentwindow().MenuID
mle_1.text = ''
of_MenuTreeCreate( lm_root, 0, mle_1.text )[출처] 주어진 메뉴를 String Tree로 표현 한다. (파워빌더 커뮤니티(PBExpertClub)) |작성자 Real파빌Shin