|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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
复制代码 源文件链接:
|
|