[轉帖]如何將工具欄建立在當前表單中
你是否一直在思考著(zhù)要在自己制定的表單上方一個(gè)“工具欄”？那么你跟著(zhù)我來(lái)吧，保證你收獲不少。當然如果你有更好的使用經(jīng)驗可不要忘了告訴我！
******************
首先當然是創(chuàng )建工具欄的可視類(lèi)了，至于是怎么創(chuàng )建，好像很多的資料中有說(shuō)明，我就省得長(cháng)篇大論的說(shuō)了。如果你確實(shí)不明白，那么可以參考我已經(jīng)創(chuàng )建的工具欄可視類(lèi)(ToolBar.Vcx)。創(chuàng )建完成了，可要記得你所自定義的工具欄的類(lèi)名(像我的就是“MyToolBar”)哦，以下可是會(huì )要用到的！
指定工具欄類(lèi)的“ShowWindow=1”(必須的，否則的話(huà)工具欄會(huì )?？吭赩F的主窗口中)
還有，最重要的一點(diǎn)，你要在這個(gè)工具欄的可視類(lèi)中添加一個(gè)新的用于保存父表單對象的屬性(oMianform)，通過(guò)該屬性來(lái)引用父表單上所有一切。當然如果你的工具欄上的所有控件地方法并沒(méi)有引用父表單的方法和屬性，你大可不必創(chuàng )建該屬性。不過(guò)這種情況應該很少吧！
在工具欄類(lèi)的“Init”事件中寫(xiě)下如下代碼：
——————————————————
Parameter oform
This.omainform=oform
——————————————————
******************
再來(lái)談?wù)?#8220;表單”的問(wèn)題：
要使表單能夠放一個(gè)工具欄，該表單就必須具有“特殊”的屬性(并不是任何一個(gè)簡(jiǎn)單的表單都可以放置工具欄)，該表單必須具備該屬性：ShowWindow=2(也就是該表單為頂層表單)
******************
再接下了，就是最重要的調用環(huán)節了。
如果你在進(jìn)行表單設計時(shí)，想通過(guò)添加其它的的可視類(lèi)的方法往表單中添加你所自定義工具欄類(lèi)，那么VF就會(huì )提示你是否在當前的表單中是否再添加一個(gè)新的表單(也就是將當前的表單對象變?yōu)橐粋€(gè)表單集的成員)，我勸你不要這么做了，因為這根本就行不通，且不說(shuō)不好控制，關(guān)鍵是你所定義的工具欄不會(huì )停放在你所指定的表單中(它如果“Dock”的話(huà)，會(huì )停放到VF的主窗口中)。怎么解決了，用如下的辦法吧：
1、在你的表單中增加一個(gè)新的屬性(oToolbar)，該屬性主要用于存儲工具欄對象；
2、在表單的“Activate”事件中添加如下的代碼：
——————————————————
showtoolbar=Vartype(Thisform.otoolbar)
If showtoolbar#"O" And showtoolbar#"X" &&判斷工具欄對象是否創(chuàng )建并且不是被釋放了
Set Classlib To Toolbar Additive &&這里的“Toolbar”是存放工具欄可視類(lèi)的類(lèi)庫文件名
This.otoolbar=Createobject("MyToolBar",This) &&這里的“MyToolBar”是你定義的工具欄類(lèi)名
This.otoolbar.Show &&顯示工具欄
This.otoolbar.Dock(0) &&將工具欄停放至窗口的頂端
Release Classlib Toolbar &&釋放類(lèi)庫文件
Endif
