ITPub博客

首页 > 应用开发 > IT综合 > 怎样在VB中设计背景动画图案 (转)

怎样在VB中设计背景动画图案 (转)

原创 IT综合 作者:worldblog 时间:2007-12-13 08:23:08 0 删除 编辑
怎样在VB中设计背景动画图案 (转)[@more@]

窗体布局:

控件:timer1  屬性设置:timer1.Interval=1

代码:

Dim k As Integer
Private Sub Timer1_Timer()
k = k + 20
Line (Me.Width / 2, Me.Height / 2)-(0, k), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(k, 0), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(k, 0), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(Me.Width, k), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(Me.Width, k), RGB(0, 0, Abs(255 - (Me.Height - k) / 24))
Line (Me.Width / 2, Me.Height / 2)-(k, Me.Height), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(k, Me.Height), RGB(0, 0, Abs(255 - k / 24))
Line (Me.Width / 2, Me.Height / 2)-(0, k), RGB(0, 0, Abs(255 - (Me.Height - k) / 24))
If k > 12500 Then
Timer1.Enabled = False

end if

End Sub


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992461/,如需转载,请注明出处,否则将追究法律责任。

下一篇: The New C++ (转)
请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2446113