|
<火山程序 类型 = "通常" 版本 = 1 />
包 火山.无名.菜鸟驿站 <注释 = " 火山菜鸟驿站:http://www.vowm.cn" 注释 = " 火山教程:http://jc.wlxs.net">
类 启动类 <公开 基础类 = 窗口 注释 = "用户主窗口封装类">
{
变量 按钮1 <类型 = 按钮 内容 = "多线程操作剪贴板">
变量 按钮2 <类型 = 按钮 内容 = "测试粘贴">
变量 编辑框1 <类型 = 编辑框>
变量 信息框类1 <类型 = 信息框类>
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "火山菜鸟驿站:http://www.vowm.cn">
参数 来源对象 <类型 = 按钮>
参数 标记值 <类型 = 整数>
{
如果 (来源对象 == 按钮1)
{
变量 线程1 <类型 = 线程类>
挂接事件 (线程1, 1)
线程1.启动 ()
}
否则 (来源对象 == 按钮2)
{
编辑框1.内容 = 取剪贴板文本 ()
}
返回 (0)
}
变量 剪贴板内容 <类型 = 文本型 值 = "测试内容" 注释 = "必须是成员变量">
方法 线程类_线程启动 <接收事件 类型 = 整数 注释 = "火山菜鸟驿站:http://www.vowm.cn">
参数 来源对象 <类型 = 线程类>
参数 标记值 <类型 = 整数>
参数 用户对象1 <类型 = 对象类>
参数 用户对象2 <类型 = 对象类>
{
如果 (标记值 == 1)
{
开始提交到主线程等待执行 ()
{
置剪贴板文本 (外部本对象 (启动类).剪贴板内容)
// 注意这里的类名,是指当前类名。
// 如果当前类名字是“工具类”那么你就写工具类,总之什么类名字就写什么。
// 这里暂时没有智能提示,直接打出来就可以了。
外部本对象 (启动类).信息框类1.显示 (本对象, "", "提示:", "确认", "取消", "", -1, -1, -1, 假, 假, 空对象, 空对象)
}
结束提交到主线程等待执行 ()
{
}
}
返回 (0)
}
方法 信息框类_按钮被单击 <接收事件 类型 = 整数 注释 = "当对话框的按钮被点击时触发本事件.">
参数 来源对象 <类型 = 信息框类 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
参数 按钮类型 <类型 = 对话框按钮类型 注释 = "按钮类型判断方法:" 注释 = " 如果 (按钮类型 == 对话框按钮类型.确认按钮)" 注释 = " | ...."
注释 = " 否则...">
参数 附加数据 <类型 = 对象类 注释 = "返回\"显示\"方法中提供的附加数据.">
{
如果 (来源对象 == 信息框类1)
{
如果 (按钮类型 == 对话框按钮类型.确认按钮)
{
提示框 ("确认:" + 到文本 (附加数据))
}
否则 (按钮类型 == 对话框按钮类型.取消按钮)
{
提示框 ("取消:" + 到文本 (附加数据))
}
否则 (按钮类型 == 对话框按钮类型.自定义按钮)
{
提示框 ("自定义:" + 到文本 (附加数据))
}
}
返回 (0)
}
}
|
|