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

原创 2002年03月26日 11:07:00

窗体布局:

控件: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

VB登录界面设计代码

Option Explicit窗口始终在最前Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal h...
  • neok
  • neok
  • 2006年05月26日 12:34
  • 9853

Swing动画之游戏背景

一、游戏效果图:一个背景图片,按一定的时间间隔向下滚动。         二、实现原理:给panel添加两张图片,然后启动一个线程,不断的去重画这个panel,重画的过程中,改变这两张图片Y轴的坐...
  • JackLei__
  • JackLei__
  • 2014年11月17日 21:51
  • 1854

.9格式图片制作

与传统的png 格式图片相比, 9.png 格式图片在图片四周有一圈一个像素点组成的边沿,该边沿用于对图片的可扩展区和内容显示区进行定义。         这种格式的图片在android 环境下...
  • yuenu411522
  • yuenu411522
  • 2015年11月15日 17:56
  • 585

VB设计动画时钟

 VB设计动画时钟程序名:Sec-Time.vbp 程序类别:完整的VB程序功能:显示一个动画时钟,该时针随着每一秒而动态变化。程序说明1.如何画时钟表盘上的所有直线元素?用Load命令建立原始Lin...
  • xg12345
  • xg12345
  • 2009年10月25日 11:16
  • 152

next主题如何添加动态背景

其实挺简单的︿( ̄︶ ̄)︿修改_layout.swig打开 next/layout/_layout.swig 在 < /body>之前添加代码(注意不要放在< /head>的后面){% if th...
  • qq_33699981
  • qq_33699981
  • 2017年03月04日 16:25
  • 1798

VB6给MDI窗口(父窗口)动态绘制背景的种种方法

VB6就不说了,要快速写一个程序,.NET(C#)可能还更好更强大,但是要说安全,VB6反到强过他们 有时候两者就是一种矛盾,所以越是用户友好,越是易维护和扩展的程序,越容易被破解. ...
  • prsniper
  • prsniper
  • 2013年08月18日 06:12
  • 2134

怎么让页面动起来,做视频背景

附带video相关参数一张
  • riuhazen
  • riuhazen
  • 2018年01月17日 11:07
  • 86

AndroidUI—三种动画实现

三种动画View Animation: 视图动画在古老的Android版本系统中就已经提供了,只能被用来设置View的动画。Drawable Animation: 这种动画(也叫Frame动画、帧动画...
  • qq_37293612
  • qq_37293612
  • 2017年02月14日 11:14
  • 176

VB中的简单动画代码设计

最近接触VB百例时接触到了简单的动画设计,现在将程序相关的知识整理在这里.(下面是一个例子--逃跑的小恐龙)               首先,打开Visual Basic ,新建窗体,在窗体中添加...
  • YSC1123
  • YSC1123
  • 2013年02月26日 20:28
  • 1518

[Unity3D插件]2dtoolkit系列二 动画精灵的创建以及背景图的无限滚动

经过昨天2dtoolkit系列教程一的推出,感觉对新手还有有一定的启发作用,引导学习使用unity 2dToolKit插件的使用过程,今天继续系列二——动画精灵的创建,以及背景图的无限循环滚动,在群里...
  • u013950693
  • u013950693
  • 2014年03月07日 09:00
  • 783
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:怎样在VB中设计背景动画图案
举报原因:
原因补充:

(最多只允许输入30个字)