事件 窗口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"
結束 事件