Aardio - 【庫】封裝易卷簾式菜單

 易卷簾式菜單 + 易表格 ， 絕配！

下載下傳位址：

elistbar3.2.rar - 藍奏雲 （修複元件尺寸改變後不自動重新整理的問題）

https://wwr.lanzoui.com/iLfCrtvagkb   将檔案放置于 lib\win\ui\ctrl\elistbar 目錄裡面。

 不多說了，看效果：

  調用代碼：

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
custom={cls="custom";text="自定義控件";left=8;top=8;right=182;bottom=464;border=1;db=1;dl=1;dt=1;z=1};
custom2={cls="custom";text="自定義控件";left=189;top=8;right=752;bottom=465;z=2}
)
/*}}*/

import win.ui.ctrl.elistbar
var e = win.ui.ctrl.elistbar(winform.custom)

e.addFolder("> 菜單一")
e.addFolder("> 菜單二")
e.addFolder("> 菜單三")
e.addFolder("> 菜單四")
for(i=0;3;1){
	e.addItem(i,"· 項目1  ",0)
	e.addItem(i,"· 項目2  ",2)
	e.addItem(i,"· 項目3  ",3)
}
//e.setItemBigImageList(..string.load("~/32×32_126個.eil"))
//e.RangeStyle=0

e.onItemRclick = function(folderIndex/*菜單索引*/, itemIndex/*項目索引*/){
		/*項目被右擊*/
		..win.msgbox("項目被右擊")
	};
e.onItemSelect = function(folderIndex/*菜單索引*/, itemIndex/*項目索引*/){
		/*項目被選擇*/
		..win.msgbox("點選了："++e.getItemText(folderIndex,itemIndex))
	};

import win.ui.ctrl.egrid
var g = win.ui.ctrl.egrid(winform.custom2)
g.BorderStyle=0
g.LineColor=e.FolderBgColor


winform.show();
win.loopMessage();
           

元件所需的圖示組、圖檔組，用【圖檔組制作器】制作，軟體下載下傳：

【圖檔組制作器】下載下傳 （下載下傳密碼: 2zax）

https://wwr.lanzoui.com/izeogslxcba

應用軟體 / Win 32位 / 753.5 KB 制作圖檔組.eil檔案的小工具。 支援批量添加、删除、提取圖示，拖放添加圖示，png格式。