Zitat:

Mm, muss man Schleifen nehmen? Das braucht doch sicher sehr viel Rechenzeit. Es könnten halt tausende Buttons sein, die man eigentlich nicht alle durchgehen müsste. Ich brauche immer nur 1 bestimmten Button und weiß ja wie er heißt^^

  Public Sub assignShortcutInWidget(str_pressedButtonNumber As String, filePath _
    As String)
    Try
      Dim tn = str_pressedButtonNumber.Substring(0, 1)
      Dim tab = DirectCast(Me.Controls("tab_" & tn), TabPage)
      Dim but = DirectCast(tab.Controls("btn_shortcuts_" & _
        str_pressedButtonNumber), Button)
      but.Text = IO.Path.GetFileNameWithoutExtension(filePath)
      but.Image = DirectCast(but, DevComponents.DotNetBar.ButtonX).Image = _
        Drawing.Icon.ExtractAssociatedIcon(filePath).ToBitmap()
    Catch ex As Exception
      MsgBox("Error!" & ex.Message)
    End Try
  End Sub