选项卡内控件的消息功能 - TC官方合作论坛

var tabcursel=0//此参数指示当前选项
function 选项卡实例_init()
for(var i = 0; i <= tabgetcount("tab0"); i++)//初始化所有选项卡内控件状态
tab(i)
end
var DefaultPage=3//设置启动时显示的分页，此值为分页的索引值
tab(DefaultPage)//初始化选项卡内控件
tabactive("tab0",DefaultPage)//初始化选项卡选项
end
function tab0_selectchange()//选择改变
tab(tabgetcursel("tab0"))//此处函数 tabgetcursel 获取的是改变后的当前选项
end
function tab(tabchange)
var ID=array()//选项卡内控件的属性信息数组
for(var i = 0; i <= tabgetcount("tab0"); i++)//设置分页数组
ID[i]=array()
end
//以下是所有选项卡内控件的信息，第一下标表示分页，第二下标表示分页内控件序号，按需添加即可。数组内信息说明如下：
//ID width height x y type(0：设置位置及大小；1：只设置位置；2：只设置大小；其它值：不设置位置及大小)
//---------------------------------------------------------------------------------------------------
ID[0][0]=array("ID"="button0","width"=100,"height"=30,"x"=40,"y"=40,"type"="你看不到我")
//---------------------------------------------------------------------------------------------------
ID[1][0]=array("ID"="button1","width"=200,"height"=200,"x"=140,"y"=40,"type"=2)
//---------------------------------------------------------------------------------------------------
ID[2][0]=array("ID"="button2","width"=10,"height"=40,"x"=100,"y"=100,"type"=1)
//---------------------------------------------------------------------------------------------------
ID[3][0]=array("ID"="button3","width"=50,"height"=50,"x"=140,"y"=100,"type"=0)
//---------------------------------------------------------------------------------------------------
tab_control(ID[tabcursel],false)
tab_control(ID[tabchange],true)
tabactive("tab0",tabchange)
tabcursel=tabchange
end
function tab_control(ID,state)
var n=arraysize(ID)
for(var i = 0; i < n; i++)
controlshow(ID[i]["ID"],state)
if(ID[i]["type"]==0||ID[i]["type"]==1||ID[i]["type"]==2)
controlsetpos(ID[i]["ID"],ID[i]["x"],ID[i]["y"],ID[i]["width"],ID[i]["height"],ID[i]["type"])
end
end
end

复制代码