载入窗口1后,怎么销毁主窗口而不会退出程序?
在易语言,一般新建一个窗口程序,那么这个窗口程序就是_启动窗口。
在启动窗口下,载入一个窗口1,然后可以在窗口1创建完毕后,进行_启动窗口销毁。
目前火山我创建窗口1后,销毁主窗口会退出程序;火山应该怎么实现易语言类似的载入窗口,并销毁窗口功能?
<火山程序 类型 = "通常" 版本 = 1 />
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"500, 300\"" 标题 = "我的主窗口">
{
变量 按钮1 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"157, 134, 160, 80\"" 标题 = "按钮1">
变量 第二个窗口 <类型 = 窗口1>
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 按钮1)
{
第二个窗口.创建主窗口 (, , , , )
销毁 ()
}
返回 (0)
}
}
类 窗口1 <公开 基础类 = 窗口 隐藏值属性 = "0" @视窗.布局 = "client_size = \"194, 119\"">
{
变量 按钮1 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"21, 14, 136, 88\"" 标题 = "第二个窗口">
#
}
页:
[1]