将OLE StdFont字体结构转换到API的LOGFONT字体结构-.NET教程,评论及其它

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