用VB实现Web效果
#1?牐犐凉獾奈谋?
?牐犖颐窃谕持芯？吹揭恢中Ч牵诤谏尘盎肪持形谋驹诓煌５纳了浮Ｆ涫道肰B我们可以非常容易地实现这个功能。这主要是利用了Timer控件对文本的背景颜色值不断进行刷新，并且利用RGB函数对颜色进行填充。
?牐牥汛疤宓谋尘吧⑶熬吧虵illcolor属性均设为黑色，再添加一个Timer控件和Label控件，把Label控件的背景色和前景色也都设为黑色，Timer控件的Interval属性设置为50（文本刷新率值）。在Timer控件的Timer事件中加入代码：
?牐燿im i as Boolean
?牐燚im c As Integer
?牐燩rivate Sub Timer1_Timer（）
?牐營f c > 255 Then chg = True
?牐營f c < 10 Then chg = False
?牐營f chg Then c = c - 10 Else c = c + 10
?牐燣abel1.ForeColor = RGB（c， c， c）??
?牐燛nd Sub
?牐犇憧梢酝ü柚肨imer控件的Interval属性的大小来调节文本闪烁的速度。
#1?牐犞谱鞔蜃中Ч奈淖?
?牐牨纠樯茉谖谋究蚧虮昵┛蛑校踔罠orm的标题框中如何将文字一个一个显示出来，就像打字机打字一样。实现这一功能只需要很少的代码，即可达到动态显示的效果。在Form中放上一个Timer控件（通过设置Interval值来控制每一个字之间显示的时间间隔），一个Label控件。然后添加以下的代码，即可以实现功能：
?牐燚im a As String
?牐燚im b As Integer
?牐燚im t As String
?牐燚im i As Integer
?牐燩rivate Sub Form_Load（）??
?牐燼gain
?牐燛nd Sub
?牐燬ub again（）?煟?
?牐燼 = Label1.Caption ＇可以设置为文本控件的Text属性或Form的caption属性
?牐爄 = Len（a）
?牐燽 = 0
?牐燛nd Sub
?牐燩rivate Sub Timer1_Timer?煟?
?牐爐 = Left（a， b）??
?牐燣abel1.Caption = t
?牐燽 = b + 1
?牐營f b > i Then b = 0
?牐燛nd Sub
#1?牐牬唇ù永逗诮ケ浔尘?
?牐牰杂谝桓鲇判愕某绦蚶此担恋谋尘笆欠浅１匾摹Ｔ赩B中，背景总是灰色的，虽然可以通过设置背景图片来变换背景，但是必须首先找好满意的背景图片。其实VB可以非常方便地实现Windows中的渐变背景。不需要任何控件，只要在Form的Paint事件中添加以下代码，就可以实现。
?牐燩rivate Sub Form_Paint（）
?牐燚im ly As Long
?牐燚im lsh As Long
?牐燚im lsw As Long
?牐燬caleMode = vbPixels
?牐爈sh = ScaleHeight
?牐爈sw = ScaleWidth
?牐燚rawStyle = vbInvisible
?牐燜illStyle = vbFSSolid
?牐燜or ly = 0 To lsh
?牐燜illColor = RGB（0， 0， 255 -（ly * 255） \ lsh） ＇可以设置不同的颜色R、G、B就可以实现不用颜色的渐变
?牐燣ine （-1， ly - 1）-（lsw， ly + 1），， B
?牐燦ext ly
?牐燛nd Sub