.版本 2 .程序集 窗口程序集1 .程序集变量 m_Displays, MultiDisplay .子程序 _组合框_显示器名称列表_列表项被选择 .局部变量 i .局部变量 x .局部变量 max .局部变量 pos .局部变量 list, ResolutionList, , "0" .局部变量 listNode, ResolutionList .局部变量 displayName, 文本型 列表框1.清空 () pos ＝ 组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项) max ＝ m_Displays.GetDisplayResolutionList (pos, list) .变量循环首 (1, max, 1, i) 列表框1.加入项目 (到文本 (list [i].width) ＋ “ × ” ＋ 到文本 (list [i].height) ＋ “ × ” ＋ 到文本 (list [i].depth) ＋ “ × ” ＋ 到文本 (list [i].frequency), i) .变量循环尾 () m_Displays.GetDisplayInfo (pos, displayName, listNode.width, listNode.height, listNode.depth, listNode.frequency) 编辑框1.内容 ＝ 到文本 (listNode.width) 编辑框2.内容 ＝ 到文本 (listNode.height) 编辑框3.内容 ＝ 到文本 (listNode.depth) 编辑框4.内容 ＝ 到文本 (listNode.frequency) m_Displays.GetScreenPosition (pos, x) 标签7.标题 ＝ 到文本 (x) .子程序 _按钮1_被单击 .局部变量 i .局部变量 max .局部变量 pos .局部变量 listNode, ResolutionList .局部变量 displayName, 文本型 组合框_显示器名称列表.清空 () max ＝ m_Displays.GetDisplayCount () .变量循环首 (1, max, 1, i) .如果真 (m_Displays.IsDisplayEnable (i)) m_Displays.GetDisplayInfo (i, displayName, listNode.width, listNode.height, listNode.depth, listNode.frequency) pos ＝ 组合框_显示器名称列表.加入项目 (displayName, i) .如果真 (m_Displays.GetPrimaryScreenPos () ＝ i) 组合框_显示器名称列表.现行选中项 ＝ pos .如果真结束 .如果真结束 .变量循环尾 () _组合框_显示器名称列表_列表项被选择 () .子程序 __启动窗口_创建完毕 _按钮1_被单击 () .子程序 _按钮2_被单击 .如果 (m_Displays.SetDisplayResolution (组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项), 到数值 (编辑框1.内容), 到数值 (编辑框2.内容), 到数值 (编辑框3.内容), 到数值 (编辑框4.内容))) 标签8.标题 ＝ “分辨率设置成功！” .否则 标签8.标题 ＝ “分辨率设置失败！” .如果结束 .子程序 _按钮3_被单击 .局部变量 x, 整数型 .如果真 (m_Displays.GetScreenPosition (组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项), x)) 移动 (x, 0, , ) .如果真结束