| Forum: VB.NET |
Thema:
Re: dynamische Toolbar klappt nicht |
Von:
Mario Meir-Huber (
18.09.2005 21:40) |
Hallo!
Du hast lediglich vergessen, die ToolBar zur Form hinzuzufügen. Dies
geschieht folgendermaßen:
Me.Controls.Add(ToolBar2)
Kompletter Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyToolBar(Me)
End Sub
Public Sub MyToolBar(ByVal InstForm1)
Dim ToolBar2 As New ToolBar
Dim ImageList1 As New ImageList
Dim myImage As System.Drawing.Image = Image.FromFile("D:\Daten\Programmierung\icons\OOFL.ico")
ImageList1.Images.Add(myImage)
Dim ToolBarButton1 As New ToolBarButton
ToolBar2.Buttons.Add(ToolBarButton1)
'ToolBar2.ImageList = ImageList1
ToolBarButton1.ImageIndex = 0
Me.Controls.Add(ToolBar2)
End Sub
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
