[原创]将OLE StdFont字体结构转换到API的LOGFONT字体结构

作者: 来源:网络文章时间:2005-12-13 20:33:25

' 将OLE StdFont字体结构转换到API的LOGFONT字体结构
With tLF
       sFont = myfont.Name
       temp = StrConv(sFont, VBFromUnicode)
       For iChar = 1 To Len(sFont)
            .lfFaceName(iChar - 1) = temp(iChar - 1)
       Next iChar
       .lfItalic = myfont.Italic
       .lfWeight = IIf(myfont.Bold, FW_BOLD, FW_NORMAL)
       .lfWidth = fontwidth
       .lfHeight = fontheight
       .lfUnderline = fontunderline
       .lfStrikeOut = fontStrikethrough
       .lfCharSet = myfont.Charset
    End With
hFnt = CreateFontIndirect(tLF)' 转换LOGFONT结构到字体句柄

[原创]将OLE StdFont字体结构转换到API的LOGFONT字体结构相关文章：

[原创]将OLE StdFont字体结构转换到API的LOGFONT字体结构相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com