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

在WORD中用VBA制作作文稿紙

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

一、編制程序

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

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

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

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

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

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

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

Private Sub CommandButton1_Click()Dim n As Integer '定義一個變量為整數(shù)型 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 '設(shè)定表格行高為固定值

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

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

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

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

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 '設(shè)定表格邊框?yàn)榇志€ End With Selection.EndKey Unit:=wdLine Unload Me End Sub

二、使用

與Word的稿紙向?qū)Щ蚋寮埣虞d項(xiàng)相比，此程序做出的稿紙顯然不適于在文檔中直接使用，但在制作作文試卷時優(yōu)勢明顯。其一，不受紙型限制；其二，因?yàn)槭潜砀?，所以能根?jù)需要自由地添加、刪除行列，還能在適當(dāng)位置標(biāo)注作文所要求的字?jǐn)?shù)。

應(yīng)用前，應(yīng)先設(shè)定好試卷模板，然后進(jìn)行試驗(yàn)，以找出試卷最適的格子大小和行列數(shù)，需要制作稿紙時，可直接在“常用”工具欄上單擊“作文稿紙”按鈕，也可以連續(xù)點(diǎn)擊“工具”，“宏”，“宏?”，打開“宏”對話框，在左側(cè)組合框中選擇名為“作文稿紙”的宏，然后單擊“運(yùn)行”，即可啟動宏程序，在隨后出現(xiàn)的“作文稿紙?jiān)O(shè)置”窗口中，根據(jù)需要修改默認(rèn)設(shè)置，最后，單擊“確定”按鈕，程序?qū)⒆詣永L制作文稿紙表格，如果稿紙超出一頁（或一欄），選擇稿紙中部的行刪除即可。下面是20×20稿紙。

三、導(dǎo)出導(dǎo)入

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

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

第二篇：word vba常用語句100句

word vba常用語句100句

很好的材料，從google搜索得到。

301)Application.ActivePrinter ‘獲取當(dāng)前打印機(jī)

(302)Application.Height '當(dāng)前應(yīng)用程序文檔的高度

(303)Application.Width ‘當(dāng)前應(yīng)用程序文檔的寬度

(304)Application.Build ‘獲取Word版本號和編譯序號

(305)Application.Caption ‘當(dāng)前應(yīng)用程序名

(306)Application.DefaultSaveFormat '返回空字符串，表示W(wǎng)ord文檔(307)Application.DisplayRecentFiles '返回是否顯示最近使用的文檔的狀態(tài)(308)Application.Documents.Count '返回當(dāng)前打開的文檔數(shù)

(309)Application.FontNames.Count ‘返回當(dāng)前可用的字體數(shù)

(310)Application.Left ‘返回當(dāng)前文檔的水平位置

(311)Application.MacroContainer.FullName '返回當(dāng)前文檔名，包括所在路徑

Application.MacroContainer.pach'返回當(dāng)前文檔路徑

Application.ActiveDocument.Path‘獲得文件的相對路徑

(312)Application.NormalTemplate.FullName '返回文檔標(biāo)準(zhǔn)模板名稱及所在位置(313)Application.RecentFiles.Count '返回最近打開的文檔數(shù)目

(314)Application.System.CountryRegion '返回應(yīng)用程序所在的地區(qū)代碼(315)Application.System.FreeDiskSpace ‘返回應(yīng)用程序所在磁盤可用空間(316)Application.System.HorizontalResolution '返回顯示器的水平分辨率(317)Application.System.VerticalResolution '返回顯示器的垂直分辨率(318)Application.System.LanguageDesignation '返回系統(tǒng)所使用的語言

(319)Application.System.MathCoprocessorInstalled ‘返回系統(tǒng)是否安裝了數(shù)學(xué)協(xié)處理器(320)Application.System.OperatingSystem ‘返回當(dāng)前操作系統(tǒng)名

(321)Application.System.ProcessorType '返回計(jì)算機(jī)處理器名

(322)Application.System.Version ‘返回操作系統(tǒng)的版本號

(323)Application.Templates.Count '返回應(yīng)用程序所使用的模板數(shù)

(324)Application.UserName'返回應(yīng)用程序用戶名

(325)Application.Version ‘返回應(yīng)用程序的版本號

Documents/Document對象

-------

(326)ActiveDocument.AttachedTemplate.FullName '返回當(dāng)前文檔采用的模板名及模板所在位置

(327)ActiveDocument.Bookmarks.Count '返回當(dāng)前文檔中的書簽數(shù)

(328)ActiveDocument.Characters.Count '返回當(dāng)前文檔的字符數(shù)

(329)ActiveDocument.CodeName ‘返回當(dāng)前文檔的代碼名稱

(330)ActiveDocument.Comments.Count ‘返回當(dāng)前文檔中的評論數(shù)

(331)ActiveDocument.Endnotes.Count '返回當(dāng)前文檔中的尾注數(shù)

(332)ActiveDocument.Fields.Count '返回當(dāng)前文檔中的域數(shù)目

(333)ActiveDocument.Footnotes.Count ‘返回當(dāng)前文檔中的腳注數(shù)

(334)ActiveDocument.FullName '返回當(dāng)前文檔的全名及所在位置

(335)ActiveDocument.HasPassword '當(dāng)前文檔是否有密碼保護(hù)

(336)ActiveDocument.Hyperlinks.Count '返回當(dāng)前文檔中的鏈接數(shù)

(337)ActiveDocument.Indexes.Count '返回當(dāng)前文檔中的索引數(shù)

(338)ActiveDocument.ListParagraphs.Count '返回當(dāng)前文檔中項(xiàng)目編號或項(xiàng)目符號數(shù)(339)ActiveDocument.ListTemplates.Count '返回當(dāng)前文檔中使用的列表模板數(shù)

(340)ActiveDocument.Paragraphs.Count '返回當(dāng)前文檔中的段落數(shù)

(341)ActiveDocument.Password=XXX '設(shè)置打開文件使用的密碼

(342)ActiveDocument.ReadOnly '獲取當(dāng)前文檔是否為只讀屬性

(343)ActiveDocument.Saved '當(dāng)前文檔是否被保存

(344)ActiveDocument.Sections.Count '當(dāng)前文檔中的節(jié)數(shù)

(345)ActiveDocument.Sentences.Count ‘當(dāng)前文檔中的語句數(shù)

(346)ActiveDocument.Shapes.Count'當(dāng)前文檔中的形狀數(shù)

(347)ActiveDocument.Styles.Count '當(dāng)前文檔中的樣式數(shù)

(348)ActiveDocument.Tables.Count ‘當(dāng)前文檔中的表格數(shù)

(349)ActiveDocument.TablesOfAuthorities.Count ‘返回當(dāng)前文檔中的引文目錄數(shù)

(350)ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回當(dāng)前文檔中引文目錄類別數(shù)(351)ActiveDocument.TablesOfContents.Count ‘返回當(dāng)前文檔中的目錄數(shù)

(352)ActiveDocument.TablesOfFigures.Count '返回當(dāng)前文檔中的圖表目錄數(shù)

Paragraphs/Paragraph對象

-------

(353)Selection.Paragraphs.Count '返回所選區(qū)域的段落數(shù)

(354)Selection.Paragraphs.First '返回所選區(qū)域中的第一段

(355)ActiveDocument.Paragraphs(1).LeftIndent '返回當(dāng)前文檔中第一段的左縮進(jìn)值(356)ActiveDocument.Paragraphs(1).LineSpacing '返回當(dāng)前文檔中第一段的行距

(357)ActiveDocument.Paragraphs(1).OutlineLevel‘返回或設(shè)置當(dāng)前文檔中第一段的大綱級別

(358)ActiveDocument.Paragraphs(1).RightIndent ‘返回當(dāng)前文檔中第一段的右縮進(jìn)量(359)ActiveDocument.Paragraphs(1).SpaceBefore '返回當(dāng)前文檔中第一段的段前間距(360)ActiveDocument.Paragraphs(1).SpaceAfter ‘返回當(dāng)前文檔中第一段的段后間距(361)ActiveDocument.Paragraphs(1).Range.Text '返回當(dāng)前文檔中第一段的內(nèi)容

(362)ActiveDocument.Paragraphs(1).Range.Style.NameLocal '返回當(dāng)前文檔中第一段應(yīng)用的樣式名

(363)ActiveDocument.Paragraphs(1).Range.Style.Description '返回當(dāng)前文檔中第一段所應(yīng)用樣

式的詳細(xì)描述

(364)ActiveDocument.Paragraphs(1).Range.Style.Font.Name '返回當(dāng)前文檔中第一段所應(yīng)用樣式的字體名

(365)ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast'返回或設(shè)置一種東亞字體名

(366)ActiveDocument.Paragraphs(1).Range.Style.Font.Size '返回或設(shè)置當(dāng)前文檔中第一段所應(yīng)用樣式的字體大小

(367)ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing '返回或設(shè)置字符間距(368)Selection.Words.Count '所選區(qū)域的字?jǐn)?shù)

Sentences對象

----

(369)Selection.Sentences.Item(1)'所選區(qū)域中的第一句的內(nèi)容

----

Words對象

----

(371)ActiveDocument.Words(1).Select '選擇當(dāng)前文檔中的第一個詞

(372)ActiveDocument.Range.Words(1).InsertAfter “我愛你！” '在當(dāng)前文檔中的第一個詞后插入“我愛你”

----

Characters對象

----

(373)Selection.Characters.Count '當(dāng)前文檔中所選區(qū)域的字符數(shù)

(374)ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter'在當(dāng)前文檔的第一段之后插入一個新段落

------

Sections/Section對象

------

(375)ActiveDocument.Sections.First '當(dāng)前文檔的第一節(jié)

(376)ActiveDocument.Sections.First.PageSetup.BottomMargin '當(dāng)前文檔第一節(jié)所在頁的底邊距

(377)ActiveDocument.Sections.First.PageSetup.LeftMargin '當(dāng)前文檔第一節(jié)所在頁的左邊距(378)ActiveDocument.Sections.First.PageSetup.RightMargin '當(dāng)前文檔第一節(jié)所在頁的右邊距(379)ActiveDocument.Sections.First.PageSetup.TopMargin '當(dāng)前文檔第一節(jié)所在頁的頂邊距

(380)ActiveDocument.Sections.First.PageSetup.PaperSize '返回或設(shè)置當(dāng)前文檔第一節(jié)所在頁的大小

(381)ActiveDocument.Sections.First.PageSetup.PageHeight '返回或設(shè)置當(dāng)前文檔第一節(jié)所在頁的高度

(382)ActiveDocument.Sections.First.PageSetup.PageWidth '返回或設(shè)置當(dāng)前文檔第一節(jié)所在頁的寬度

(383)ActiveDocument.Sections.Add Range:=myRange '在當(dāng)前文檔中添加新節(jié)

(384)ActiveDocument.Sections.Item(2)'當(dāng)前文檔中的第二節(jié)

(385)ActiveDocument.Sections.Last.Range.InsertAfter “文檔結(jié)束！” '在當(dāng)前文檔中最后一節(jié)的結(jié)尾添加文字“文檔結(jié)束！”

----

Range對象

----

(386)ActiveDocument.Range(Start:=0, End:=10)'表示當(dāng)前文檔前10個字符所組成的一個Range對象

(387)Set myRange = ActiveDocument.Range(_

Start:=ActiveDocument.Paragraphs(2).Range.Start, _

End:=ActiveDocument.Paragraphs(4).Range.End)'將當(dāng)前文檔第2段至第4段設(shè)置為一個Range對象

(388)ActiveDocument.Paragraphs(1).Range.Copy '復(fù)制當(dāng)前文檔中的第一段

(389)Selection.Copy

Documents.Add.Content.Paste '復(fù)制所選內(nèi)容到新文檔中

(390)ActiveDocument.Bookmarks(“Book1”).Copy Name:=“Book2” '將Book2書簽復(fù)制Book1書簽標(biāo)記的位置

(391)Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '將所選內(nèi)容移至文檔中的第4行

(392)Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '將所選內(nèi)容移至下一個表格的第1個單元格

(393)Selection.Range.AutoFormat '為所選內(nèi)容套用格式

(394)ActiveDocument.Content.Font.Name = “Arial” '將當(dāng)前文檔的字體設(shè)置為斜體(395)ActiveDocument.Content.Select

Selection.Delete '將當(dāng)前文檔中的內(nèi)容刪除

--

其它

--

(396)Documents.Add '添加一個新文檔

(397)Set myTable = ActiveDocument.Tables.Add(Selection.Range, 2, 2)'在當(dāng)前文檔所選區(qū)域添加一個2行2列的表格

(398)Open “C:my.txt” For Input As #1 '打開一個用于輸入的文件并令其編號為1

(399)Line Input #1, TextLine'讀取被打開用于輸入且編號為1的文件

(400)Close #1 '關(guān)閉編號為1的文件

第三篇：語文作文稿紙

爺

爺

清帶前爺?shù)目旌味p他著景我怪惟那

晨我腳爺行步里來高片邊快們的線又石肖牡

夏，到剛奶列走的游翔漣的的佇精。跑堆啊丹

日微離跨奶。去野去，漪柳步立美的風(fēng)家進(jìn)們我。鴨。時。樹伐在圖

早輕不公，和

晨輕遠(yuǎn)園爺爺

吹的，爺爺

過人映看約，民入得定

白公眼起好

云園簾勁在慢去的兒公

慢晨是，園的練一也門

飄。些加口

在入集

晨了合走，練他后的們，戲膀起，時一

媽又而

媽一低

帶群回

著野，孩鴨時

子掠而

在過落

湖湖在里面水

玩伸面

耍展上,著，嬉翅蕩

邁橋上的著墩刻風(fēng)

在走湖案

微向邊，風(fēng)大上讓的橋穩(wěn)這

吹，穩(wěn)座

動橋的橋

下下支成向有撐為

我?guī)字?/p>

招個橋一

手粗面道，壯，亮

我的橋麗

許惟

多妙

向砌！園

假而

山成，的這，姿看

態(tài)起

各還

異真的是

假栩

山栩，如

是生

有，的景色在陽光的照射下顯得更加x 20 = 400

迷丹不

人，知

。還名一蕩公夏

說有的陣起園日

是月花微了的的叫季。風(fēng)一景早

牡花

丹，園芍，藥

但花

那，里串的紅

花花

卻，不還

只有

有許

牡多

湖人笑面民，吹道色晨

過道真是，波美多

柳紋，么

樹。我美

輕這心好

輕里中啊的是充！擺涼滿

動爽了

著又快

腰舒樂

肢適與，歡

第四篇：在word 2003 中用快捷鍵轉(zhuǎn)換英文字母大小寫

在word 2003 中用快捷鍵轉(zhuǎn)換英文字母大小寫

把光標(biāo)定位到word文檔句首或單詞的字母中→按【shift+f3】，就可以把句首字母或單詞的第一個字母轉(zhuǎn)換為大寫→再次按【shift+f3】，即可把整個句首的字母或單詞的字母轉(zhuǎn)換為大寫→再次按【shift+f3】，即可把整個句首的字母轉(zhuǎn)換為小寫。

每按一次快捷鍵，字母大小寫的變化依此類推進(jìn)行轉(zhuǎn)換。

第五篇：在VB中用顏色漸變技術(shù)制作幻影字

在VB中用顏色漸變技術(shù)制作幻影字

馬致明

新疆師范大學(xué)數(shù)理信息學(xué)院

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

一． 編程思路

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

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

red=C Mod 256

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

2．漸變色三元色分量值的計(jì)算方法

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

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坐標(biāo)的增減來控制；如X增Y減，則陰影在左下，如X減Y增，則陰影在右上等。

二．程序介紹

1．功能

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

窗體上安置一對命令鈕控件數(shù)組，取名為“顏色”，標(biāo)題分別為“背景色”和“字幕色”；一個水平滾動條，取名為陰影，Min和Max值依次為100和500；此外還有一個用于顯示陰影深度值的標(biāo)簽“深度”。其它屬性均在代碼中設(shè)置。3．程序代碼（用VB6.0中文版開發(fā)）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 = “華文行楷” '默認(rèn)字體

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 “幻影字”

'要顯示的內(nèi)容

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月生、碩士，畢業(yè)于四川師范大學(xué)，新疆師范大學(xué)物理系微機(jī)教研室副教授，主要從事計(jì)算機(jī)及計(jì)算機(jī)輔助教學(xué)方面的教學(xué)和研究。參加過2項(xiàng)CAI方面的課題，并在《電腦愛好者》、《中國電腦教育報》、《多媒體世界》、《電腦知識與技術(shù)》、《實(shí)驗(yàn)教學(xué)與儀器》、《新疆師范大學(xué)學(xué)報》等九種刊物上發(fā)表了近20篇文章；文章主要涉及計(jì)算機(jī)編程方面的經(jīng)驗(yàn)和技巧。聯(lián)系方法：

通訊地址：新疆師范大學(xué)物理系

830054 電

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