Strange Font Problem(Resolved)

I'm trying to use the First Quarter Moon and Last Quarter Moon symbols from the Wingdings 2 font.
They look like crescent moons.

I need a way to acquire them for pasting into an MS Word file.
But I can't seem to get them.

If you copy them from the Windows Character Map and paste them into a RichTextBox, they show up properly.
But if you do an ASC() on the pasted Chars you get an ASCII of 63 for both of them.

If you try to add Chr$(63) to the RichTextBox you get some other char altogether.

How the heck do you get them?

Quote:

---

Originally Posted by longwolf

I'm trying to use the First Quarter Moon and Last Quarter Moon symbols from the Wingdings 2 font.
They look like crescent moons.

I need a way to acquire them for pasting into an MS Word file.
But I can't seem to get them.

If you copy them from the Windows Character Map and paste them into a RichTextBox, they show up properly.
But if you do an ASC() on the pasted Chars you get an ASCII of 63 for both of them.

If you try to add Chr$(63) to the RichTextBox you get some other char altogether.

How the heck do you get them?

---

The problem is that you used a different font.
If you set a font to Wingdings for the RichTextbox then it will work again.

The character 63 is used in every font as no font has a unique code and all follow the ASKII characters so change the font to Wingdings and then try it again :)

Cheers,

RyanJ

The font is set to Wingdings 2

Quote:

---

Originally Posted by longwolf

The font is set to Wingdings 2

---

Then by converting the ascii from the original character you were given you should be able to get the character you set back.

If the fonts are the same then using Chr$() to convert th ASCII to a character should work fine.

Cheers,

RyanJ

I also tried adding this code to the form:

VB Code:

Private Sub cmd_Click()
    Dim lX As Long
    
    On Error Resume Next ' GoTo Skip:
    RichTextBox.Font = "Wingdings 2"
    For lX = 0 To 512
        RichTextBox.Text = RichTextBox.Text & vbCrLf & Chr$(lX)
        Err.Clear
    Next
 
End Sub

If you scroll through the chars that make it to the rtb, you will not find those two moons there. :/

Quote:

---

Originally Posted by sciguyryan

Then by converting the ascii from the original character you were given you should be able to get the character you set back.

If the fonts are the same then using Chr$() to convert th ASCII to a character should work fine.

---

Nope, doesn't work.
I told you this was a strange one :)

I'm including the source code for a simple test app.
The RTB is on the left, a normal txtbox is on the right

If you can get one of those moons into the rtb without using the Windows Character Map you'll be my hero. LOL

btw,
I've just been using the debug window to send Chr$()'s to the rtb

If you can figure out how to use Sendkeys to send Alt plus 386 on the number pad, that will work.

We've have a solution now using Marty's SendKeys.

Just use:

VB Code:

Private Sub cmdAction_Click()
        
    RichTextBox1.SetFocus
    SendKeys Chr$(130)
End Sub

130 was gotten by using the Windoows Character Map and converting the Char's 'Key Code' to decimal.

Thanks Marty!