Prev: BIG PROBLEM WITH EVAL Function !!!!!
Next: 5904 - Cannot Edit Range
From: Robert Morley on 23 Sep 2007 15:59
D'oh! When I tested in Word (at 72 points), I did:

aa
bb

to test for spacing differences. Never occurred to me to look for baseline differences. UGH!



Rob


From: Bert van den Dongen on 23 Sep 2007 16:40
Well, thank you all for your time.
I used Rick's suggestion with the Marlett Font.
Also tried both a and b, saw no difference and picked a.
Never realised that it would bring such a long thread.
Thanks for your program, Mike.
It clearly shows the difference.
Gonna try the WingDingThing too.

Thanks to all.
Bert.


"Mike Williams" <mike(a)WhiskyAndCoke.com> schreef in bericht
news:%23%23mQ$Vh$HHA.4200(a)TK2MSFTNGP04.phx.gbl...
> "Rick Rothstein (MVP - VB)" <rickNOSPAMnews(a)NOSPAMcomcast.net> wrote in
> message news:eUw4uNg$HHA.4612(a)TK2MSFTNGP03.phx.gbl...
>
>> Make the font for the cell(s) Marlett and then use either "a"
>> or "b" (these are lower case letters) either of which will
>> display as a check mark (I'm not sure what the difference
>> between these two characters are supposed to be; they
>> look the same to me).
>
> The shape and size of the glyph is the same in both cases and they are
> both at the same horizontal position within the cell, but the "b" sits a
> little higher up in the character cell than does the "a". Here's some code
> that draws both characters at exactly the same position on the Form, the
> "a" in blue and the "b" in red. I've drawn them both in outline so that
> you can more easily see how the glyphs overlay each other and I've drawn
> blue and red rectangles to show the characters cell (you'll only see the
> red rectangle because it is the same size as the blue).
>
> Mike
>
> Option Explicit
> Private Declare Function BeginPath Lib "gdi32" _
> (ByVal hdc As Long) As Long
> Private Declare Function EndPath Lib "gdi32" _
> (ByVal hdc As Long) As Long
> Private Declare Function StrokePath Lib "gdi32" _
> (ByVal hdc As Long) As Long
> Private Declare Function TextOut Lib "gdi32" Alias _
> "TextOutA" (ByVal hdc As Long, ByVal x As Long, _
> ByVal y As Long, ByVal lpString As String, _
> ByVal nCount As Long) As Long
>
> Private Sub Form_Load()
> Dim s1 As String
> AutoRedraw = True
> Font.Name = "Marlett"
> Font.Size = 250
> ForeColor = vbBlue
> s1 = "a"
> BeginPath Me.hdc
> TextOut Me.hdc, 0, 0, s1, Len(s1)
> EndPath Me.hdc
> StrokePath Me.hdc
> Line (0, 0)-(TextWidth(s1), TextHeight(s1)), , B
> Me.ForeColor = vbRed
> s1 = "b"
> BeginPath Me.hdc
> TextOut Me.hdc, 0, 0, s1, Len(s1)
> EndPath Me.hdc
> StrokePath Me.hdc
> Line (0, 0)-(TextWidth(s1), TextHeight(s1)), , B
> Me.Refresh
> End Sub
>
>
>
>
>

First  |  Prev  | 
Pages: 1 2 3
Prev: BIG PROBLEM WITH EVAL Function !!!!!
Next: 5904 - Cannot Edit Range