（作者：朱詩(shī)兵　2001年03月06日 16:45）

　　在authorware多媒體應(yīng)用程序的設(shè)計(jì)過(guò)程中，有時(shí)authorware不能實(shí)現(xiàn)一些特殊的功能，需要使用ole技術(shù)來(lái)擴(kuò)展authorware的功能。

　　ole對(duì)象的鏈接與嵌入是引入其它應(yīng)用程序設(shè)計(jì)的對(duì)象（如文本、圖形、數(shù)字電影等）到authorware文件里的一種方法。本文介紹authorware中如何調(diào)用其它應(yīng)用程序創(chuàng)建的ole對(duì)象，同時(shí)給出具體實(shí)例說(shuō)明ole對(duì)象的應(yīng)用。

　　ole對(duì)象的創(chuàng)建

　　打開(kāi)一個(gè)ole應(yīng)用程序來(lái)創(chuàng)建ole對(duì)象的具體步驟如下所述：

　　1.打開(kāi)需要插入ole對(duì)象圖標(biāo)的展示窗口。

　　可以插入ole對(duì)象的圖標(biāo)有“顯示”圖標(biāo)、“交互作用”圖標(biāo)、“框架”圖標(biāo)等，它們能夠插入圖形、文本和表格等ole對(duì)象。

　　2.選擇authorware中的“insert| ole object”選單選項(xiàng)，打開(kāi)“insert object”對(duì)話(huà)框。

　　3.在該對(duì)話(huà)框中，顯示的是當(dāng)前系統(tǒng)所支持的所有對(duì)象類(lèi)型的列表，我們可以在該列表中選擇合適的對(duì)象類(lèi)型打開(kāi)創(chuàng)建該對(duì)象的應(yīng)用程序。

　　如果需要直接引入對(duì)象，則可以選擇該對(duì)話(huà)框中的“從文件創(chuàng)建”選項(xiàng)，在該對(duì)話(huà)框中選擇文件，將文件中的內(nèi)容直接插入到authorware中作為插入的對(duì)象。

　　插入后的對(duì)象，當(dāng)用鼠標(biāo)雙擊它時(shí)，會(huì)自動(dòng)打開(kāi)編輯該文件的應(yīng)用程序來(lái)修改該對(duì)象。

　　插入的ole對(duì)象同其它引入的對(duì)象相同，用戶(hù)可以在展示窗口中改變它的位置和大小。如果想繼續(xù)修改該ole對(duì)象，用戶(hù)只需要用鼠標(biāo)雙擊該ole對(duì)象，則authorware會(huì)自動(dòng)打開(kāi)創(chuàng)建該對(duì)象的應(yīng)用程序進(jìn)行編輯。

　　使用ole對(duì)象的實(shí)例

　　在authorware中嵌入ole對(duì)象不但可以在authorware中顯示更多類(lèi)型的文件，而且還同時(shí)嵌入了生成這個(gè)ole對(duì)象的控制方法。下面給出一個(gè)具體實(shí)例，詳細(xì)介紹ole對(duì)象在authorware的使用。

　　1.在流程線(xiàn)上添加一個(gè)顯示圖標(biāo)，命名為“powerpoint ole”。雙擊打開(kāi)該顯示圖標(biāo)，選擇“insert|ole object...”選單選項(xiàng)彈出的選擇ole對(duì)象對(duì)話(huà)框。這里準(zhǔn)備直接引入powerpoint對(duì)象，選擇對(duì)話(huà)框中的“從文件創(chuàng)建”選項(xiàng)，在對(duì)話(huà)框中單擊“瀏覽（b）...”按鈕選擇文件，將文件中的內(nèi)容直接插入到authorware中作為插入的對(duì)象，則把從文件創(chuàng)建的ole對(duì)象載入到authorware中。

　　單擊展示窗口中的ole對(duì)象，選擇“edit|演示文稿ole object”選單選項(xiàng)。在選項(xiàng)中上面三個(gè)選單命令是該ole對(duì)象提供的三個(gè)動(dòng)作，選擇“attributes”選單命令，彈出ole對(duì)象屬性窗口。

　　這里一定要選擇“package as ole object”選項(xiàng)，作為ole對(duì)象打包；若不選擇該選項(xiàng)，則無(wú)法控制該ole對(duì)象。知道控制該ole對(duì)象的動(dòng)作名稱(chēng)后，就可以使用前面介紹過(guò)的ole處理函數(shù)來(lái)對(duì)該ole對(duì)象進(jìn)行交互控制。

　　2.在“powerpoint ole”顯示圖標(biāo)下添加一個(gè)交互圖標(biāo)，命名為“ole交互”。然后在其右側(cè)放置三個(gè)計(jì)算圖標(biāo)，分別命名為“放映”、“編輯”和“打開(kāi)”，并且響應(yīng)類(lèi)型都為按鈕響應(yīng)（這里按鈕屬性為默認(rèn)狀態(tài)）。最后雙擊這三個(gè)計(jì)算圖標(biāo)，分別輸入內(nèi)容。

　　3.保存該文件，然后運(yùn)行。此時(shí)單擊“放映”按鈕，則開(kāi)始放映該powerpoint文稿，其效果與在powerpoint環(huán)境中完全一樣；單擊“編輯”按鈕，則可以編輯該powerpoint文稿；單擊“打開(kāi)”按鈕，則運(yùn)行powerpoint、打開(kāi)該powerpoint文稿。這樣就實(shí)現(xiàn)了powerpoint文稿在authorware中的應(yīng)用，對(duì)于其它類(lèi)型的ole對(duì)象其使用過(guò)程與此類(lèi)似。

　　小結(jié)

　　雖然authorware提供了對(duì)各種流行多媒體文件類(lèi)型素材的導(dǎo)入和顯示，但對(duì)于不斷發(fā)展變化的計(jì)算機(jī)領(lǐng)域，這些支持的文件類(lèi)型就顯得少了一些。因此在authorware中嵌入ole對(duì)象擴(kuò)展了authorware多媒體功能。

authorware視頻窗口的放大

在authorware中提供有數(shù)字化電影圖標(biāo)，支持avi、mpeg、flc/fli和quick time等格式，但是數(shù)字化電影圖標(biāo)不能進(jìn)行視頻窗口的縮放。如果再配合函數(shù)和變量，在authorware中就可以方便地實(shí)現(xiàn)視頻窗口的放大。

利用photoshop等軟件，按照視頻的尺寸設(shè)計(jì)好窗口和控制按鈕界面，包括：播放、停止和放大三個(gè)按鈕。 

按照?qǐng)D1所示建立主流程，按鈕響應(yīng)為視頻播放。再建立“視頻播放”群組的內(nèi)容（見(jiàn)圖1），視頻交互的兩個(gè)按鈕響應(yīng)分別為“放大”和“停止”。

分支圖標(biāo)“視頻”下有兩個(gè)分支“視頻1”和“視頻1大”，分支圖標(biāo)的設(shè)置為將“branch”域設(shè)為“to calculated path”，計(jì)算表達(dá)式中輸入“false”，表示兩個(gè)分支都不經(jīng)過(guò)，而直接向下走。

3. 數(shù)字化電影圖標(biāo)“視頻1”和“視頻1大”均鏈接同一個(gè)視頻文件，屬性對(duì)話(huà)誆 “視頻1”中“start frame”域中為自定義變量x，“視頻1大”中“start frame”域中為自定義變量x1；“視頻1”的尺寸為原大小，而“視頻1大”為全屏（或所需尺寸）。注意：關(guān)于視頻播放尺寸的變化有一個(gè)技巧，數(shù)字化電影圖標(biāo)引入視頻文件后運(yùn)行，當(dāng)開(kāi)始播放視頻時(shí)，按“ctrl+p”暫停，用鼠標(biāo)單擊視頻畫(huà)面，視頻畫(huà)面周?chē)鷮⒊霈F(xiàn)八個(gè)控點(diǎn)，用鼠標(biāo)拉動(dòng)其中的控點(diǎn)，可以改變其尺寸。同時(shí)，其位置也可以改變，尤其是可以用鍵盤(pán)上的箭頭鍵逐個(gè)點(diǎn)進(jìn)行移動(dòng)，這對(duì)于視頻畫(huà)面的精確定位特別有用。

計(jì)算圖標(biāo)“視頻參數(shù)初始化”中輸入以下內(nèi)容：

x:=1

x1:=1

y:=medialength@"視頻1"

mediaplay(iconid@"視頻1")

表示將“視頻1”和“視頻1大”兩個(gè)視頻的播放起始幀均設(shè)為第一幀，播放結(jié)束幀均為視頻的長(zhǎng)度，然后開(kāi)始播放原尺寸的“視頻1”。

視頻交互中的放大響應(yīng)群組中的內(nèi)容見(jiàn)圖2。計(jì)算圖標(biāo)“放大”中輸入以下內(nèi)容：

 x1:=mediaposition@"視頻1"

eraseicon(iconid@"視頻1")

mediaplay(iconid@"視頻1大")

表示將“視頻1”的當(dāng)前幀設(shè)為“視頻1大”的播放起始幀，擦除“視頻1”之后再播放“視頻1大”。

“縮小”交互圖標(biāo)下的“縮小響應(yīng)”設(shè)為“hot object”響應(yīng)類(lèi)型，即單擊“視頻1”全屏畫(huà)面后，使用原尺寸播放。“縮小響應(yīng)”中的內(nèi)容如下：

x:=mediaposition@"視頻1大"

eraseicon(iconid@"視頻1大")

mediaplay(iconid@"視頻1")

“停止”中的內(nèi)容為：eraseicon(iconid@"視頻1")。

利用以上的思路，可以進(jìn)一步實(shí)現(xiàn)標(biāo)準(zhǔn)的媒體播放器功能。

用vb6實(shí)現(xiàn)隱藏和顯示“程序”選單

（中國(guó)計(jì)算機(jī)報(bào) 王永耀　2001年10月23日 11:44）

很多系統(tǒng)安全軟件如“超級(jí)兔子”、“系統(tǒng)優(yōu)化大師”等，都有一項(xiàng)很酷的功能，就是能夠自由隱藏和顯示“開(kāi)始”選單中“程序”各項(xiàng)的功能。假如在我們的程序中也能實(shí)現(xiàn)這樣的功能，是不是會(huì)為程序添色不少呢？其實(shí)，我們用vb可以輕松實(shí)現(xiàn)這樣的功能。

實(shí)現(xiàn)方法

其中最重要的一點(diǎn)就是：在win 98中，“程序”項(xiàng)的顯示和隱藏可以通過(guò)改變c:/windows/start menu/programs(注：這里假設(shè)您的windows安裝在c盤(pán))文件夾下各文件或文件夾的屬性來(lái)實(shí)現(xiàn)。要隱藏“程序”中的項(xiàng)目，只要相應(yīng)的文件或文件夾屬性設(shè)成“隱藏”；要顯示項(xiàng)目，也只要去掉相應(yīng)對(duì)象的“隱藏”屬性即可。那么，怎樣控制文件的屬性呢？在vb中，api函數(shù)有很重要的作用，可以實(shí)現(xiàn)很多強(qiáng)大的功能。其中，getfileattributes函數(shù)可以得到文件的屬性、setfileattributes函數(shù)可以更改文件屬性、getwindowsdirectory函數(shù)可以得到系統(tǒng)目錄，有了這三個(gè)api“法寶”坐鎮(zhèn)，程序?qū)崿F(xiàn)就很容易了。當(dāng)程序啟動(dòng)時(shí)調(diào)用getwindowsdirectory函數(shù)得到系統(tǒng)目錄的路徑，再用dir函數(shù)在一個(gè)列表框中列出“系統(tǒng)目錄/start menu/programs ”目錄下的所有文件和文件夾，并調(diào)用getfileattributes函數(shù)來(lái)獲得各文件和文件夾的屬性，若屬性為“隱藏”，就把相應(yīng)的列表項(xiàng)勾選（表示此項(xiàng)已隱藏）。在列表框中勾選你想要隱藏的項(xiàng)目，接著調(diào)用setfileattributes函數(shù)，將勾選項(xiàng)相應(yīng)的文件或文件夾的屬性改為“隱藏”（表示將其隱藏），去掉未勾選項(xiàng)相應(yīng)的文件或文件夾的“隱藏”屬性。這樣，一切就搞定了。

程序代碼及講解

首先新建一個(gè)project工程，并在form1中建立一個(gè)列表框list1,其style屬性為：checkbox(復(fù)選框式樣);四個(gè)命令按鈕：command1、command2、command3和command4。

界面布局如圖所示：

具體程序代碼如下：

'declarations部分，聲明api函數(shù)

private declare function getfileattributes lib "kernel32" alias "getfileattributesa" (byval lpfilename as string) as long

private declare function setfileattributes lib "kernel32" alias "setfileattributesa" (byval lpfilename as string, byval dwfileattributes as long) as long

private declare function getwindowsdirectory lib "kernel32" alias "getwindowsdirectorya" (byval lpbuffer as string, byval nsize as long) as long

'聲明變量

dim i as integer

dim lngpath as long

dim tmppath as string

dim strpath as string

dim strdir as string

'定義子過(guò)程1，用于顯示“程序”選單各項(xiàng)，并確定是否已經(jīng)隱藏

sub getfileattr()

i = 0

tmppath = space(50)

lngpath = getwindowsdirectory(tmppath, len(tmppath))

strpath = left(tmppath, lngpath) && "/start menu/programs/"

'programs路徑

strdir = dir(strpath, vbdirectory + vbnormal + vbhidden + vbarchive + vbreadonly + vbsystem)

'將所有程序項(xiàng)目添加到列表框中

do while strdir ＜＞ ""

if strdir ＜＞ "." and strdir ＜＞ ".." then

list1.additem strdir

i = i + 1

if (getfileattributes(strpath && strdir) and vbhidden) then

'得到文件或文件夾屬性，若為隱藏則勾選

list1.selected(i - 1) = true

end if

end if

strdir = dir

loop

'下一個(gè)文件或路徑

end sub

'定義子過(guò)程2

sub setfileattr()

tmppath = space(50)

lngpath = getwindowsdirectory(tmppath, len(tmppath))

strpath = left(tmppath, lngpath) && "/start menu/programs/"

'得到“programs”路徑

for i = 0 to (list1.listcount - 1)

if list1.selected(i) = true then

'勾選則隱藏，反之則顯示

setfileattributes strpath + list1.list(i), vbhidden

else

setfileattributes strpath + list1.list(i), vbnormal

end if

next i

end sub

private sub command1_click()

call setfileattr

'調(diào)用子過(guò)程2改變文件屬性

end sub

private sub command2_click()

end

end sub

private sub command3_click()

for i = 0 to list1.listcount - 1

'全選

list1.selected(i) = true

next i

end sub

private sub command4_click()

for i = 0 to list1.listcount - 1

'全否

list1.selected(i) = false

next i

end sub

private sub form_load()

form1.caption = "隱藏和顯示程序選單"

command1.caption = "確定"

command2.caption = "退出"

command3.caption = "全選"

command4.caption = "全否"

call getfileattr

'調(diào)用子過(guò)程1，得到文件屬性并初始化列表框各項(xiàng)

end sub

按f5運(yùn)行后，程序下的文件和文件夾會(huì)一個(gè)不漏地顯示在列表框里，再勾選幾個(gè)，按“確認(rèn)”,打開(kāi)“開(kāi)始選單”的“程序”，剛才勾選的幾個(gè)不見(jiàn)了。再次運(yùn)行程序，看看列表框里，是不是剛才勾選的現(xiàn)在依然勾選著呢？那就是告訴你，“程序”選單中已經(jīng)隱藏了這些項(xiàng)。通過(guò)修改文件屬性還可以完成許多的功能，如管理“發(fā)送”(send to)、“收藏夾”(favorites)等,就看你如何靈活運(yùn)用了