用VB制作IE工具條自定義按鈕

2019-11-18 17:39:27

字體：大中小

供稿：網(wǎng)友

現(xiàn)在，有許多軟件安裝后會在IE瀏覽器的工具條上添加一個自定義按鈕，為用戶運行程序提供了方便，如“網(wǎng)絡(luò)螞蟻”、“金山詞霸2000”等等。實際上添加這個自定義按鈕并不難，只要找到了它在注冊表中的位置和有關(guān)參數(shù)，通過手工或程序都可以輕易完成。而最方便的辦法就是調(diào)用現(xiàn)成的ActiveX控件來完成這個功能，但Windows似乎沒有提供這種控件。下面介紹如何開發(fā)和使用這種自定義控件。
實現(xiàn)方法
要添加這種自定義按鈕，需要在Windows注冊表的HKEY_LOCAL_MACHINE/Software/Microsoft/InternetExplorer/Extensions子鍵下建立一個GUID項，然后在注冊表的右欄建立相應(yīng)的參數(shù)并賦值。這些參數(shù)及其含義如下：
●ButtonText：自定義按鈕上顯示的文本字符串；
●Clsid：IE工具條的類標(biāo)識碼，為“{1FBA04EE－3024－11D2－8F1F0000F87ABD16}”；
●DefaultVisible：自定義按鈕是否可見，一般為“Yes"；
●Exec：自定義按鈕執(zhí)行的目標(biāo)，為可執(zhí)行文件或超文本鏈接等；
●HotIcon：鼠標(biāo)移上按鈕時顯示的圖標(biāo)，一般取自EXE文件或DLL文件；
●Icon：按鈕正常顯示的圖標(biāo)，一般取自EXE文件或DLL文件；
●MenuText：在IE的“工具”菜單中顯示的菜單項；
●MenuStatusBar：IE的“工具”菜單項的注釋，在狀態(tài)條上顯示。
制作過程
在VB5.0/6.0下建立新的“ActiveX控件”工程。
首先，給控件AddButton的Picture屬性添加一個微型Icon圖片，這樣當(dāng)使用該控件時，會在控件工具箱上顯示這個小圖標(biāo)。然后，再在設(shè)計窗口上放置一個image控件，給它也設(shè)置一個小圖片，使用該控件時，會在其Form上顯示該控件的外觀。最后，調(diào)出代碼編輯窗口，在該窗口中鍵入以下代碼，其中API函數(shù)調(diào)用的代碼可以直接從“API文本瀏覽器”中獲得。
OptionExplicit
……'DefaultPrivateSubUserControl_ReadProperties(PropBag aspropertyBag)
m_ButtonText=PropBag.ReadProperty
(“ButtonText",m_def_ButtonText)
m_Exec=PropBag.ReadProperty(“Exec",
m_def_Exec)
m_HotIcon=PropBag.ReadProperty(“HotIcon",
m_def_HotIcon)
m_Icon=PropBag.ReadProperty(“Icon",
m_def_Icon)
m_MenuText=PropBag.ReadProperty
(“MenuText",m_def_MenuText)
m_MenuStatusBar=PropBag.ReadProperty
(“MenuStatusBar",m_def_MenuStatusBar)
m_GUID=PropBag.ReadProperty(“GUID",
m_def_GUID)
EndSub->

上一篇：菜單項的動態(tài)裝入

下一篇：利用timeGetTime函數(shù)更精準地計算差