请选择 进入手机版 | 继续访问电脑版

 找回密码
 立即注册
查看: 281|回复: 0

线程控件

[复制链接]

4

主题

5

帖子

5

积分
交易币
0

新手入门

Rank: 1

发表于 2021-1-5 21:32:37 | 显示全部楼层 |阅读模式
参考 http://bbs.aardio.com/forum.php? ... age=1&authorid=9416 帖子
aardio里面 代码段->多线程->13、线程控件 也有具体源码

我这里做了一些修改,主窗口可以对线程控件进行操作
[aardio] 纯文本查看 复制代码
//13、线程控件 
import win.ui;
/*DSG{{*/
var mainForm = win.form(text="线程控件测试";right=846;bottom=497)
mainForm.add(
button={cls="button";text="加载线程控件";left=641;top=455;right=798;bottom=492;db=1;dr=1;z=1};
button2={cls="button";text="跳转";left=571;top=456;right=639;bottom=493;z=3};
edit={cls="edit";left=40;top=456;right=568;bottom=488;db=1;dl=1;dr=1;edge=1;z=2}
)
/*}}*/

mainForm.button.oncommand = function(id,event){ 
        mainForm.button.disabled = true;
        
        mainForm.add(  
                threadCtrl = { 
                        cls="thread"; //拖一个自定义控件到窗体上,设置边框属性为false,将类名改为"thread"
                        z=1;dr=1;dl=1;dt=1;db=1;
                        bottom=437;right=840;left=8;top=12;
                        loadForm=/***
                        //loadForm参数也可以指定一个aardio文件地址
                        import win.ui;
                        var winform = ..win.form( right=599;scroll=1;bottom=399;parent=...;text="aardio form";border="none" )
                        import web.form;
                        var wb = web.form( winform,,,,true);
                        wb.DocumentComplete = function(pDisp,url) {
                                if( pDisp == wb.application ){
                                        
                                        //跨线程访问父窗口
                                        winform.threadParent.edit.text = url;        
                                }
                        }
                        
                        //打开目标网站
                        wb.go("https://www.baidu.com/") ;
                        
                        import thread.command;
                        var command = thread.command();
                        command.go = function(url){
                                wb.go(url) ;
                        }
                                                
                        winform.show()
                        ***/;
                }
        )
        mainForm.resize();
        
        mainForm.button.disabled = false;
} 

mainForm.modifyStyle(,0x2000000/*_WS_CLIPCHILDREN*/)
mainForm.onEraseBkgnd  = function(hwnd,message,wParam,lParam){
        mainForm.button.redraw();
        mainForm.edit.redraw();
}

import thread.command;
mainForm.button2.oncommand = function(id,event){
        //跳转网站
        thread.command.go(mainForm.edit.text);
}

mainForm.show();
win.loopMessage();

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则



GMT+8, 2021-3-8 11:18 , Processed in 0.105699 second(s), 26 queries .

© 2001-2011 Powered by Discuz! X3.2.

快速回复 返回顶部 返回列表