第一篇：在VB中用顏色漸變技術制作幻影字

在VB中用顏色漸變技術制作幻影字

馬致明

新疆師范大學數理信息學院

制作出別具一格的特效字來為軟件增色，是許多軟件開發者的追逐目標。但是，一般軟件界面中的特效字都是用其它專門工具制作成圖片后添加進來的，既降低了控制的靈活性，又增加了資源開銷。能否在程序中直接實現文字特效呢？為此，筆者經過反復實踐，探索出一種與眾不同的特效字制作方法，現將其奉獻給各位編程愛好者。

一． 編程思路

用顏色漸變技術來控制文字的顏色、用錯位疊加法控制文字輸出的位置是本文的基本思路。具體作法是：用循環方式在不同位置上用不同顏色顯示同一字串，循環時顏色由背景色漸變到字幕色，沿同一方向錯位疊加后便形成亦真亦虛、縹緲虛幻的效果（見效果圖）。其關鍵又在于漸變色的計算和控制。1．從基色中獲取三元色分量值

獲取漸變色要借助RGB（red,green,blue）函數。調色板及系統顏色用的是長整數表示法，其中低字節描述的是紅色，次字節描述的是綠色，第三個字節描述的是藍色，高字節未用；若顏色值為C，則各色分量值依次為：

red=C Mod 256

green=C 256 Mod 256 blue=C 256^2

2．漸變色三元色分量值的計算方法

假定基色A和基色B的三元色分量值依次為Ar、Ag、Ab和Br、Bg、Bb，若想從A色經過N種顏色漸變到B色，則第i種漸變色的三元色分量值可采用以下計算方法：

red=Ar+(Br-Ar)* i / N green=Ag+(Bg-Ag)* i /N blue=Ab+(Bb-Ab)* i / N 其中，i的取值范圍為：0，1，2，3，??，N。3．陰影的控制方法

錯位疊加輸出時，依需要控制好陰影的深度和角度。深度可用N來控制，角度可用輸出位置的X、Y坐標的增減來控制；如X增Y減，則陰影在左下，如X減Y增，則陰影在右上等。

二．程序介紹

1．功能

本文介紹的這則程序，用戶介面中提供了“背景色”和“字幕色”兩個命令按鈕，用以選擇相應顏色，一個滾動條用于調整陰影的深度，一個標簽用于呈現深度值。選擇不同顏色和深度，可以制作出各種似虛似實的幻影字，效果非常理想。滾動條調整后，要稍等片刻（1至2秒）才能出現新的效果，因為計算和輸出工作量較大。2．窗體設計

窗體上安置一對命令鈕控件數組，取名為“顏色”，標題分別為“背景色”和“字幕色”；一個水平滾動條，取名為陰影，Min和Max值依次為100和500；此外還有一個用于顯示陰影深度值的標簽“深度”。其它屬性均在代碼中設置。3．程序代碼（用VB6.0中文版開發）Dim Colors(1)As Long, N As Integer Private Sub Form_Load()

Form1.Top = 0

Form1.Left = 0

Form1.Height = Screen.Height

Form1.Width = Screen.Width

Form1.FontSize = 180

Form1.AutoRedraw = True

Form1.Font = “華文行楷” '默認字體

Colors(0)= vbBlue

Colors(1)= vbWhite

N = 400

'控制陰影的深度

幻影字

'顯示效果 End Sub Private Sub 幻影字()Dim i As Integer, R(1)As Integer, G(1)As Integer, B(1)As Integer Dim Red As Integer, Grn As Integer, Blu As Integer Form1.BackColor = Colors(0)深度.ForeColor = Colors(1)Form1.Cls For i = 0 To 1 '獲取背景色、前景色的分量值

R(i)= Colors(i)Mod 256

G(i)= Colors(i)256 Mod 256

B(i)= Colors(i)256 ^ 2 Next i For i = 0 To N Step 2 '用漸變色輸出

Red = R(0)+(R(1)G(0))/ N * i

Blu = B(0)+(B(1)i * 4

Form1.CurrentY = 4000-i * 4

Form1.ForeColor = RGB(Red, Grn, Blu)

Print “幻影字”

'要顯示的內容

Next i End Sub Private Sub 顏色_Click(Index As Integer)

CommonDialog1.ShowColor '顯示顏色對話框

Colors(Index)= CommonDialog1.Color '確定顏色

幻影字 End Sub Private Sub 陰影_Change()

N = 陰影

'改變陰影的深度

深度.Caption = “陰影深度為” & N

幻影字

'顯示效果 End Sub 附：作者簡介：

馬致明、男、回族、63年10月生、碩士，畢業于四川師范大學，新疆師范大學物理系微機教研室副教授，主要從事計算機及計算機輔助教學方面的教學和研究。參加過2項CAI方面的課題，并在《電腦愛好者》、《中國電腦教育報》、《多媒體世界》、《電腦知識與技術》、《實驗教學與儀器》、《新疆師范大學學報》等九種刊物上發表了近20篇文章；文章主要涉及計算機編程方面的經驗和技巧。聯系方法：

通訊地址：新疆師范大學物理系

830054 電

話：0991-4841601-2582（最好是在早晨9:30之前）E-MAIL ：mzm@mail.wl.xj.cn 或ibrahim@tonghua.com.cn

第二篇：在WORD中用VBA制作作文稿紙

在WORD中用VBA制作作文稿紙

語文考試中，經常用到作文稿紙，Word中帶有稿紙模板，但有諸多限制（如紙型、行列數等相對固定），在試卷排版時頗為不便。其實，我們可以利用Word的VBA編程，通過繪制表格制作作文稿紙。

一、編制程序

1．啟動Word，連續點擊“工具”，“宏”，“錄制新宏...”，在彈出的對話框中填寫宏名（此例為“作文稿紙”），選擇宏要保存的位置（可以保存在模板中，也可以保存在當前文檔中），如圖1所示。

2．為了方便操作，可以將此宏以按鈕的形式指定在工具欄中。單擊“錄制宏”對話框中的“工具欄”按鈕，在彈出的“自定義”對話框的右側，選中宏命令“Normal.NewMacros.作文稿紙”，用鼠標將其拖動復制到“常用”工具欄，在其上單擊右鍵，選擇相應的命令修改名稱，為其編輯一個小圖標，結果如圖2所示。

3．單擊“錄制宏”對話框中的“關閉”按鈕，屏幕上將出現一個“錄制宏”工具欄，單擊停止按鈕停止錄制。

4．依次選擇“工具”、“宏”、“宏…”，在對話框中選擇宏名“作文稿紙”，單擊“編輯”按鈕，打開vba編程窗口。錄入如下代碼：

Sub 作文稿紙()UserForm1.CommandButton1.Enabled = True UserForm1.Show End Sub

5．插入一個窗體UserForm1，在其中插入4個標簽，4個文本框，一個按鈕。分別設置它們的相關屬性，其中，“行數”文本框的 “text”屬性值設為50，“列數”文本框的“text”屬性值設為20，“行距”文本框的“text”屬性值設為0.2，“首尾空行高度”文本框的“text”屬性值設為0.2，如圖所示。

6．雙擊命令按鈕CommandButton1，錄入以下代碼：

Private Sub CommandButton1_Click()Dim n As Integer '定義一個變量為整數型 n = 1 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text)* 2 + 1, NumColumns _ :=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed Selection.EndKey Unit:=wdRow, Extend:=True Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone Selection.Tables(1).Rows.HeightRule = wdRowHeightExactly '設定表格行高為固定值

Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text))'設置表格行高為設置值，作為行間距 Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text))'設置第一行行高為設置值 Do While n < Val(TextBox1.Text)+ 1 Selection.EndKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=2 '將插入點移至下一行

Selection.Tables(1).Rows(2 * n).Height = Selection.Tables(1).Columns(1).PreferredWidth '設行高等于列寬

Selection.EndKey Unit:=wdRow, Extend:=True Selection.EndKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=2 '將插入點移至下一行

Selection.EndKey Unit:=wdRow, Extend:=True Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone '去除此行的內部框線，只余邊框 n = n + 1 Loop Selection.Tables(1).Rows(Val(TextBox1.Text)* 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text))'設置末行高為設置值

Selection.EndKey Unit:=wdRow, Extend:=True Selection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone Selection.Tables(1).Rows.Alignment = wdAlignRowCenter '表格居中

With Selection.Tables(1).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt.Borders(wdBorderRight).LineWidth = wdLineWidth150pt.Borders(wdBorderTop).LineWidth = wdLineWidth150pt.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt '設定表格邊框為粗線 End With Selection.EndKey Unit:=wdLine Unload Me End Sub

二、使用

與Word的稿紙向導或稿紙加載項相比，此程序做出的稿紙顯然不適于在文檔中直接使用，但在制作作文試卷時優勢明顯。其一，不受紙型限制；其二，因為是表格，所以能根據需要自由地添加、刪除行列，還能在適當位置標注作文所要求的字數。

應用前，應先設定好試卷模板，然后進行試驗，以找出試卷最適的格子大小和行列數，需要制作稿紙時，可直接在“常用”工具欄上單擊“作文稿紙”按鈕，也可以連續點擊“工具”，“宏”，“宏?”，打開“宏”對話框，在左側組合框中選擇名為“作文稿紙”的宏，然后單擊“運行”，即可啟動宏程序，在隨后出現的“作文稿紙設置”窗口中，根據需要修改默認設置，最后，單擊“確定”按鈕，程序將自動繪制作文稿紙表格，如果稿紙超出一頁（或一欄），選擇稿紙中部的行刪除即可。下面是20×20稿紙。

三、導出導入

在VBA編程窗口中，分別選擇工程資源管理器中的UserForm1窗體和NewMacros模塊，導出UserForm1.frm、UserForm1.frx和NewMacros.bas文件。

需要在其他電腦中使用這個程序時，把備份拷貝過來，啟動VBA編程窗口，通過“文件”、“導入文件”將UserForm1.frm、和NewMacros.bas導入，在Word中就使用了。以上程序在Word 2003中調試通過。

第三篇：在Word2010文檔中設置漸變頁面背景顏色

在Word2010文檔中設置漸變頁面背景顏色

在Word2010文檔窗口中使用單色的頁面背景看起來似乎有些單調，并且很難呈現出讓人眼前一亮的效果。而如果使用漸變顏色作為Word文檔頁面背景，則可以使Word文檔更富有層次感。在Word2010文檔中設置漸變頁面背景顏色的步驟如下所述：

第1步，打開Word2010文檔窗口，切換到“頁面布局”選項卡。在“頁面背景”分組中單擊“頁面顏色”按鈕，并在打開的頁面顏色面板中選擇“填充效果”命令，如圖2010082003所示。

圖2010082003 選擇“填充效果”命令

第2步，在打開的“填充效果”對話框中，切換到“漸變”選項卡。在“顏色”區域選中“雙色”單選框，然后分別選擇“顏色1”和“顏色2”。在“底紋樣式”區域選擇顏色的漸變方向，包括“水平”、“垂直”、“斜上”、“斜下”、“角部輻射”和“中心輻射”幾種樣式。設置完畢單擊“確定”按鈕即可，如圖2010082004所示。

圖2010082004 “漸變”選項卡