PB11.5实现窗口渐进淡出的方法解决方案

PB11.5实现窗口渐进淡出的方法
PB11.5可以设置窗口的transparency 属性,利用这一属性我们先来实现窗口渐进效果:

一, 首先设置transparency =100(即完全透明)
二, 自定义事件ue_open 并写下列代码

do until transparency =0
  transparency --
loop
三, 在窗口的open事件中触发ue_open
  postevent ('ue_open')
 
 接下来我们来实现淡出的效果

接上窗口.
四, 在窗口的closequery事件里写
  do until transparency =100
  transparency ++
  sleep(0.45)
  loop

即可

好了。 兄弟们run一下,看是不是很爽!!!!

   



------解决方案--------------------
支持技术共享

像pb9低版本使用API函数也可以实现上述效果
------解决方案--------------------
爽，不过我还在用pb6.5呀，收起来先