用VB实现Web效果

高原 
2001年 47期

　　现在我们在浏览Internet上的网页时，网页的设计者们为了吸引更多的网民，总是把自己的网页打扮得特别漂亮。他们使用各种动态的文字和图像来引起你的注意，这就是为什么Flash、Java等大行其道的原因。其实，我们也可以使用VB来实现其中的一些网页动态功能，而且并不需要太多代码。下面就将介绍几种方法，使你能在你的VB程序中实现Web效果。
　　#1　　闪光的文本
　　　　我们在网页中经常看到一种效果是，在黑色背景环境中文本在不停的闪烁。其实利用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属性的大小来调节文本闪烁的速度。
　　#1　　制作打字效果的文字
　　　　本例将介绍在文本框或标签框中，甚至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
　　#1　　创建从蓝黑渐变背景
　　　　对于一个优秀的程序来说，漂亮的背景是非常必要的。在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 
 