make a VB.Net toolbar for Internet explorer

• Download source files - 89 Kb

Introduction

Five days ago , i searched for an example for IE toolbars in VB.net , but i found only one source code in C# . Please take a look to this article By Pavel Zolnikov before read my article! many people wrote some thread for Pavel for some source code of bands objects in VB because there are many problem in converting this source code from C# to Vb ! im a VB programmer and when i write a new version of this toolbar in VB , i decide to put it in the Code Project for Other people that search for it later ;).

Some source code of IE toolbar in VB.net

make a refrence of bandobject.dll for your form

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 = {"&#1590;", "&#1589;", "&#1579;", "&#1602;", "&#1601;", "&#1594;", "&#1593;", "&#1607;", "&#1582;", "&#1581;", "&#1580;", 
"&#1670;", "&#1588;", "&#1587;", "&#1610;", "&#1576;", "&#1604;", "&#1575;", "&#1578;", "&#1606;", "&#1605;", "&#1705;", "&#1711;", "&#1592;", "&#1591;", "&#1586;", "&#1585;", 
"&#1584;", "&#1583;", "&#1574;", "&#1608;", "&#1662;", "&#1688;", "&#1572;", " 
"}
                
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 = {"&#1590;", "&#1589;", "&#1579;", "&#1602;", "&#1601;", "&#1594;", "&#1593;", "&#1607;", "&#1582;", "&#1581;", "&#1580;", 
"&#1670;", "&#1588;", "&#1587;", "&#1610;", "&#1576;", "&#1604;", "&#1575;", "&#1578;", "&#1606;", "&#1605;", "&#1705;", "&#1711;", "&#1592;", "&#1591;", "&#1586;", "&#1585;", 
"&#1584;", "&#1583;", "&#1574;", "&#1572;", "&#1662;", "&#1688;", "&#1572;", " 
"}
                
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