aardio - godking.vlistEx.listbar + win.ui.tabs 实现多标签多页面切换

方法一：

import win.ui;
import godking.vlistEx.listbar;
import fonts.fontAwesome;
/*DSG{{*/
mainForm = win.form(text="vlistEx - table adapter";right=895;bottom=503)
mainForm.add({
custom={cls="custom";text="自定义控件";left=200;top=56;right=880;bottom=496;bgcolor=12639424;border=1;z=4};
plus={cls="plus";left=200;top=8;right=280;bottom=48;bgcolor=32768;forecolor=16711680;hide=1;notify=1;z=2};
plus2={cls="plus";left=288;top=8;right=368;bottom=48;bgcolor=32768;forecolor=16711680;hide=1;notify=1;z=3};
vlistEx={cls="vlistEx";left=8;top=8;right=192;bottom=496;acceptfiles=1;aw=1;border=1;db=1;dl=1;dr=1;dt=1;hscroll=1;vscroll=1;z=1}
})
/*}}*///设置导航
var listbar = godking.vlistEx.listbar(mainForm.vlistEx,{menuBkColor = 0x71B33C;         /*菜单背景颜色*/menuHoverBkColor = 0xFFB33C;    /*菜单鼠标划过背景颜色*/itemBkColor = 0xFFFFFF;            /*项目背景颜色*/itemHoverBkColor = 0xEEEEEE;    /*项目鼠标划过背景颜色*/itemHeight = 40;                /*项目高度*/lineColorH = 0xDDDDDD;            /*横线颜色*/bkcolor = 0xFFFFFF;                /*表格背景颜色*/single = 0;     /*菜单单开时默认展开的菜单索引。0是多开默认全展开。无效索引(如-1)则单开默认全不展开。*/alwaysOpen = false;             /*菜单多开时，是否所有菜单项都一直展开，不允许关闭*/menuFont=::LOGFONT({name="fontAwesome",h=16,color=0xFFFFFF});         /*菜单字体*/menuHoverFont=::LOGFONT({name="fontAwesome",h=16,color=0xFFFFFF});    /*菜单鼠标划过字体*/itemFont=::LOGFONT({name="fontAwesome",h=14,color=0x000000});        /*项目字体*/itemHoverFont=::LOGFONT({name="fontAwesome",h=14,color=0xFF0000});    /*项目鼠标划过字体*/
})
var t = {{0,"　基本操作"}{1,'　　\uF0AE　数据录入',{name="数据录入";form="/winform1.aardio"}}{1,'　　\uF0D0　数据编辑',{name="数据编辑";form="/winform1.aardio"}}{1,'　　\uF0CC　数据删除',{name="数据删除";form="/winform1.aardio"}}
};
listbar.setItemList(t);//设置标签
import win.ui.tabs;
var tabs = win.ui.tabs(mainForm.plus,mainForm.plus2);
//tabs.clear()//定义点击事件
listbar.onClick = function(index/*项目索引*/,text/*项目文本*/,data/*附加数据*/){for(tabButton,formPage,tabIndex in tabs.each() ){if tabButton.dhid = index {tabs.selIndex = tabIndex; // 或者 tabs.selTab = tabButton;return ; }}tabs.selIndex = tabs.add({text = data.name;dhid = index;hasCloseButton = true;},data.form)
}mainForm.show();
win.loopMessage();

方法二：

import win.ui;
import godking.vlistEx.listbar;
import fonts.fontAwesome;
/*DSG{{*/
mainForm = win.form(text="vlistEx - table adapter";right=895;bottom=503)
mainForm.add({
custom={cls="custom";text="自定义控件";left=200;top=56;right=880;bottom=496;bgcolor=12639424;border=1;z=4};
plus={cls="plus";left=200;top=8;right=280;bottom=48;bgcolor=32768;forecolor=16711680;hide=1;notify=1;z=2};
plus2={cls="plus";left=288;top=8;right=368;bottom=48;bgcolor=32768;forecolor=16711680;hide=1;notify=1;z=3};
vlistEx={cls="vlistEx";left=8;top=8;right=192;bottom=496;acceptfiles=1;aw=1;border=1;db=1;dl=1;dr=1;dt=1;hscroll=1;vscroll=1;z=1}
})
/*}}*///设置导航
var listbar = godking.vlistEx.listbar(mainForm.vlistEx,{menuBkColor = 0x71B33C;         /*菜单背景颜色*/menuHoverBkColor = 0xFFB33C;    /*菜单鼠标划过背景颜色*/itemBkColor = 0xFFFFFF;            /*项目背景颜色*/itemHoverBkColor = 0xEEEEEE;    /*项目鼠标划过背景颜色*/itemHeight = 40;                /*项目高度*/lineColorH = 0xDDDDDD;            /*横线颜色*/bkcolor = 0xFFFFFF;                /*表格背景颜色*/single = 0;     /*菜单单开时默认展开的菜单索引。0是多开默认全展开。无效索引(如-1)则单开默认全不展开。*/alwaysOpen = false;             /*菜单多开时，是否所有菜单项都一直展开，不允许关闭*/menuFont=::LOGFONT({name="fontAwesome",h=16,color=0xFFFFFF});         /*菜单字体*/menuHoverFont=::LOGFONT({name="fontAwesome",h=16,color=0xFFFFFF});    /*菜单鼠标划过字体*/itemFont=::LOGFONT({name="fontAwesome",h=14,color=0x000000});        /*项目字体*/itemHoverFont=::LOGFONT({name="fontAwesome",h=14,color=0xFF0000});    /*项目鼠标划过字体*/
})
var t = {{0,"　基本操作"}{1,'　　\uF0AE　数据录入',{name="数据录入";form="/winform1.aardio"}}{1,'　　\uF0D0　数据编辑',{name="数据编辑";form="/winform1.aardio"}}{1,'　　\uF0CC　数据删除',{name="数据删除";form="/winform1.aardio"}}
};
listbar.setItemList(t);//设置标签
import win.ui.tabs;
var tabs = win.ui.tabs(mainForm.plus,mainForm.plus2);
//tabs.clear()//定义点击事件
listbar.onClick = function(index/*项目索引*/,text/*项目文本*/,data/*附加数据*/){if !data return ; var index = tabs.indexOfTab(data.tab)if !index {index = tabs.add({text=data.name;iconText='\uF0AD';hasCloseButton=true;},data.form)data.tab = tabs.tabList[index];}tabs.selTab = data.tab;
}mainForm.show();
win.loopMessage();