本帖最后由 花落莫相离 于 2015-6-8 18:32 编辑
主窗口初始化,获取主窗口句柄,第二段可有可无,就是窗口判断,一个子窗口开启,如果另一个子窗口处于开启状态,就关闭先开启的子窗口
- 功能 公共库制作_初始化()
- 窗口句柄=窗口获取自我句柄()
- 结束
复制代码- 功能 新建_点击()
- 如果(窗口查找("添加库函数")>0)
- 控件关闭子窗口("添加库函数",0)
- 等待(50)
- 结束
- 控件打开子窗口("新建库")
- 结束
- 功能 添加_点击()
- //这里添加你要执行的代码
- 如果(窗口查找("新公共库")>0)
- 控件关闭子窗口("新建库",0)
- 等待(50)
- 结束
- 控件打开子窗口("添加库函数")
- 结束
复制代码 拦截主窗口移动消息,获取主窗口位置,坐标,设置子窗口跟随位置
- <P>
- <P>功能 公共库制作_消息过程(消息,w参数,l参数)
- 如果(消息==3)
- 变量 x,y,w=查看主窗口(x,y)//子窗口
- 窗口设置位置(子窗口句柄,x+w+10,y)//子窗口
- 结束
- 结束</P>
- <P>功能 查看主窗口(&x,&y)
- 变量 w//主窗口
- 窗口获取大小(窗口句柄,w,0)
- 窗口获取位置(窗口句柄,x,y)
- 返回 w
- 结束
- </P>
复制代码 子窗口启动,跟随主窗口移动
- 功能 新建库_初始化()
- 如果(窗口查找("新公共库")>0)
- 子窗口句柄=控件获取子窗口句柄("新建库")
- 跟随()
- 结束
- 结束
- 功能 跟随()
- 变量 x
- 系统获取分辨率(x,0)
- 调试输出(x)
- 变量 m_x,m_y
- 变量 width=查看主窗口(m_x,m_y)//获取父窗口宽度及坐标
- 变量 m_width
- 窗口获取大小(子窗口句柄,m_width,0)//获取子窗口宽度
- 调试输出(m_x+m_width)
- 如果(m_x+m_width>x)
- 窗口设置位置(窗口句柄,x-width-m_width-10,m_y)
- 查看主窗口(m_x,m_y)
- 结束
- 窗口设置位置(子窗口句柄,m_x+width+10,m_y)//子窗口
- 结束
复制代码 |