用vb制作走马灯 窗体代码全过程

1、使用label(标签）来模拟灯，只要修改label背景就可以实现跑马灯效果。

创新互联专注于巴彦淖尔网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供巴彦淖尔营销型网站建设，巴彦淖尔网站制作、巴彦淖尔网页设计、巴彦淖尔网站官网定制、成都微信小程序服务，打造巴彦淖尔网络公司原创品牌,更为您提供巴彦淖尔网站排名全网营销落地服务。

2、工具vb6

3、示例：

Private WithEvents NewTimer As Timer

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 10

Set NewLabel = Controls.Add("vb.label", "label"  i, Me)

NewLabel.Move i * 200, 100, 100, 100

NewLabel.BackColor = vbWhite

NewLabel.Visible = True

Next

Set NewTimer = Controls.Add("vb.timer", "Timer1", Me)

NewTimer.Interval = 200

NewTimer.Enabled = True

End Sub

Private Sub NewTimer_Timer()

Static i As Integer

i = i + 1

Me("label"  i).BackColor = vbRed

If i = 1 Then

If i = 1 Then i = 11

Me("label"  i - 1).BackColor = vbWhite

If i = 11 Then i = 1

End If

If i = 10 Then i = 0

End Sub

4、注意：复制以上代码到代码窗体，不要加任何控件，直接运行即可。

VB.NET里面用什么控件做指示灯比较好？请说明为优点。

VB.NET里用GDI+画指示灯其实很简单，稍微查一点资料就能找到gdi+语句的用法的。用GDI+可以画很多种图形，圆形半圆形自然不在话下。如果有很多指示灯在一起的话，改起来也很方便。

当然如果嫌GDI+麻烦可以用label控件，把autosize关掉，将尺寸调小一点，然后利用backcolor调背景颜色作为指示灯，只不过是方形的。

如果指示灯很多而且频繁换颜色的话建议用GDI+，因为GDI+效率高一些

在VS2008中，如何让VB.net中的图片动起来

不是语言让图片动起来的，而是图片本身就能动，例如gif格式图片本身就是动画。如果你讲的是图片在网页上移动，而不是图片本身内容的动作，那么不是vb.net的功能必须用java脚本来实现。

名称栏目：vb.net走马灯 走马灯效果的代码怎么写
文章位置：http://scyanting.com/article/ddopcog.html