建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
VB.NET編程語(yǔ)言可以幫助開(kāi)發(fā)人員實(shí)現(xiàn)許多特定的功能。比如像今天我們?yōu)榇蠹医榻B的VB.NET文字特效的實(shí)現(xiàn)，就可以通過(guò)VB.NET進(jìn)行簡(jiǎn)單的操作即可實(shí)現(xiàn)。下面就讓我們來(lái)看看各種特效的實(shí)現(xiàn)辦法。#t#
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),岳普湖企業(yè)網(wǎng)站建設(shè),岳普湖品牌網(wǎng)站建設(shè),網(wǎng)站定制,岳普湖網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,岳普湖網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶(hù)成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
（1）新建一個(gè)名為“DrawFont”的項(xiàng)目，然后在窗體設(shè)計(jì)器中，添加4個(gè)Button按鈕，對(duì)窗體和各個(gè)控件設(shè)置其屬性如下：
- 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）為控件添加相應(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("隸書(shū)", 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文字特效程序說(shuō)明：
程序開(kāi)頭要用到兩個(gè)命名空間，所以加上兩行代碼：
- Imports System.Drawing
- Imports System.Drawing.
Drawing2D
其次為窗體添加Paint事件，VB.NET文字特效的3D，陰影，漸變，圖案效果都是在窗體的Paint事件中實(shí)現(xiàn)的，所謂窗體的Paint事件，說(shuō)的簡(jiǎn)單點(diǎn)就是一個(gè)畫(huà)圖事件。
當(dāng)前標(biāo)題：多種VB.NET文字特效實(shí)現(xiàn)過(guò)程解析
鏈接URL：http://fisionsoft.com.cn/article/cdoechi.html
