多种VB.NET文字特效实现过程解析

VB.NET编程语言可以帮助开发人员实现许多特定的功能。比如像今天我们为大家介绍的VB.NET文字特效的实现，就可以通过VB.NET进行简单的操作即可实现。下面就让我们来看看各种特效的实现办法。#t#

成都创新互联是一家集网站建设,岳普湖企业网站建设,岳普湖品牌网站建设,网站定制,岳普湖网站建设报价,网络营销,网络优化,岳普湖网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

（1）新建一个名为“DrawFont”的项目，然后在窗体设计器中，添加4个Button按钮，对窗体和各个控件设置其属性如下：

Form1的Text属性:文字特效 BackGroupImage
属性:C:\windows\Web\Wallpaper\Bliss.jpg
Button1的name属性:btnSD Text属性:3D文字
Button1的name属性:btnYY Text属性:阴影文字
Button1的name属性:btnJB Text属性:渐变文字
Button1的name属性:btnTA Text属性:图案文字

（2）为控件添加相应的代码，完整的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("程序设计", fntText, 
brB, p1.X + 150 + i, p1.Y + 50 + i) 
  
  
  Next 
  
  
  g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X, p1.Y) 
  
  
  g.DrawString("程序设计", 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("程序设计", fntText, 
brB, p1.X + 150 + 5, p1.Y + 50 + 5) 
  
  
  g.DrawString("Visual Basic.Net", 
fntText, brB, p1.X, p1.Y) 
  
  
  g.DrawString("程序设计", 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("程序设计", 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("程序设计", 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文字特效程序说明：

程序开头要用到两个命名空间，所以加上两行代码：

Imports System.Drawing
Imports System.Drawing.
Drawing2D

其次为窗体添加Paint事件，VB.NET文字特效的3D，阴影，渐变，图案效果都是在窗体的Paint事件中实现的，所谓窗体的Paint事件，说的简单点就是一个画图事件。

当前题目：多种VB.NET文字特效实现过程解析
链接地址：http://www.csdahua.cn/qtweb/news39/298439.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容