为 Internet Explorer 创建 VB.Net 工具栏

• 下载源代码文件 - 89 Kb

引言

五天前，我搜索了 VB.net 中 IE 工具栏的示例，但只找到了一个 C# 源代码。请先阅读这篇文章，作者是Pavel Zolnikov，再阅读我的文章！ 很多人给 Pavel 发送了线程，询问关于 VB 中带对象的源代码，因为将 C# 源代码转换为 Vb 存在很多问题！ 我是一名 VB 程序员，当我用 VB 编写这个工具栏的新版本时，我决定把它放在 Code Project 上，以便以后搜索它的人使用；)。

 

VB.net 中 IE 工具栏的一些源代码

 

为您的窗体引用 bandobject.dll

Imports System
Imports System.ComponentModel
Imports 
System.Windows.Forms
Imports BandObjectLib
Imports 
System.Runtime.InteropServices

<Guid("AE07101B-46D4-4a98-AF68-0333EA26E113"), 
_
BandObjectAttribute("Shokouh Bar", BandObjectStyle.Horizontal Or 
BandObjectStyle.ExplorerToolbar Or BandObjectStyle.TaskbarToolBar, 
HelpText:="Shows bar that says hello.")> _
Public Class 
SampleBars
    Inherits BandObject

this application make a Persian text box for an online dictionary too 
,

    Public Function e2f(ByVal key As Integer, ByVal shift As 
Boolean) As String
        Try

            
            
Dim str As 
String
            str 
= 
Chr(key)
            
            If shift = 
False 
Then
                
Dim fa() As String = {"ض", "ص", "ث", "ق", "ف", "غ", "ع", "ه", "خ", "ح", "ج", 
"چ", "ش", "س", "ي", "ب", "ل", "ا", "ت", "ن", "م", "ک", "گ", "ظ", "ط", "ز", "ر", 
"ذ", "د", "ئ", "و", "پ", "ژ", "ؤ", " 
"}
                
Dim en() As String = {"Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", 
Chr(219), Chr(221), "A", "S", "D", "F", "G", "H", "J", "K", "L", Chr(186), 
Chr(222), "Z", "X", "C", "V", "B", "N", "M", Chr(188), Chr(192), Chr(220), 
"<", " 
"}
                
If System.Array.IndexOf(en, str) > -1 
Then
                    
e2f = fa.GetValue(System.Array.IndexOf(en, 
str))
                
End If
            
ElseIf shift = True 
Then
                
Dim fa() As String = {"ض", "ص", "ث", "ق", "ف", "غ", "ع", "ه", "خ", "ح", "ج", 
"چ", "ش", "س", "ي", "ب", "ل", "ا", "ت", "ن", "م", "ک", "گ", "ظ", "ط", "ز", "ر", 
"ذ", "د", "ئ", "ؤ", "پ", "ژ", "ؤ", " 
"}
                
Dim en() As String = {"Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", 
Chr(219), Chr(221), "A", "S", "D", "F", "G", "H", "J", "K", "L", Chr(186), 
Chr(222), "Z", "X", "C", "V", "B", "N", "M", Chr(188), Chr(192), Chr(220), 
"<", " 
"}
                
If System.Array.IndexOf(en, str) > -1 
Then
                    
e2f = fa.GetValue(System.Array.IndexOf(en, 
str))
                
End If
            End 
If
        Catch ex As Exception
        End Try
    End Function

请在解压缩源代码后，在记事本中打开“Register/register.vcproj”，并将 samplebars.dll 的路径替换为您自己的路径

最后，如果您想支持全球和平运动，请访问我的网站：www.BlueAppleWorld.com

尽情享受吧；)