最后30分：怎么获得系统字体添加到ListBox选项中，还有怎么修改字形

2013-03-14

最后30分：如何获得系统字体添加到ListBox选项中，还有如何修改字形？我想用VB.net实现以上两个功能，并存入Ac

最后30分：如何获得系统字体添加到ListBox选项中，还有如何修改字形？
最后30分：怎么获得系统字体添加到ListBox选项中，还有怎么修改字形

我想用VB.net实现以上两个功能，并存入Access数据库：
1.获取系统字体的列表，并且添加到ListBox的选项中？
2.修改那些属性，可以给字体加上粗体，斜体，下划线，删除线？
求具体代码求方法求帮助，感激不尽，最后的冲刺了，求帮帮忙~

[解决办法]
1、

 For Each AllFonts In System.Drawing.FontFamily.Families
            ListBox1.Items.Add(AllFonts.Name)
        Next

2、

 Dim newStyle As FontStyle = FontStyle.Regular
        If CheckBox1.Checked Then '粗体
            newStyle = newStyle Or FontStyle.Bold
        End If
        If CheckBox2.Checked Then '斜体
            newStyle = newStyle Or FontStyle.Italic
        End If
        If CheckBox3.Checked Then '下划线
            newStyle = newStyle Or FontStyle.Underline
        End If
        If CheckBox4.Checked Then '删除线
            newStyle = newStyle Or FontStyle.Strikeout
        End If

        '设置窗体字体属性
        Me.Font = New Font(ListBox1.Items(ListBox1.SelectedIndex), newStyle)

热点排行

VB Dotnet

最后30分：怎么获得系统字体添加到ListBox选项中，还有怎么修改字形