首页 >> 读书频道 >> 电脑 >> 用VB制作IE工具条自定义按钮下
 
· 使用VB设计具有动感的命
· 用VB制作IE工具条自定
· 判断某一个连接是否保存在
· 判断某一个连接是否保存在
· 在VB应用程序中巧用DL
· 在VB应用程序中巧用DL
· 禁止在TextBox中输
· 称 访问因特网并调用Ex
· 设计E-mail的接发送
· 启动拨号网络中的连接
· 为树型列表控件中不同标题
· 实现网络连通检测
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:VB 2006-9-18

 

'定义注册表中的主键、子键
Const hKey = HKEY_LOCAL_MACHINE
Const subKey0 = "Software\Microsoft\Internet Explorer\Extensions\"
'把字符串值存入注册表
Private Sub SaveString(hKey As Long, strPath As String, strValue As String, strdata As String)
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(hKey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
End Sub
'从注册表中删除字符串值
Private Function DeleteValue(ByVal hKey As Long, ByVal strPath As String, ByVal strValue As String)
Dim r, keyhand As Long
r = RegOpenKey(hKey, strPath, keyhand)
r = RegDeleteValue(keyhand, strValue)
r = RegCloseKey(keyhand)
End Function
'把设置写入注册表,定义按钮
Public Sub AddBtn2IEtoolbar()
Dim subKey As String
subKey = subKey0 & Trim(Guid) & "\"
Call SaveString(hKey, subKey, "ButtonText", ButtonText)
Call SaveString(hKey, subKey, "Clsid", "{1FBA04EE-3024-11D2-8F1F0000F87ABD16}")
Call SaveString(hKey, subKey, "Default Visible", "Yes")
Call SaveString(hKey, subKey, "Exec", Exec)
Call SaveString(hKey, subKey, "HotIcon", HotIcon)
Call SaveString(hKey, subKey, "Icon", Icon)
Call SaveString(hKey, subKey, "MenuStatusBar", MenuStatusBar)
Call SaveString(hKey, subKey, "MenuText", MenuText)
End Sub
'从注册表中删除自定义按钮
Public Sub DelBtnFromIEtoolbar()
Dim subKey As String
subKey = subKey0 & Trim(Guid) & "\"
Call DeleteValue(hKey, subKey, "ButtonText")
Call DeleteValue(hKey, subKey, "Clsid")
Call DeleteValue(hKey, subKey, "Default Visible")
Call DeleteValue(hKey, subKey, "Exec")
Call DeleteValue(hKey, subKey, "HotIcon")
Call DeleteValue(hKey, subKey, "Icon")
Call DeleteValue(hKey, subKey, "MenuStatusBar")
Call DeleteValue(hKey, subKey, "MenuText")
End Sub
'初始化控件属性
Private Sub UserControl_InitProperties()
m_ButtonText = m_def_ButtonText
m_Exec = m_def_Exec
m_HotIcon = m_def_HotIcon
m_Icon = m_def_Icon
m_MenuText = m_def_MenuText
m_MenuStatusBar = m_def_MenuStatusBar
m_GUID = m_def_GUID
End Sub
'从存储器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
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)
End Sub

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

[ 1 ]
用VB制作IE工具条自定义按钮下 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑