方法一：
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();
