Trouble Displaying Wingdings...

... on Asian computers. I built a command button array of 4 buttons to show numeric characters. The caption toggles fonts between MS San Serif and Wingdings when any of them is pressed:

Code:

---

Private Sub Command1_Click(Index As Integer)
If Command1(Index).FontName = "Wingdings" Then
    Command1(Index).FontName = "MS Sans Serif"
    Command1(Index).FontSize = 8
    Command1(Index).FontBold = True
    Command1(Index).Caption = Format$(Index + 1, "#")
Else: Command1(Index).FontName = "Wingdings"
    Command1(Index).FontSize = 12
    Command1(Index).FontBold = False
    Command1(Index).Caption = Chr$(140 + Index)
End If
End Sub

Private Sub Form_Load()
For I = 0 To 3
    Command1(I).FontName = "MS Sans Serif"
    Command1(I).FontSize = 8
    Command1(I).FontBold = True
    Command1(I).Caption = Format$(I + 1, "#")
Next
End Sub

---

It works flawlessly on USA machines. Asian computers display a blank rather than a number when pressed.
(1) Is there a simple fix?
(2) Is it possible that the font is not available on the Asian machines? No error is being reported.

Well, I asked the Asians to check for the existence of the WingDings font on their computers. It's there, so that rules out item (2) in Post #1.

What about this statement in the code?

Code:

---

Command1(Index).Caption = Chr$(140 + Index)

---

Note that 140 exceeds 128. Could that be the culprit? :ehh:

Chr$(140) = €
Chr$(141) = €
Chr$(142) = €
Chr$(143) = €
Chr$(48) = 0
Chr$(49) = 1

Quote:

---

Originally Posted by 5ms?

Chr$(140) = €
Chr$(141) = €
Chr$(142) = €
Chr$(143) = €
Chr$(48) = 0
Chr$(49) = 1

---

Explanation? Why did you post Chr$(48) and Chr$(49)? Just curious. :afrog:

RhinoBull at al., do you have a clue on this issue in Post #1?

Quote:

---

Explanation? Why did you post Chr$(48) and Chr$(49)? Just curious

---

In Post #1

Quote:

---

I built a command button array of 4 buttons to show numeric characters.

---

Well, 0 and 1 are numeric characters, Yes?

Quote:

---

Originally Posted by 5ms?

In Post #1

Well, 0 and 1 are numeric characters, Yes?

---

Chr$(48) and Chr$(49) are not going to display numeric characters in the Wingdings font. Try it.

lol, It first time I've see the Wingdings font lol