[AAuto] 菜单演示程序
import win.ui;
import win.ui.menu;/*DSG{{*/var winform = win.form( right=337;bottom=229;parent=...;text="菜单图标及加速键演示程序";max=false )
winform.add(
edit={ bottom=230;right=338;left=0;multiline=1;top=0;z=1;edge=1;cls="edit" }
)/*}}*/var str = /*
加速键列表:
新建：Ctrl+N
打开：Ctrl+O
保存：Ctrl+S
打印：Ctrl+P
退出：Ctrl+E
导航键说明:
首先按下Alt键，菜单选项后面设置的键会出现下划线，
再按下菜单后面的按键、就可以一步步选择菜单了! .....
^_^
*/;
winform.edit.text = str;var new = function(id){winform.msgbox("新建")};var open = function(id){winform.msgbox("打开")};var save = function(id){winform.msgbox("保存")};var print = function(id){winform.msgbox("打印")};var exit = function(id){winform.close()};
import win.ui.accelerator;var accel = win.ui.accelerator({
{ ctrl = true; vkey = 'N'#; oncommand = new }{ ctrl = true; vkey = 'O'#; oncommand = open } { ctrl = true; vkey = 'S'#; oncommand = save } { ctrl = true; vkey = 'P'#; oncommand = print } { ctrl = true; vkey = 'Q'#; oncommand = exit } },winform)//注意菜单的导航键'文件(&F)'、加速键'文件\tCtrl+N' ,此文本样式只有在单引号 '' 下才有效!
var menu = win.ui.menu(winform);
menu.addTable( {
{ '文件(&F)';
{//图标文件为16*16的位图 默认背景色为#f0f0f0{text = '新建(&N)\tCtrl+N';proc=new;bitmap="\res\ico\new.bmp"};
{text='打开(&O)\tCtrl+O';proc=open;bitmap="\res\ico\open.bmp"};
{text = '保存(&S)\tCtrl+S';proc=save;bitmap="\res\ico\save.bmp"};
{/*分割线*/};
{text='打印(&P)\tCtrl+P';proc=print;bitmap="\res\ico\print.bmp"}
{/*分割线*/};
{text='退出(&E)\tCtrl+E';proc=exit;bitmap="\res\ico\close.bmp"};
}
};
{ '帮助(&H)';
{
{text = '帮助(&H)';
proc = function(id){
winform.msgbox("帮助")
};
bitmap="\res\ico\help.bmp"};
{text = '主页(&P)';
proc = function(id){
import process;
process.execute( "http://www.aau.cn" )
};
bitmap="\res\ico\home.bmp"}
{/*__*/}
{text = '关于(&A)';
proc = function(id){
winform.msgbox("菜单图标及加速键演示程序! -- xAuto","关于")
};
bitmap="\res\ico\info.bmp"}
}
};
})//创建右键弹出菜单var popmenu = win.ui.popmenu(winform);
popmenu.addTable( {
{ text="复制";proc=function(id){winform.edit.copy()};bitmap="\res\ico\copy.bmp"};
{ text="剪切";proc=function(id){winform.edit.cut()};bitmap="\res\ico\cut.bmp"};
{ text="粘贴";proc=function(id){winform.edit.paste()};bitmap="\res\ico\paste.bmp"};
{/*__*/}
{ text="撤消";proc=function(id){winform.edit.undo()};bitmap="\res\ico\undo.bmp"};
{ text="重做";proc=function(id){winform.edit.redo()};bitmap="\res\ico\redo.bmp"};
{/*__*/}
{ text="全选";proc=function(id){winform.edit.selectAll()};bitmap="\res\ico\select.bmp"};
} )
winform.edit.wndproc = function(hwnd,message,wParam,lParam){if(message= 0x205/*_WM_RBUTTONUP*/ ){
popmenu.popup(::LOWORD(lParam), ::HIWORD(lParam));//弹出菜单return false;
}
}//endproc//重写winform.isDialogMessage函数，屏蔽按Esc退出程序的问题。winform.isDialogMessage = function(hwnd,msg){if(msg.message = 0x100/*_WM_KEYDOWN*/){if(msg.wParam = 0x1B/*_VK_ESCAPE*/)return true;
}
}
winform.show()
win.loopMessage();return winform;
demo及源码：点击下载
© 著作权归作者所有
举报
打赏
1 赞
2 收藏
分享
赞 (0)