|

5精币
火山,窗口1和窗口2只出现关闭按钮,哪路不对啊。
<火山程序 类型 = "通常" 版本 = 1 />
包 火山.程序
类 启动类 <公开 基础类 = 窗口程序类>
{
方法 启动方法 <公开 类型 = 整数>
{
全局窗口.主窗口.创建主窗口 ()
返回 (1)
}
}
# ===
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"504, 368\"" 标题 = "我的主窗口">
{
变量 按钮5 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"213, 270, 80, 24\"" 标题 = "按钮5">
变量 按钮4 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"373, 174, 72, 24\"" 标题 = "按钮4">
变量 按钮3 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 103\r\npos = \"269, 174, 56, 24\"" 标题 = "按钮3">
变量 按钮2 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 104\r\npos = \"173, 174, 64, 24\"" 标题 = "按钮2">
变量 按钮1 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 105\r\npos = \"85, 174, 56, 24\"" 标题 = "按钮1">
变量 编辑框1 <类型 = 编辑框 隐藏值属性 = "0" @视窗.布局 = "id = 106\r\npos = \"53, 46, 384, 104\""
标题 = "这个就是编辑框1,按下对应按钮,显示对应的文本数字。" 是否允许多行 = 真 滚动条 = 纵向滚动条 背景颜色 = 0xFF000000>
变量 ""
方法 按钮_被单击 <公开 接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 按钮5)
{
全局窗口.窗口1.创建子窗口 (全局窗口.窗口1)
}
如果 (来源对象 == 按钮4)
{
全局窗口.窗口2.创建子窗口 (全局窗口.窗口2)
}
否则 (来源对象 == 按钮3)
{
编辑框1.内容 = "yes,你点击了按钮3,333333333"
}
否则 (来源对象 == 按钮2)
{
编辑框1.内容 = "yes,你点击了按钮2,2222222222"
}
否则 (来源对象 == 按钮1)
{
编辑框1.内容 = "yes,你点击了按钮1,11111111"
}
返回 (0)
}
}
类 窗口1 <公开 基础类 = 窗口 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
变量 按钮3 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"285, 238, 56, 64\"" 标题 = "按钮3">
变量 按钮2 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"181, 230, 56, 56\"" 标题 = "按钮2">
变量 按钮1 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 103\r\npos = \"61, 222, 72, 48\"" 标题 = "按钮1">
变量 编辑框1 <类型 = 编辑框 隐藏值属性 = "0" @视窗.布局 = "id = 104\r\npos = \"45, 54, 368, 136\"" 标题 = "编辑框1">
#
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 按钮3)
{
编辑框1.内容 = "yes,你点击了窗口2的按钮3,333333333"
}
否则 (来源对象 == 按钮2)
{
编辑框1.内容 = "yes,你点击了窗口2的按钮2,2222222222"
}
否则 (来源对象 == 按钮1)
{
编辑框1.内容 = "yes,你点击了窗口2的按钮1,11111111"
}
返回 (0)
}
}
类 窗口2 <公开 基础类 = 窗口 隐藏值属性 = "0" @视窗.布局 = "client_size = \"600, 420\"">
{
变量 按钮1 <类型 = 按钮 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"173, 182, 128, 72\"" 标题 = "按钮1">
#
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 按钮1)
{
}
返回 (0)
}
}
类 全局窗口 <公开 注释 = "Ctrl D插入一个类,再Ctrl L插入变量,将所有窗口加入变量,一定要公开,公开后其他窗口可以调用。">
{
变量 主窗口 <公开 静态 类型 = 我的主窗口 注释 = "静态一定要勾选">
变量 窗口1 <公开 静态 类型 = 窗口 注释 = "静态一定要勾选">
变量 窗口2 <公开 静态 类型 = 窗口>
#
}
|
|