建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
多種VB.NET文字特效實現(xiàn)過程解析
VB.NET編程語言可以幫助開發(fā)人員實現(xiàn)許多特定的功能。比如像今天我們?yōu)榇蠹医榻B的VB.NET文字特效的實現(xiàn)，就可以通過VB.NET進行簡單的操作即可實現(xiàn)。下面就讓我們來看看各種特效的實現(xiàn)辦法。#t#
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設,岳普湖企業(yè)網(wǎng)站建設,岳普湖品牌網(wǎng)站建設,網(wǎng)站定制,岳普湖網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,岳普湖網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
（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事件中實現(xiàn)的，所謂窗體的Paint事件，說的簡單點就是一個畫圖事件。
網(wǎng)頁名稱：多種VB.NET文字特效實現(xiàn)過程解析
文章路徑：http://www.dlmjj.cn/article/cdoechi.html
