特请教一问题？(VB代码怎么写)

Question

怎么将系统所有的字体类型名加入一个combo1组合框中
例如有：宋体，华文行楷;则combo1中会有宋体,华文行楷选择 ;

Answer 1

Private Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long该函数使用的参数与EnumFontFamilies函数是一样的，工作原理也大致相同。只是EnumFontFamilies会利用ENUMLOGFONT 和 NEWTEXTMETRIC结构向回调函数传递附加的信息，而不是使用LOGFONT
  和 TEXTMETRIC结构。请参考EnumFontFamilies函数，那里有更详细的解释

Answer 2

Dim i As Integer
For i = 0 To Screen.FontCount
    Combo1.AddItem Screen.Fonts(i)
Next