用VB制作IE工具条自定义按钮

在 VB 中，首先将该用户控件加入“部件”列表中，然后把该控件从“工具箱”拖放到 EXE 工程窗体上，再在窗体上放两个命令按钮，命名为 cmdADD 和 cmdDel，键入以下代码：
Option Explicit
''该 GUID 号码用特殊工具产生
Const theGUID = “{3FA4FB86－E43A－11D4－B3DD－00E006E25C0B}"
Private Sub cmdAdd_Click() ''添加按钮
AddButton1.Guid = theGUID
AddButton1.ButtonText = “控件"
AddButton1.Exec = “http://why100000.at.
china.com"
AddButton1.HotIcon = “C:\Add2IE Toolbar\Add2IEToolbar.exe,101"
AddButton1.Icon = “C:\Add2IE Toolbar\Add2IEToolbar.exe,102"
AddButton1.MenuText = “测试控件"
AddButton1.MenuStatusBar = “测试我制作的 ActiveX 控件"
AddButton1.AddBtn2IEtoolbar ''执行
End Sub
Private Sub cmdDel_Click() ''删除按钮
AddButton1.Guid = theGUID
AddButton1.DelBtnFromIEtoolbar
End Sub
以上代码中，GUID 号可以用 VC＋＋ 6.0 提供的 GUID 生成器工具产生。方法是：运行 VC＋＋ 6.0，打开一个工程，在“Project\Add to Project\Components and Controls\Visual C＋＋ Components\GUID Generator”中，按“Insert”按钮，确定后，先选第 4 项“Registry Format”，再按“Copy”按钮，GUID 生成器就将一个新产生的 GUID 号拷贝到了剪贴板上。
按钮的图标包含在 C:\Add2IE Toolbar\Add2IEToolbar.exe 文件中，101 和 102 是它们的顺序号。按 cmdAdd 按钮，然后打开 IE 浏览器，就会看到 IE 工具条上添加的自定义按钮了。