将OLE StdFont字体结构转换到API的LOGFONT字体结构

孤单一个人 · 发表于 2009-3-16 19:09:48

' 将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结构到字体句柄

波仔 · 发表于 2009-12-7 19:05:04

每看一次，赞赏之情就激长数分

n煲 · 发表于 2010-1-29 18:05:06

好好帖很好帖确实好帖少见的好帖

		自动登录	找回密码
密码			注册