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

西安市含光门外中原小区1号楼3单元702(710068) 张庆

Private Sub UserControl_Resize
UserControl.Width = 540
UserControl.Height = 540
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty(“ButtonText",
m_ButtonText, m_def_ButtonText)
Call PropBag.WriteProperty(“Exec", m_Exec,
m_def_Exec)
Call PropBag.WriteProperty(“HotIcon",
m_HotIcon, m_def_HotIcon)
Call PropBag.WriteProperty(“Icon",
m_Icon, m_def_Icon)
Call PropBag.WriteProperty(“MenuText",
m_MenuText, m_def_MenuText)
Call PropBag.WriteProperty(“MenuStatusBar",
m_MenuStatusBar, m_def_MenuStatusBar)
Call PropBag.WriteProperty(“GUID"m_GUID,
m_def_GUID)
End Sub
’获取按钮文本
Public Property Get ButtonText As String
ButtonText = m_ButtonText
End Property
’设置按钮文本
Public Property Let ButtonText(ByVal New_ButtonText As String)
m_ButtonText = New_ButtonText
PropertyChanged “ButtonText"
End Property
’获取当前按钮执行目标
Public Property Get Exec As String
Exec = m_Exec
End Property
’设置当前按钮执行目标
Public Property Let Exec(ByVal New_Exec As String)
m_Exec = New_Exec
PropertyChanged “Exec"
End Property
’获取鼠标移上按钮时显示图标
Public Property Get HotIcon As String
HotIcon = m_HotIcon
End Property
’设置鼠标移上按钮时显示图标
Public Property Let HotIcon(ByVal New_HotIcon As String)
m_HotIcon = New_HotIcon
PropertyChanged “HotIcon"
End Property
’获取按钮正常显示图标
Public Property Get Icon As String
Icon = m_Icon
End Property
’设置按钮正常显示图标
Public Property Let Icon(ByVal New_Icon As String)
m_Icon = New_Icon
PropertyChanged “Icon"
End Property
’获取菜单项显示文本
Public Property Get MenuText As String
MenuText = m_MenuText
End Property
’设置菜单项显示文本
Public Property Let MenuText(ByVal New_MenuText As String)
m_MenuText = New_MenuText
PropertyChanged “MenuText"
End Property
’获取菜单项注释文本
Public Property Get MenuStatusBar As String
MenuStatusBar = m_MenuStatusBar
End Property
’设置菜单项注释文本
Public Property Let MenuStatusBar(ByValNew_Menu
StatusBar As String)
m_MenuStatusBar = New_MenuStatusBar
PropertyChanged “MenuStatusBar"
End Property
Public Property Get GUID As String
GUID = m_GUID
End Property
Public Property Let GUID(ByVal New_GUID As String)
m_GUID = New_GUID
PropertyChanged “GUID"
End Property
’显示“有关”对话框
Public Sub ShowAboutBox
frmAbout.Show vbModal
Unload frmAbout
Set frmAbout = Nothing
End Sub
该Control控件提供了 7 个属性和2 个思路方法
Control控件属性:
●GUID:个在注册表唯标识应用软件Software数字序列共36位；
●ButtonText:按钮上显示文本；
●Exec:按钮执行目标为可执行文件或超文本链接等；
●HotIcon:鼠标移上按钮时显示图标取自 EXE 文件或 DLL 文件；
●Icon:按钮正常显示图标取自 EXE 文件或 DLL 文件；
●MenuText:在 IE “工具”菜单中显示菜单项；
●MenuStatusBar:IE“工具”菜单项解释显示在底部状态条上
Control控件思路方法:
●AddBtn2IEtoolbar:添加自定义按钮；
●DelBtnFromIEtoolbar:删除自定义按钮
使用思路方法(以VB为例)
在 VB 中首先将该用户Control控件加入“部件”列表中然后把该Control控件从“工具箱”拖放到 EXE 工程窗体上再在窗体上放两个命令按钮命名为 cmdADD 和 cmdDel键入以下代码:
Option Explicit
'该 GUID 号码用特殊工具产生
Const theGUID = “{3FA4FB86－E43A－11D4－B3DD－00E006E25C0B}"
Private Sub cmdAdd_Click '添加按钮
AddButton1.Guid = theGUID
AddButton1.ButtonText = “Control控件"
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 = “测试Control控件"
AddButton1.MenuStatusBar = “测试我制作 ActiveX Control控件"
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 工具条上添加自定义按钮了

延伸阅读

• 2011-9-19-- 自定义控件,第二章 .Net 控件开发(WebForm) 开发自定义复合控件(2) 重写属性和方法以及事件冒泡
• 2010-12-15-- 自定义函数,PHP项目中会经常用到的自定义函数收集
• 2010-12-15-- 自定义控件,让.Net验证控件与自定义验证合作无间
• 2010-12-9-- js自定义函数,js RuntimeObject（） 获取ie里面自定义函数或者属性的集合
• 2011-4-26-- 自定义函数,mysql建立自定义函数的问题
• 2011-4-13-- 自定义函数,Hive中实现自定义函数UDF及打包
• 2009-1-15-- vb自定义函数:VB自定义数据结构的传输转换
• 2009-1-15-- vb自定义光标:用VB创建自定义的光标
• 2009-2-12-- 自定义控件:AjaxPanel自定义控件实现无刷新页面数据交互
• 2009-2-12-- 自定义控件的属性:控件自定义属性类型之状态维护