标题用VB实现Web效果

　　现在我们在浏览Internet上的网页时，网页的设计者们为了吸引更多的网民，总是把自己的网页打扮得特别漂亮。他们使用各种动态的文字和图像来引起你的注意，这就是为什么Flash、Java等大行其道的原因。其实，我们也可以使用VB来实现其中的一些网页动态功能，而且并不需要太多代码。下面就将介绍几种方法，使你能在你的VB程序中实现Web效果。
　　　闪光的文本
　　我们在网页中经常看到一种效果是，在黑色背景环境中文本在不停的闪烁。其实利用VB我们可以非常容易地实现这个功能。这主要是利用了Timer控件对文本的背景颜色值不断进行刷新，并且利用RGB函数对颜色进行填充。
　　把窗体的背景色、前景色和Fillcolor属性均设为黑色，再添加一个Timer控件和Label控件，把Label控件的背景色和前景色也都设为黑色，Timer控件的Interval属性设置为50(文本刷新率值)。在Timer控件的Timer事件中加入代码：
　　dim i as Boolean
　　Dim c As Integer
　　Private Sub Timer1_Timer()
　　If c > 255 Then chg = True
　　If c < 10 Then chg = False
　　If chg Then c = c - 10 Else c = c + 10
　　Label1.ForeColor = RGB(c， c， c)
　　End Sub
　　你可以通过设置Timer控件的Interval属性的大小来调节文本闪烁的速度。
　　　制作打字效果的文字
　　本例将介绍在文本框或标签框中，甚至Form的标题框中如何将文字一个一个显示出来，就像打字机打字一样。实现这一功能只需要很少的代码，即可达到动态显示的效果。在Form中放上一个Timer控件(通过设置Interval值来控制每一个字之间显示的时间间隔)，一个Label控件。然后添加以下的代码，即可以实现功能：
　　Dim a As String
　　Dim b As Integer
　　Dim t As String
　　Dim i As Integer
　　Private Sub Form_Load()
　　again
　　End Sub
　　Sub again()
　　a = Label1.Caption '可以设置为文本控件的Text属性或Form的caption属性
　　i = Len(a)
　　b = 0
　　End Sub
　　Private Sub Timer1_Timer
　　t = Left(a， b)
　　Label1.Caption = t
　　b = b + 1
　　If b > i Then b = 0
　　End Sub
　　　创建从蓝黑渐变背景
　　对于一个优秀的程序来说，漂亮的背景是非常必要的。在VB中，背景总是灰色的，虽然可以通过设置背景图片来变换背景，但是必须首先找好满意的背景图片。其实VB可以非常方便地实现Windows中的渐变背景。不需要任何控件，只要在Form的Paint事件中添加以下代码，就可以实现。
　　Private Sub Form_Paint()
　　Dim ly As Long
　　Dim lsh As Long
　　Dim lsw As Long
　　ScaleMode = vbPixels
　　lsh = ScaleHeight
　　lsw = ScaleWidth
　　DrawStyle = vbInvisible
　　FillStyle = vbFSSolid
　　For ly = 0 To lsh
　　FillColor = RGB(0， 0， 255 -(ly * 255) \ lsh) '可以设置不同的颜色R、G、B就可以实现不用颜色的渐变
　　Line (-1， ly - 1)-(lsw， ly + 1)，， B
　　Next ly
　　End Sub