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
