vb6里如何创建自己的字体对象？？？

Question

我用的是vb5的教学指南，里面说可以创建自己的字体对象，不过要先引用 standard ole types 控件，vb6里面没有呀！！！另外，有个问题就是，如果用户设置比较大的字体大小，那么原来的按钮可以显示两个字的，现在可能只能显示一个字了，按钮的大小会自动变大以适应字的大小吗？？先谢谢了

Answer 1

可以啊，用API函数
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
按纽的大小可以把其属性autosize设为true.

Answer 2

Dim b As New StdFont
b.Italic=True