Anleitung zur Erstellung eines DeskBands mit VB
1.
Verweise (siehe auch bei Robert und Hannes)
Eine Beschreibung für C# ist hier
http://www.codeproject.com/KB/shell/dotnetbandobjects.aspx
Der VB-SourceCode für das Projekt ist hier
http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/4ed07f1a-97b7-45e5-8cb5-8aef58f50508 - a3fadcd1-d9f7-4b4f-814b-8514f75de4a2
2.
Anleitung
2.1. Die Dateien hier
Download source files - 118 Kb downloaden.
2.2. Daraus die Datei
BandObjectsLib.dll und Interop.SHDocVw.dll im Global Assembly Cache registrieren. Wie das geht steht hier:
http://msdn.microsoft.com/de-de/library/ex0ss12c.aspx
2.3. In Visual Studio ein neues Projekt vom Typ Klassenbibliothek erstellen und den Code einfügen:
Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports BandObjectsLib
Imports System.Runtime.InteropServices
Namespace SampleBars
'<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Guid("17A34106-412A-4f07-83A9-456377F0F4C8"), BandObject("Hello test", BandObjectStyle.Horizontal Or BandObjectStyle.ExplorerToolbar Or BandObjectStyle.TaskbarToolBar, HelpText:="Shows bar test")> _
Public Class testoolbar
Inherits BandObject
Private button1 As System.Windows.Forms.Button
Private components As System.ComponentModel.Container = Nothing
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If (Not (components) Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private Sub InitializeComponent()
Me.button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
' button1
'
Me.button1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me.button1.BackColor = System.Drawing.SystemColors.HotTrack
Me.button1.ForeColor = System.Drawing.SystemColors.Info
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(150, 24)
Me.button1.TabIndex = 0
Me.button1.Text = "Say test"
AddHandler button1.Click, AddressOf Me.button1_Click
'
' HelloWorldBar
'
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.button1})
Me.MinSize = New System.Drawing.Size(150, 24)
Me.Name = "Helloteste"
Me.Size = New System.Drawing.Size(150, 24)
Me.Title = "Helloteste"
Me.ResumeLayout(False)
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show("test ....")
End Sub
End Class
End Namespace
2.4 Im Modul AssemblyInfo.vb muss hier <Assembly: ComVisible(True)> stehen.
2.5. Daraus eine DLL-Datei erstellen.
2.6. Ein Schlüsselpaar erstellen
http://msdn.microsoft.com/de-de/library/6f05ezxy(v=VS.80).aspx
2.7. Die unter 2.4. erzeugte Datei mit dem unter 2.5. generierten starken Namen signieren:
http://msdn.microsoft.com/de-de/library/xc31ft41(v=VS.80).aspx
2.8. Selbige (die DLL) ebenfalls im Global Assembly Cache registrieren.
2.9. Mit dem Assembly Registration-Tool die erforderlichen Einträge bzgl. der neuen DLL in der Registrierung erstellen:
http://msdn.microsoft.com/de-de/library/tzat5yw6(VS.80).aspx
2.10. Im InternetExplorer kann nun über Extras\Symbolleisten die neue Leiste hinzugefügt werden.
Thorsten Dörfler gebührt alle Ehre, er hat mir bei diesem Projekt an den entscheidenden Punkten, an denen ich nicht mehr weiterkam, immer sofort die richtige Lösung präsentiert! Vielen Dank Thorsten!
Natürlich auch Danke an Robert und Hannes für die nützlichen Links und alle anderen, welche sich Gedanken zu diesem Fall gemacht haben!
DeskBand
