360浏览器在新的标签页中,打开google的搜索结果
2011-05-22 16:12
603 查看
Sub window_onLoad
' The DirectAnimation library.
Set m = DAControl.MeterLibrary
numGeos = 15
Set speed = m.Div(m.LocalTime, m.DANumber(2.5))
' Define transformation variables.
Set offX = m.Mul(m.DANumber(.04),m.Sin(speed))
Set offY = m.Mul(m.DANumber(.04),m.Sin(speed))
Set rotX = m.Mul(speed, m.DANumber(2))
Set rotY = m.Mul(speed, m.DANumber(2))
Set rotZ = m.Mul(speed, m.DANumber(2))
Set lrotX = m.Mul(m.DANumber(.02),speed)
Set lrotY = m.Mul(m.DANumber(.02),speed)
Set lrotZ = m.Mul(m.DANumber(.02),speed)
Set scale = m.DANumber(1)
' Create an animated color.
Set half = m.DANumber(0.5)
Set hue = m.Abs(m.Sin(m.Div(speed,m.DANumber(2))))
Set clr = m.colorHslAnim(hue, half, half)
Set xfID = m.IdentityTransform2
Set xfsc = m.Scale2UniformAnim(scale)
' Use the above created variables to construct three dimensional rotations.
' Then use the ParallelTransform2 method to cast an orthographic projection
' of these rotations onto the X-Y plane.
Set xflr = m.Compose3(m.Compose3(m.Rotate3Anim(m.xVector3,lrotX), _
m.Rotate3Anim(m.yVector3,lrotY) ), m.Rotate3Anim(m.zVector3,lrotZ) ).ParallelTransform2()
Set xfwt = m.Compose3(m.Compose3(m.Rotate3Anim(m.xVector3,rotX), _
m.Rotate3Anim(m.yVector3,rotY) ), m.Rotate3Anim(m.zVector3,rotZ) ).ParallelTransform2()
' Create an two dimensional translation.
Set xflt = m.Translate2Anim(offX, offY)
' Combine the translation with the rotations.
Set xf = m.Compose2(xfwt, m.Compose2(xflt, m.Compose2( xflr, xfsc ) ) )
' Create a rectangle with animated color.
Set rect = m.Rect(.015,.015)
Set recImg = m.SolidColorImage(clr).Clip(m.FillMatte(rect))
' Create each of the five squares (numGeos), wait xfID.Duration(i*.3)
' and then apply final transformation (xf) to each of them.
Set finalImg = m.EmptyImage
For i = 0 To numGeos
Set delay = xfID.Duration(i*.3)
Set newImg = recImg.Transform(m.Sequence(delay,xf))
Set finalImg = m.Overlay(newImg,finalImg)
Next
' Set the image into the control
DAControl.Image = finalImg
' Set the background in case of a non-windowless browser (like IE3).
DAControl.BackgroundImage = m.SolidColorImage(m.Blue)
' Start the animation.
DAControl.Start()
End Sub
-->
相关文章推荐
- google搜索结果在新标签页中打开
- google 搜索结果在新标签页打开
- google搜索结果不能再新标签页打开
- GOOGLE搜索后从新的标签打开结果
- google 搜索结果在新标签页打开
- google 搜索结果在新标签中打开
- FireFox在新标签中打开搜索结果
- Google 搜索 直接打开结果网址 防止被重置
- 设置google搜索在新标签中打开
- Google 搜索引擎设置搜索结果,在新的标签页打开
- 火狐中无法打开google的搜索结果的解决方式
- Chrome_01_点击 Google搜索结果在新的页面打开
- 设置 Chrome 点击 Google 搜索结果在新的页面打开
- 解决Chorme使用google搜索结果无法打开的问题
- 在新窗口或Tab页中打开Google的搜索结果
- 解决google无法访问或搜索结果无法打开问题
- google搜索结果无法打开
- ubuntu下firefox打开google搜索结果链接,无法访问
- 当GOOGLE搜索结果的链接无法打开时
- google不能打开,或者搜索结果链接不能访问的解决办法