#

 

 

Aufgabe ich möchte ein Zeichen auf einen Button schreiben, welcher aber nicht in Ascii sichtbar ist.

Es handelt sich dabei um die Sonderzeichen des Segoe UI MDL2 Zeichensatzes.

Man kann die Zeichen direkt in der Sonderzeichen Tabelle auswählen und kopieren und mit Einfügen direkt in denText eines Buttons einfügen.

Die Zeichen benötigen den Unicode Zeichensatz, was bedeutet, dass wenn man den Button nach Button.Caption abfrägt, in vba nur ein Fragezeichen als Ergebnis erhält.

 

Lösung:

Man kann die einzelnen Zeichen mit ChrW(nummer) abfragen oder mit AscW(Nummer) als zeichen schreiben

If AscW(BtnExpander.Caption) = -8175 Then

        '----< Caption is Down >----

        BtnExpander.Caption = ChrW(-8176)   'set Up

..

 

Sonderzeichen in Windows 10

 

 

Vba Code zum Lesen und Schreiben des Button-Textes mit Segoe MDL2 Sonderzeichen

Private Sub BtnExpander_Click()

    '------------< BtnExpander_Click() >------------

    'Button Caption with Segoe Mdl Charakter for up and down

    'Segoe UI Mdl2

    '-8176= up

    '-8175= down

 

 

    If AscW(BtnExpander.Caption) = -8175 Then

        '----< Caption is Down >----

        BtnExpander.Caption = ChrW(-8176)   'set Up

        ctlNotiz.Height = 744               '2 rows

        '----</ Caption is Down >----

    Else

        '----< Caption is Up >----

        BtnExpander.Caption = ChrW(-8175)   'set Down

        ctlNotiz.Height = BtnExpander.Height '1 row

 

        '< adapt details heigth >

        Section(0).Height = 1

        '</ adapt details heigth >

        '----</ Caption is Up >----

    End If

    '------------</ BtnExpander_Click() >------------

End Sub

 

Button mit Segoe Mdl zum Expandieren eines Eingabefelde.

Der Buttontext wird angepasst mit

BtnExpander.Caption = ChrW(-8176)   'set Up

ctlNotiz.Height = 744               '2 rows

 

 

Button mit Segoe Mdl zum Schliessen.

Der Button wird zurückgesetzt mit         

BtnExpander.Caption = ChrW(-8175)   'set Down

 

 

Die Segoe Mdl2 Zeichen sind auch zusammengefasst in Gruppen unter der Webseite

https://microsoft-programmierer.de/Sonstiges/Web/Icon/Segoe-Mdl2-Symbole-zusammengefasst?2432

Mobile

.

0123movie.net