<火山程序 类型 = "通常" 版本 = 1 />
包 火山.程序
类 启动类 <公开 基础类 = 窗口程序类>
{
变量 主窗口对象 <类型 = 我的主窗口>
方法 启动方法 <公开 类型 = 整数>
{
主窗口对象.创建主窗口 ()
返回 (1)
}
}
# ===
类 子夹 <公开 基础类 = 组件布局器 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
变量 编辑框1 <公开 类型 = 编辑框 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"120, 88, 112, 48\"" 内容 = "222">
#
}
类 子夹2 <公开 基础类 = 组件布局器 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
变量 编辑框1 <公开 类型 = 编辑框 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"120, 88, 112, 48\"" 内容 = "333">
#
}
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"593, 412\"" 标题 = "我的主窗口">
{
变量 选择夹1 <类型 = 选择夹 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"93, 70, 264, 152\"">
变量 按钮1 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"245, 326, 64, 32\"">
方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
选择夹1.插入子夹 (0, "ce1", , 子夹, )
选择夹1.插入子夹 (1, "ce2", , 子夹2, )
返回 (0)
}
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
变量 子夹 <类型 = 子夹>
变量 子夹2 <类型 = 子夹2>
如果 (来源对象 == 按钮1)
{
调试输出 (子夹.编辑框1.内容)
调试输出 (子夹2.编辑框1.内容)
}
返回 (0)
}
}