Benutzerdefinierte Bilder in twinBASIC

2021, 5/2021, VBA und Programmiertechniken

Die Programmiersprache/Entwicklungsumgebung twinBASIC entwickelt sich aktuell stetig weiter. Der Entwickler Wayne Philips fügt ständig neue Elemente hinzu. In den ersten Beiträgen mussten wir das Ribbon eines COM-Add-Ins noch mit den eingebauten Icons ausstatten, da es nicht möglich war, Bilddateien als Ressourcen in die DLL zu integrieren. Das hat sich nun geändert: Sie können Bilddateien zum Projekt hinzufügen und diese sehr einfach im Ribbon nutzen. Dieser Beitrag zeigt, wie das gelingt.

Voraussetzungen

Wie Sie ein COM-Add-In erstellen, erfahren Sie beispielsweise in den beiden Beiträgen twinBASIC – COM-Add-Ins für Access (www.access-im-unternehmen.de/1306) und Access-Optionen per Ribbon ändern (www.access-im-unternehmen.de/1327).

Icons nutzen

Icons verwenden wir bei COM-Add-Ins aktuell für Schaltflächen und andere Elemente im Ribbon. Um Icons zu nutzen, sind zwei Schritte nötig:

  • Hinzufügen zum Projekt
  • Laden, wenn das Ribbon angezeigt wird.

Beides schauen wir uns nun an.

Icons zum Projekt hinzufügen

Das Beispielprojekt für ein COM-Add-In, das Sie mit dem Befehl aus Bild 1 erstellen, enthält bereits zwei Ordner, die für das Hinzufügen von Bildern benötigt werden.

Erstellen eines COM-Add-In-Projekts

Bild 1: Erstellen eines COM-Add-In-Projekts

Ziehen Sie .ico-Dateien in den ICON-Ordner, sodass diese dort wie in Bild 2 erscheinen. Achtung: Wenn Drag and Drop nicht funktioniert, kann es sein, dass Sie Visual Studio Code als Administrator gestartet haben. Wegen der höheren Rechte können Sie dann keine Dateien mehr aus dem normal geöffneten Explorer hineinziehen.

Hinzufügen eines Icons zum Projekt

Bild 2: Hinzufügen eines Icons zum Projekt

Ribbon-Anpassung

In der Ribbon-Definition haben Sie zwei Möglichkeiten, das Icon einzulesen. Die erste ist die Callback-Funktion getImage, der Sie einfach den Namen der aufzurufenden Callback-Funktion übergeben (siehe Listing 1).

Private Function GetCustomUI(ByVal RibbonID As String) As String _
    Implements IRibbonExtensibility.GetCustomUI
    Dim strXML As String
    strXML &= "<customUI ...xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & vbCrLf
    strXML &= "  <ribbon startFromScratch=""false"">" & vbCrLf
    strXML &= "    <tabs>" & vbCrLf
    strXML &= "      <tab id=""tab"" label=""Tab mit Bild"">" & vbCrLf
    strXML &= "        <group id=""grp"" label=""Gruppe mit Bild"">" & vbCrLf
    strXML &= "          <button id=""btnIcon"" size=""large"" label=""Icon"" getIimage=""getImage""" _
            & " onAction=""onAction""/>" & vbCrLf
    strXML &= "        </group>" & vbCrLf
    strXML &= "      </tab>" & vbCrLf
    strXML &= "    </tabs>" & vbCrLf
    strXML &= "  </ribbon>" & vbCrLf
    strXML &= "</customUI>" & vbCrLf
    Return strXML
End Fun ction

Listing 1: Icon zu einer Schaltfläche hinzufügen per getImage

Diese prüft den Namen des aufrufenden Steuerelements und weist dem Rückgabewert das mit der Funktion Load-ResPicture ermittelte Bild zu. Zu beachten ist hier, dass Sie die Größe mit den letzten beiden Parametern angeben – hier 32×32 (für Icons in Schaltflächen mit dem Wert normal für den Parameter size verwenden Sie 16×16):

Public Function getImage(Control As IRibbonControl)  As IPictureDisp
     Dim objPicture As Object
     Select Case Control.Id
         Case "btnICON"
             Set objPicture = LoadResPicture("add.ico",  vbResBitmapFromIcon, 32, 32)
     End Select
     Return objPicture
End Function

Das Ergebnis sehen Sie in Bild 3.

Ribbon mit Icon

Kostenlos & unverbindlich

Wie geht es weiter?

Haben Sie Fragen zu Ihrer Access-Anwendung? In unserem kostenlosen Access-Audit schaut sich André Minhorst persönlich Ihre Lösung per Zoom gemeinsam mit Ihnen an – und zeigt Ihnen, wo Datenmodell, VBA-Code, Ergonomie und Sicherheit Optimierungspotenzial bieten.

Jetzt kostenloses Access-Audit anfordern →
Nur für Abonnenten

Ab hier wird’s wirklich spannend – der Rest ist exklusiv für Abonnenten.

Mit dem Abo von Access im Unternehmen bekommst du den kompletten Artikel – inklusive vollständigem Code, Beispieldatenbank und Schritt-für-Schritt-Erklärung.

So sparst du dir stundenlanges Herumprobieren, vermeidest teure Fehler in deiner Access-Anwendung und kannst Lösungen direkt in deinem Unternehmen einsetzen, statt nur darüber zu lesen.

Teste Access im Unternehmen jetzt 4 Wochen lang kostenlos: Voller Zugriff auf alle Artikel, Downloads und Beispieldatenbanken. Kein Risiko – wenn es für dich nicht passt, kündigst du einfach innerhalb der ersten vier Wochen.

Bereits Abonnent? Hier einloggen

Schreibe einen Kommentar