e4a-窗口切换

事件 窗口2.切换完毕()
	变量 主窗口标签 为 标签
	主窗口标签 = 读取对象("标签1")
	弹出提示("主窗口标签1的标题为：" & 主窗口标签.标题)
结束 事件

事件 按钮1.被单击()'按钮 切换
	切换窗口(读取窗口("主窗口"))
结束 事件

事件 窗口2.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)'按返回 切换
	如果 键代码 = 返回键 则
		切换窗口(读取窗口("主窗口"))
	结束 如果
结束 事件

　　上面是子窗口代码

下面是主窗口代码

	变量 启动时间 为 长整数型'变量的定义
事件 主窗口.创建完毕()	    '1创建
	主窗口.添加菜单("关于",-1)
	主窗口.添加菜单("退出",-1)
	
	保存窗口("主窗口",本对象) '本对象是当前窗口 保存窗口 是方便下钻窗口的读取
	
	保存窗口("窗口1",创建 窗口1)
	
	保存对象("标签1",标签1)
结束 事件

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
	如果 键代码 = 返回键 则
		如果 取启动时间() - 启动时间 >2000 则'2秒内 按两次返回则跳出提示
			弹出提示("再按一次退出程序")
			启动时间 = 取启动时间()'时间返回
		否则 
			结束程序()
		结束 如果
	结束 如果
结束 事件

事件 主窗口.菜单被选择(菜单名 为 文本型)
	判断 菜单名
		分支 "关于"
			信息框("关于","E4A多窗口例程","确定")
		分支 "退出"	
			结束程序()
	结束 判断
结束 事件

事件 按钮1.被单击()
	切换窗口(读取窗口("窗口1"))
结束 事件

事件 按钮2.被单击()
	如果 读取窗口("窗口2")=空 则
	    保存窗口("窗口2",创建 窗口2)'窗口先保存再读取
	结束 如果
	切换窗口(读取窗口("窗口2"))
结束 事件

事件 按钮3.被单击()
	变量 子窗口 为 窗口1
	子窗口 = 读取窗口("窗口1")'在住窗口之间的改变传值  先 定义中间变量 读取  再用点. 分级
	子窗口.标签1.标题 = "标题被主窗口修改啦2019"
结束 事件