窗体动态效果的实现(2) |
作者：郁郁小蝎 来源：中国站长学院
阅读 数 509 人次 , 2006-2-15 17:52:00 |
|
|
window.height = li_height - 2*(li_gd - li_y)
next
case 5 // closetype = 5,从左右向中间挤压逐渐消失
li_cenx = li_x+li_width / 2
for li_gd = li_x to li_cenx step 1
window.x = li_gd
window.width = li_width - 2*(li_gd - li_x)
next
case 6 // closetype = 6,从左上->右下
for li_gd = li_y to li_height+li_y step 1
window.y = li_gd
window.height = li_height+li_y - li_gd
if window.x < li_x + li_width then
window.x = li_x + (li_gd - li_y)
else
window.x = li_x + li_width
end if
if window.width > 0 then
window.width = li_x+li_width - window.x
else
window.width = 0
end if
next
window.x = li_x + li_width
window.y = li_height+li_y
window.width = 0
window.height = 0
window.show()
case 7 // closetype = 7,从右下->左上
for li_gd = li_height to 0 step -1
window.height = li_gd
if window.width > 0 then
window.width = li_width - (li_height - li_gd)
else
window.width = 0
end if
next
window.x = li_x
window.y = li_y
window.width = 0
window.height = 0
window.show()
case 8 // closetype = 8,从右上->左下
for li_gd = li_y to li_height+li_y step 1
window.y = li_gd
window.height = li_height+li_y - li_gd
if window.width > 0 then
window.width = li_width - (li_gd - li_y)
else |
|
|
