请问怎么做像字体设置窗口这样的东西？

Question

如题。
我知道怎么赋值，但是怎么获取机器上面的字体呢？
有谁知道的帮一忙讲解一下，我需要一个字体设置的那个东西，要能选择字体颜色，大小，样式，这些的，有知道帮一下忙，谢谢了
最好能有例子，谢谢[email protected]

Answer 1

用dialog控件
CommonDialog1.flags = cdlCFBoth
CommonDialog1.ShowFont

Answer 2

Option Explicit'设计时将 Combo1.Sorted = TruePrivate Sub Command1_Click()
        Me.Combo1.Clear
        
        Dim I As Long
        Dim FntName As String
        For I = 0 To Screen.FontCount - 1
            FntName = Screen.Fonts(I)
            If Left$(FntName, 1) <> "@" Then
               Combo1.AddItem FntName
            End If
        Next
End Sub

Answer 3

http://expert.csdn.net/Expert/topic/2838/2838245.xml?temp=.6531488