VB下怎么使用矢量字体的

Question

使用点阵字体不是超过显示范围就是边上有空，很难看，想用矢量字体看看，没用过，一点数都没有，求教，哪位知道的指点下，谢谢。

Answer 1

使用createfont，事实上win系统大部分都是矢量字体，除非特殊需要，否则，你只要在属性中指定字体的名称和大小，只要对应的字库是矢量的，那么，使用的就是矢量字体，我估计是你指定的字体不合适Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal fnWeight As Long, ByVal fdwItalic As Long, ByVal fdwUnderline As Long, ByVal fdwStrikeOut As Long, ByVal fdwCharSet As Long, ByVal fdwOutputPrecision As Long, ByVal fdwClipPrecision As Long, ByVal fdwQuality As Long, ByVal fdwPitchAndFamily As Long, ByVal lpszFace As String) As Long