$PBExportHeader$m_dft_xls_item_sample.srm
$PBExportComments$超级菜单
forward
global type m_dft_xls_item_sample from menu
end type
type m_xls from menu within m_dft_xls_item_sample
end type
global type m_dft_xls_item_sample from menu
m_xls m_xls
end type
end forward

shared variables

end variables

global type m_dft_xls_item_sample from menu
m_xls m_xls
end type
global m_dft_xls_item_sample m_dft_xls_item_sample

type variables

end variables

forward prototypes
public subroutine f1 ()
end prototypes

public subroutine f1 ();
end subroutine

on m_dft_xls_item_sample.create
m_dft_xls_item_sample=this
call super::create
this.text = "m_dft_xls_item_sample"
this.m_xls=create m_xls
this.Item[UpperBound(this.Item)+1]=this.m_xls
end on

on m_dft_xls_item_sample.destroy
call super::destroy
destroy(this.m_xls)
end on

type m_xls from menu within m_dft_xls_item_sample
end type

event clicked;If upperbound(item) = 0 Then
	IF  IsValid(w_curwin) THEN
		w_curwin.triggerevent('ue_xls',long(tag),long(tag))
	else
		w_curwin.triggerevent('ue_xls',0,0)
	end if
end if
end event

on m_xls.create
call super::create
this.text = "xls"
end on

on m_xls.destroy
call super::destroy
end on