易语言吧 关注:266,907贴子:1,668,456

回复:窗口顶边挨着屏幕最上方就自动隐藏怎么写啊?

只看楼主收藏回复

易语言自带例程中有


16楼2013-11-09 09:02
回复
    用时钟控制子程序或者在窗口创建完毕套一个判断循环首就可以了
    .版本 2
    .子程序 靠边隐藏
    .如果 (取鼠标水平位置 () ≥ _启动窗口.左边 且 取鼠标水平位置 () < _启动窗口.左边 + _启动窗口.宽度 且 取鼠标垂直位置 () ≥ _启动窗口.顶边 且 取鼠标垂直位置 () < _启动窗口.顶边 + _启动窗口.高度)
    .如果真 (_启动窗口.左边 < 0)
    _启动窗口.移动 (0, , , )
    .如果真结束
    .如果真 (_启动窗口.顶边 < 0)
    _启动窗口.移动 (, 0, , )
    .如果真结束
    .如果真 (_启动窗口.左边 > 取屏幕宽度 () - _启动窗口.宽度)
    _启动窗口.移动 (取屏幕宽度 () - _启动窗口.宽度, , , )
    .如果真结束
    .如果真 (_启动窗口.顶边 > 取屏幕高度 () - _启动窗口.高度)
    _启动窗口.移动 (, 取屏幕高度 () - _启动窗口.高度, , )
    .如果真结束
    .否则
    .如果真 (_启动窗口.左边 ≤ 0)
    _启动窗口.移动 (1 - _启动窗口.宽度, , , )
    .如果真结束
    .如果真 (_启动窗口.顶边 ≤ 0)
    _启动窗口.移动 (, 1 - _启动窗口.高度, , )
    .如果真结束
    .如果真 (_启动窗口.左边 ≥ 取屏幕宽度 () - _启动窗口.宽度)
    _启动窗口.移动 (取屏幕宽度 () - 1, , , )
    .如果真结束
    .如果真 (_启动窗口.顶边 ≥ 取屏幕高度 () - _启动窗口.高度)
    _启动窗口.移动 (, 取屏幕高度 () - 1, , )
    .如果真结束


    17楼2025-01-13 19:22
    回复