VB.NET編程語言可以幫助開發(fā)人員實(shí)現(xiàn)許多特定的功能。比如像今天我們?yōu)榇蠹医榻B的VB.NET文字特效的實(shí)現(xiàn)，就可以通過VB.NET進(jìn)行簡(jiǎn)單的操作即可實(shí)現(xiàn)。下面就讓我們來看看各種特效的實(shí)現(xiàn)辦法。#t#

（1）新建一個(gè)名為“DrawFont”的項(xiàng)目，然后在窗體設(shè)計(jì)器中，添加4個(gè)Button按鈕，對(duì)窗體和各個(gè)控件設(shè)置其屬性如下：

1. Form1的Text屬性:文字特效 BackGroupImage
   屬性:C:\windows\Web\Wallpaper\Bliss.jpg  
2. Button1的name屬性:btnSD Text屬性:3D文字  
3. Button1的name屬性:btnYY Text屬性:陰影文字  
4. Button1的name屬性:btnJB Text屬性:漸變文字  
5. Button1的name屬性:btnTA Text屬性:圖案文字 

（2）為控件添加相應(yīng)的代碼，完整的VB.NET文字特效代碼如下：

Imports System.Drawing  
Imports System.Drawing.Drawing2D  
Public Class Form1  
Inherits System.Windows.Forms.Form  
Private flag As Integer  
Private Sub Form1_Paint(ByVal sender 
As System.Object, ByVal e As System.
Windows.Forms.PaintEventArgs) 
Handles MyBase.Paint  
Dim fntText = New Font("隸書", 40)  
Dim g As Graphics = e.Graphics  
Dim brB, brF As Brush  
Dim bm As ImageImage = Image.FromFile
("D:\WINDOWS\Web\Wallpaper\20.jpg")  
Dim i As Integer  
Dim p1, p2 As Point  
p1.X = 20 
p1.Y = 20 
p2.X = 200 
p2.Y = 20 
Select Case flag 

Case 1  
brB = New SolidBrush(Color.FromArgb
(100, Color.Black))  
brF = New SolidBrush(Color.Red)  
For i = 1 To 10  
g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X + i, p1.Y + i)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brB, p1.X + 150 + i, p1.Y + 50 + i)  
Next  
g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X, p1.Y)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brB, p1.X + 150, p1.Y + 50) 

Case 2  
brB = New SolidBrush(Color.
FromArgb(120, Color.Black))  
brF = New SolidBrush(Color.Red)  
g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X + 5, p1.Y + 5)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brB, p1.X + 150 + 5, p1.Y + 50 + 5)  
g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X, p1.Y)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brB, p1.X + 150, p1.Y + 50) 

Case 3  
brF = New LinearGradientBrush
(p1, p2, Color.Red, Color.Yellow)  
g.DrawString("Visual Basic.Net", 
fntText, brF, p1.X, p1.Y)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brF, p1.X + 150, p1.Y + 50) 

Case 4  
brF = New TextureBrush(bm)  
g.DrawString("Visual Basic.Net", 
fntText, brF, p1.X, p1.Y)  
g.DrawString("程序設(shè)計(jì)", fntText, 
brF, p1.X + 150, p1.Y + 50)  
End Select  
End Sub  
Private Sub btnSD_Click(ByVal 
sender As System.Object, ByVal 
e As System.EventArgs) Handles
 btnSD.Click  
flag = 1 
Me.Invalidate()  
End Sub  
Private Sub btnYY_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles btnYY.Click  
flag = 2 
Me.Invalidate()  
End Sub  
Private Sub btnJB_Click(ByVal 
sender As System.Object, ByVal 
e As System.EventArgs) Handles btnJB.Click  
flag = 3 
Me.Invalidate()  
End Sub  
Private Sub btnTA_Click(ByVal sender 
As System.Object, ByVal e As System.
EventArgs) Handles btnTA.Click  
flag = 4 
Me.Invalidate()  
End Sub  
End Class 

（3）VB.NET文字特效程序說明：

程序開頭要用到兩個(gè)命名空間，所以加上兩行代碼：

1. Imports System.Drawing  
2. Imports System.Drawing.
   Drawing2D 

其次為窗體添加Paint事件，VB.NET文字特效的3D，陰影，漸變，圖案效果都是在窗體的Paint事件中實(shí)現(xiàn)的，所謂窗體的Paint事件，說的簡(jiǎn)單點(diǎn)就是一個(gè)畫圖事件。