第一次点击打开网页正常。第二次点击就报错。
代码如下
import win.ui;
import web.form;
import web.form.util;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
edit={cls="edit";text="http://www.baidu.com";left=18;top=11;right=553;bottom=50;edge=1;multiline=1;z=3};
gourl={cls="button";text="打开网址";left=342;top=68;right=428;bottom=99;z=2};
tab={cls="tab";left=13;top=118;right=733;bottom=470;db=1;dl=1;dr=1;dt=0.25;edge=1;z=1}
)
/*}}*/
for(i=1;3;1){
winform.tab.add( text = "双击关闭"++i;scroll=true;style=_ws_cl )
}
var tabnum = winform.tab.selIndex
winform.gourl.oncommand = function(id,event){
var form = winform.tab.items[tabnum];
var wb = web.form( form )//, , 0x40000000/*_DLCTL_SILENT*/ | 0x10/*_DLCTL_DLIMAGES*/| 0x20/*_DLCTL_VIDEOS*/ );
wb.go(winform.edit.text)
wb.wait();
}
winform.tab.wndproc = function(hwnd,message,wParam,lParam){
if(message == 0x202/*_WM_LBUTTONUP*/){
tabnum=winform.tab.hitTest(::LOWORD(lParam), ::HIWORD(lParam));
}
}
winform.show()
win.loopMessage();