Gets and sets the character set of the font. | |||||||||||||
Syntax: | short =
object.CharSet object.CharSet = short |
||||||||||||
Description: | Do not use this property if you do not understand
the meaning and use of character sets in the Windows Platform SDK.
Refer to the Windows Platform SDK documentation for the LOGFONT
structure for more information about the character set. You can determine the character set number for a font by using the font in a CimEdit screen and looking at the CTX file. The font attribute contains the character set in its high-order byte. For example, a CTX file might have the entry (Font
"Arial" 0 -360 1 41216) . The font attribute field is 41216
(decimal) which is &hA100. The high-order byte is &hA1 or
161 (decimal).Here are some values for the character set property.
Example: Sub GefFontFormat_CharSet() Dim oCimObj As GefObject Dim oCimTxtFmt As
GefTextFormat Dim oCimFntFmt As
GefFontFormat Set oCimObj = CimGetObject Set oCimTxtFmt =
oCimObj.TextFormat If Not oCimTxtFmt Is Nothing
Then Set
oCimFntFmt = oCimTxtFmt.Font If Not
oCimFntFmt Is Nothing Then oCimFntFmt.Charset
= 204 CimGetScreen.Refresh
False End
If End If End Sub |