PowerPoint教學課件規則圈點工具的設計與實現

【摘要】在利用PowerPoint教學課件進行講課時，為了更好的指引學生或者強調所講內容，教師們往往會使用PowerPoint的實時圈點功能。但是，PowerPoint的實時圈點功能有一個較大的局限和不足:沒有提供如直線、方框、圓圈、橢圓等規則圖形的圈點功能，而只提供了涂鴉式畫線圈點的功能。為此，該文設計并利用VB實現了一個規則圈點工具，有效的彌補了PowerPoint的這一不足。該規則圈點工具的使用，將能大大的提高教師利用PowerPoint課件進行多媒體輔助教學的效率和學生聽課的效果，從而提高教學質量。

【關鍵詞】計算機輔助教學;教學課件;實時圈點;規則圈點;工具軟件

【中圖分類號】G40-057 【文獻標識碼】B【論文編號】1009—8097(2010)03—0115—04

引言

隨著現代教育技術的發展與普及，計算機輔助多媒體教學的方式已被越來越多的學校和教師所采用。其中，多媒體教學課件是實現計算機輔助多媒體教學的關鍵。而PowerPoint教學課件則是當前設計、開發和使用最多的一類多媒體教學課件。

PowerPoint軟件提供了在演示課件的同時能利用其“繪圖筆”對課件畫圈劃線進行實時圈點的功能[1]。教師在利用PowerPoint教學課件進行講課時，為了更好的指引學生或者強調所講內容，往往會使用PowerPoint的這一實時圈點功能。但是，PowerPoint的實時圈點功能有一個較大的局限和不足:沒有提供如直線、方框、圓圈、橢圓等規則圖形的圈點功能，而只提供了涂鴉式畫線圈點的功能。為此，本文將設計并利用VB實現一個規則圈點工具，以彌補PowerPoint的這一不足。

一 規則圈點工具的設計

1 本工具的規則圈點圖形

本工具的規則圈點功能完全體現在使用規則的圖形進行圈點上。根據多媒體教學課件的圈點實際需求，直線、方框、橢圓是不可缺少的最基本的規則圖形。

(1)直線

直線是指，給定起點和終點后連接這兩點獲得的直線段。起點和終點可以任意指定，也就是說，直線的方向可以是任意的。

(2)方框

方框是指，由給定左上(或左下)頂點和右下(或右上)頂點獲得的空心矩形框。方框的兩條邊框水平、兩條邊框垂直?；诖耍降闹本€和垂直的直線即可方便的分別用高度為0和寬度為0的方框來繪制出。

(3)橢圓

橢圓是指，由給定左上(或左下)頂點和右下(或右上)頂點獲得矩形的內接橢圓周。若兩頂點構成的是一個正方形，則此時獲得的橢圓就是一個圓。因此，圓就不需要單獨作為一種基本圖形了。

2 規則圈點圖形的屬性設置

(1)圖形線條的顏色設置

為加強實時規則圈點的效果，本工具為用戶提供設置規則圈點圖形線條顏色的功能。

(2)圖形線條的寬度設置

規則圈點圖形線條寬度的靈活設置也可加強實時規則圈點的效果，比如，對小的文字設置細線條，對大的文字設置粗線條等。為此，本工具為用戶提供不同寬度大小的線條供選擇。

3 輔助功能

(1)圈點圖形的擦除

當需要進行重新圈點時，就需要擦除當前已有的圈點圖形。為此，本工具為用戶提供圈點圖形的擦除功能。

(2)白板與黑板

電子白板或電子黑板是教師們利用其來補充說明事物的有效工具。為此，本工具為用戶提供調入白板或調入黑板的功能。

4本工具的功能結構圖

本工具的功能結構圖如圖1所示。

二 規則圈點工具的實現

本工具采用VB(6.0版)[2]這一所見即所得的可視化軟件開發工具來實現。

1 基本思想和方法

本文利用VB實現PowerPoint教學課件規則圈點工具的基本思想和方法是:用一個最大化的、無標題欄的、透明的窗體完全覆蓋住PowerPoint教學課件，然后在這個透明窗體對應于PowerPoint教學課件待圈點的位置上繪制規則圖形。這樣，在效果上就如同直接在PowerPoint教學課件上進行規則圈點一樣。這個透明的窗體，為方便描述，在接下來的部分我們就稱之為“圈點窗體”。

2 圈點窗體的設置

(1)圈點窗體的屬性設置

圈點窗體在其屬性窗口中關鍵屬性的設置及其相關說明見表1。

(2)圈點窗體的透明性設置

VB窗體沒有直接用于設置窗體透明性的屬性或方法，這樣，將圈點窗體設置為透明的需要通過間接方式來實現。本文的實現方法是:將當前屏幕顯示的PowerPoint教學課件通過屏幕硬拷貝的方式存至剪貼板，然后將剪貼板中的屏幕快照顯示在圈點窗體上。這樣，圈點窗體顯示出的就是PowerPoint教學課件的內容，就如同窗體是透明的一樣。

由于VB沒有提供屏幕硬拷貝函數，因而我們需要借助API函數來實現。相關API函數的聲明如下:

Declare Sub keybd_event Lib \"user32\" (ByVal bVk As Byte， ByVal bScan As Byte， ByVal dwFlags As Long， ByVal dwExtraInfo As Long)

API函數keybd_event的功能為模擬鍵盤鍵入，根據其用法，只需如下的方式調用該API函數就可以實現屏幕硬拷貝:

Call keybd_event(H2C， 1， 0， 0)

于是，圈點窗體的透明性可通過在圈點窗體的“Load”事件中加入如下代碼實現:

Call keybd_event(H2C， 1， 0， 0) '屏幕硬拷貝

DoEvents '等待屏幕硬拷貝完畢后再繼續執行

Me.Picture = Clipboard.GetData() '從剪貼板對象中獲得屏幕硬拷貝的圖像，并將其設置為圈點窗體上的圖像

3 圈點圖形的相關設置

(1)圈點圖形的類型設置

根據圈點的需求，直線、方框和橢圓這3種類型的規則圈點圖形以及涂鴉式畫線間必須能方便的進行相互切換。為了操作上的便捷性，采用右鍵快捷菜單的方式進行當前圈點圖形類型的設置。其實現方法是:首先通過菜單設計器設計好相關快捷菜單項，如圖2(a)所示，然后在快捷菜單項“圖型”的每個子菜單項的“Click”事件中加入相應的代碼來設置當前圈點圖形的類型。比如，要設置為“直線”(其他的圖形類型類似)，則在其相應“Click”事件中加入如下代碼:

sPenStyle = \"Line\"

其中，字符串類型變量sPenStyle存儲當前圈點圖形的類型。初始時，sPenStyle為“Doodle”(涂鴉)，其在圈點窗體的“Load”事件中加入如下代碼實現:

sPenStyle = \"Doodle\"

(2)圖形線條的顏色設置

圈點圖形線條的顏色設置在進行圈點時起到非常重要的作用，因此需要設置圈點圖形線條的顏色為紅、黃、綠、青、藍、紫、黑、白等常見顏色。同樣的，為操作上的便捷性，采用右鍵快捷菜單的方式進行當前圈點圖形線條顏色的設置。其實現方法是:首先通過菜單設計器設計好相關快捷菜單項，如圖2(b)所示，然后在快捷菜單項“線色”的每個子菜單項的“Click”事件中加入相應的代碼來設置當前圈點圖形線條的顏色。比如，要設置為“黃”(其他的圖形線條顏色類似)，則在其相應“Click”事件中加入如下代碼:

Me.ForeColor = vbYellow

(3)圖形線條的寬度設置

圈點圖形線條的寬度設置在進行圈點時必不可少，根據實際多媒體教學中對圈點的需求，一般需要設置圈點圖形線條的寬度為1~9。同樣的，為操作上的便捷性，采用右鍵快捷菜單的方式進行當前圈點圖形線條寬度的設置。其實現方法是:首先通過菜單設計器設計好相關快捷菜單項，如圖2(c)所示，然后在快捷菜單項“線寬”的每個子菜單項的“Click”事件中加入相應的代碼來設置當前圈點圖形線條的寬度。比如，要設置為“3”(其他的圖形線條寬度類似)，則在其相應“Click”事件中加入如下代碼:

Me.DrawWidth = 3

4 圈點圖形的繪制

圈點圖形的繪制，是通過圈點窗體的“MouseDown”、“MouseMove”和“MouseUp”這3個事件聯合實現的。其實現方法是:在點下鼠標左鍵觸發的窗體“MouseDown”事件中獲取當前鼠標的位置作為起始點，在接著不松開鼠標左鍵進行移動觸發的窗體“MouseMove”事件中獲取當前鼠標的位置作為中間點，在最后松開鼠標左鍵觸發的窗體“MouseUp”事件中獲取當前鼠標的位置作為終止點;除涂鴉式圖形外，起始點與中間點確定的圖形為臨時圖形，其采用“XOR”(異或)模式在窗體上繪制，再一次以“XOR”模式繪制同一個圖形即可消除該圖形而不影響窗體的背景圖像，起始點與終止點確定的圖形為最終繪制出的圈點圖形;對涂鴉式圖形，直接在前一點與當前點間繪制一條線段，不再進行消除。下面，將詳細的給出在這3個事件中的具體實現代碼。

(1)在“MouseDown”事件中

If Button = vbLeftButton Then '如果點下鼠標左鍵

bIsDrawing = True '設置為正在繪制(圈點)

iFstX = X : iFstY = Y '起始點取鼠標當前位置

iPreX = X : iPreY = Y '前一點取鼠標當前位置

Me.DrawMode = vbXorPen '以“XOR”模式進行繪制

Select Case sPenStyle '判斷當前的圈點圖形類型

Case \"Doodle\" '若為“涂鴉”

Me.DrawMode = vbCopyPen '以直接模式進行繪制

Me.Line (iPreX， iPreY)-(X， Y) '在前一點與當前點間繪制直線

Case \"Line\" '若為“直線”

Me.Line (iFstX， iFstY)-(iPreX， iPreY) '在起始點與前一點間繪制直線

Case \"Rectangle\" '若為“方框”

Me.Line (iFstX， iFstY)-(iPreX， iPreY)， ， B '在起始點與前一點間繪制方框

Case \"Ellipse\" '若為“橢圓”

If iFstX - iPreX = 0 Then

r = 255

Else

r = Abs(iFstY - iPreY) / Abs(iFstX - iPreX)

End If '計算待繪制橢圓的長軸短軸比

Me.Circle (CLng(iFstX / 2 + iPreX / 2)， CLng(iFstY / 2 + iPreY / 2))， Max(Abs(iFstX - iPreX)， Abs(iFstY - iPreY)) / 2， ， ， ， r '在起始點與前一點間繪制橢圓

End Select

End If

(2)在“MouseMove”事件中

If Button = vbLeftButton And bIsDrawing Then '如果點下鼠標左鍵，并且正在繪制(圈點)

Me.DrawMode = vbXorPen '以“XOR”模式進行繪制

Select Case sPenStyle '判斷當前的圈點圖形類型

Case \"Doodle\" '若為“涂鴉”

Me.DrawMode = vbCopyPen '以直接模式進行繪制

Me.Line (iPreX， iPreY)-(X， Y) '在前一點與當前點間繪制直線

Case \"Line\" '若為“直線”

Me.Line (iFstX， iFstY)-(iPreX， iPreY) '在起始點與前一點間繪制直線，即可消除中間狀態的直線

Me.Line (iFstX， iFstY)-(X， Y) '在起始點與當前點間繪制直線

Case \"Rectangle\" '若為“方框”

Me.Line (iFstX， iFstY)-(iPreX， iPreY)， ， B '在起始點與前一點間繪制方框，即可消除中間狀態的方框

Me.Line (iFstX， iFstY)-(X， Y)， ， B '在起始點與當前點間繪制方框

Case \"Ellipse\" '若為“橢圓”

If iFstX - iPreX = 0 Then

r = 255

Else

r = Abs(iFstY - iPreY) / Abs(iFstX - iPreX)

End If '計算待繪制橢圓的長軸短軸比

Me.Circle (CLng(iFstX / 2 + iPreX / 2)， CLng(iFstY / 2 + iPreY / 2))， Max(Abs(iFstX - iPreX)， Abs(iFstY - iPreY)) / 2， ， ， ， r '在起始點與前一點間繪制橢圓，即可消除中間狀態的橢圓

If iFstX - X = 0 Then

r = 255

Else

r = Abs(iFstY - Y) / Abs(iFstX - X)

End If '計算待繪制橢圓的長軸短軸比

Me.Circle (CLng(iFstX / 2 + X / 2)， CLng(iFstY / 2 + Y / 2))， Max(Abs(iFstX - X)， Abs(iFstY - Y)) / 2， ， ， ， r '在起始點與當前點間繪制橢圓

End Select

iPreX = X : iPreY = Y '前一點取鼠標當前位置

End If

(3)在“MouseUp”事件中

If bIsDrawing Then '如果正在繪制(圈點)

If Button = vbLeftButton Then '如果松開鼠標左鍵

Me.DrawMode = vbCopyPen '以直接模式進行繪制

ElseIf Button = vbRightButton Then '如果松開鼠標右鍵

Me.DrawMode = vbXorPen '以“XOR”模式進行繪制

End If

Select Case sPenStyle '判斷當前的圈點圖形類型

Case \"Doodle\" '若為“涂鴉”

Me.DrawMode = vbCopyPen '以直接模式進行繪制

Me.Line (iPreX， iPreY)-(X， Y) '在前一點與當前點間繪制直線

Case \"Line\" '若為“直線”

Me.Line (iFstX， iFstY)-(X， Y) '在起始點與當前點間繪制直線

Case \"Rectangle\" '若為“方框”

Me.Line (iFstX， iFstY)-(X， Y)， ， B '在起始點與當前點間繪制方框

Case \"Ellipse\" '若為“橢圓”

If iFstX - X = 0 Then

r = 255

Else

r = Abs(iFstY - Y) / Abs(iFstX - X)

End If '計算待繪制橢圓的長軸短軸比

Me.Circle (CLng(iFstX / 2 + X / 2)， CLng(iFstY / 2 + Y / 2))， Max(Abs(iFstX - X)， Abs(iFstY - Y)) / 2， ， ， ， r '在起始點與當前點間繪制橢圓

End Select

bIsDrawing = False '設置為不在繪制(圈點)

End If

5 工具的輔助功能

(1)圈點圖形的擦除

已繪制的各類圈點圖形的擦除，通過快捷菜單項“擦除”(如圖2)的“Click”事件中加入如下代碼實現:

Me.Cls() '清除屏幕，但保留背景圖像

(2)調入白板

調入白板，即把背景圖像替換為全白，這可通過快捷菜單項“白板”(如圖2)的“Click”事件中加入如下代碼實現:

Set Me.Picture = Nothing '去除背景圖像

Me.BackColor = vbWhite '將背景設置為全白

(3)調入黑板

調入黑板，即把背景圖像替換為全黑，同調入白板類似，可通過快捷菜單項“黑板”(如圖2)的“Click”事件中加入如下代碼實現:

Set Me.Picture = Nothing '去除背景圖像

Me.BackColor = vbBlack '將背景設置為全黑

6 工具的啟動與結束

(1)工具的啟動

在PowerPoint中，可以啟動任意的外部應用程序。本工具的啟動，就是利用這一點來實現的。具體實現方法是:在PowerPoint教學課件適當的地方(比如左上角、左下角、右上角或右下角等)放置一個圖形按鈕，并將圖形按鈕對應“動作設置”中的“運行程序”設置為本工具的應用程序名(比如“Punctuator.exe”，必要時需帶上路徑)。這樣，當演示PowerPoint教學課件并需要進行規則圖形圈點時，點擊這個圖形按鈕就開始啟動本規則圖形圈點工具了。

(2)工具的結束

圈點窗體的關閉事實上就意味著本工具的結束，從而返回到PowerPoint教學課件的正常演示。這樣，本工具的結束即可通過快捷菜單項“結束”(如圖2)的“Click”事件中加入如下代碼實現:

Unload Me '卸載(關閉)圈點窗體，從而結束程序

三 結束語

本文設計并利用VB實現了一個規則圈點工具，有效的彌補了在PowerPoint中只能進行涂鴉式畫線圈點的不足。本規則圈點工具的使用，將能大大的提高教師利用PowerPoint課件進行多媒體輔助教學的效率和學生聽課的效果，從而提高教學質量。

參考文獻

[1] 馬力克.用PowerPoint2003制作教學課件[M].上海:華東師范大學出版社，2008.

[2] 仲維俊.Visual Basic 6.0完全自學手冊[M].北京:機械工業出版社，2007.

Design and Implementation of Regular Punctuation Tool for PowerPoint Teaching Courseware

LI Xu-dong

(School of Mathematics Statistics， Zhejiang University of Finance Economics， Hangzhou 310018， China)

Abstract: When teaching with PowerPoint teaching courseware， for better guide to students or emphasizing contents， teachers often use the real-time punctuation function of PowerPoint. However， there is a big limitation and shortage of the real-time punctuation function of PowerPoint: It provides no punctuation function by regular-graphics of line， rectangle， circle and ellipse but only provides punctuation function by doodling. For this reason， a regular punctuation tool for PowerPoint teaching courseware was designed and implemented using VB， which effectively made up for the shortage of PowerPoint. The using of this regular punctuation tool would well improve multimedia aided teaching efficiency of teachers with PowerPoint teaching courseware and the listening effect of students， and therefore it would improve the teaching quality.

Keywords: Computer Aided Instruction; Teaching Courseware; Real-time Punctuation; Regular Punctuation; Tool Software

編輯:山石