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<BR>Imports System.ComponentModel<BR>Imports 
System.Windows.Forms<BR>Imports BandObjectLib<BR>Imports 
System.Runtime.InteropServices

<Guid("AE07101B-46D4-4a98-AF68-0333EA26E113"), 
_<BR>BandObjectAttribute("Shokouh Bar", BandObjectStyle.Horizontal Or 
BandObjectStyle.ExplorerToolbar Or BandObjectStyle.TaskbarToolBar, 
HelpText:="Shows bar that says hello.")> _<BR>Public Class 
SampleBars<BR>    Inherits BandObject</CODE><P></P>
<P>this application make a Persian text box for an online dictionary too 
,</P><CODE lang=vbnet>
<P>    Public Function e2f(ByVal key As Integer, ByVal shift As 
Boolean) As String<BR>        Try</P>
<P><BR>            <BR>            
Dim str As 
String<BR>            str 
= 
Chr(key)<BR>            </P>
<P>            If shift = 
False 
Then<BR>                
Dim fa() As String = {"ض", "ص", "ث", "ق", "ف", "غ", "ع", "ه", "خ", "ح", "ج", 
"چ", "ش", "س", "ي", "ب", "ل", "ا", "ت", "ن", "م", "ک", "گ", "ظ", "ط", "ز", "ر", 
"ذ", "د", "ئ", "و", "پ", "ژ", "ؤ", " 
"}<BR>                
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), 
"<", " 
"}<BR>                
If System.Array.IndexOf(en, str) > -1 
Then<BR>                    
e2f = fa.GetValue(System.Array.IndexOf(en, 
str))<BR>                
End If<BR>            
ElseIf shift = True 
Then<BR>                
Dim fa() As String = {"ض", "ص", "ث", "ق", "ف", "غ", "ع", "ه", "خ", "ح", "ج", 
"چ", "ش", "س", "ي", "ب", "ل", "ا", "ت", "ن", "م", "ک", "گ", "ظ", "ط", "ز", "ر", 
"ذ", "د", "ئ", "ؤ", "پ", "ژ", "ؤ", " 
"}<BR>                
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), 
"<", " 
"}<BR>                
If System.Array.IndexOf(en, str) > -1 
Then<BR>                    
e2f = fa.GetValue(System.Array.IndexOf(en, 
str))<BR>                
End If<BR>            End 
If</P>
<P>        Catch ex As Exception</P>
<P>        End Try</P>
<P>    End Function</P>

Please after unzipping the source file, open " Register/register.vcproj " in the notepad and replace the path of samplebars.dll whth your own path

And at last , please visit of my website , if you want to support a global movement for peace : www.BlueAppleWorld.com

enjoy it ;)