vb.net 教程 3-5 窗体编程 对话框3 ColorDialog & FontDialog

概述ColorDialog ：颜色对话框 FontDialog：字体对话框 ColorDialog 感觉没什么好特别的属性。最后使用返回的Color就可以了。FontDialog有两个属性和一个方法，在这个例子后面讲： '调用颜色对话框 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2

colorDialog：颜色对话框

FontDialog：字体对话框

colorDialog感觉没什么好特别的属性。最后使用返回的color就可以了。FontDialog有两个属性和一个方法，在这个例子后面讲：

    '调用颜色对话框    Private Sub button2_Click(sender As Object,e As EventArgs) Handles button2.Click        Dim c As color        If colorDialog1.ShowDialog = DialogResult.OK Then            c = colorDialog1.color        Else            Exit Sub        End If        TextBox1.Forecolor = c    End Sub    '调用字体对话框    Private Sub button3_Click(sender As Object,e As EventArgs) Handles button3.Click        Dim f As Font        If FontDialog1.ShowDialog = DialogResult.OK Then            f = FontDialog1.Font        Else            Exit Sub        End If        TextBox1.Font = f    End Sub

运行效果：

FontDialog字体对话框的特别属性：

Showcolor属性：设置为True，这样就可以在对话框中选择颜色，但是好像不能自定义颜色，可选择的颜色也不多。

ShowApply属性：设置为True，显示“应用”按钮，当按下该按钮时候触发FontDialog.Apply事件。

Apply事件：按下“应用”按钮时候触发，可以不关闭对话框的情况下设置字体。

如下代码，请先将上面例子中的FontDialog1的Showcolor和ShowApply属性都设置为True，双击FontDialog1转入代码编辑：

    Private Sub FontDialog1_Apply(sender As Object,e As EventArgs) Handles FontDialog1.Apply        Dim f As Font        Dim c As color        f = FontDialog1.Font        c = FontDialog1.color        TextBox1.Font = f        TextBox1.Forecolor = c    End Sub

运行后，按下button3，d出对话框，此时可以选择某个颜色或者字体，按下“应用”按钮，可以看到对话框不会关闭，但是文本框中的颜色和字体变了：

学习更多vb.net知识，请参看 vb.net 教程 目录

总结

以上是内存溢出为你收集整理的vb.net 教程 3-5 窗体编程 对话框3 ColorDialog & FontDialog全部内容，希望文章能够帮你解决vb.net 教程 3-5 窗体编程 对话框3 ColorDialog & FontDialog所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。