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

前端之家收集整理的这篇文章主要介绍了vb.net 教程 3-5 窗体编程 对话框3 ColorDialog & FontDialog前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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,弹出对话框,此时可以选择某个颜色或者字体,按下“应用”按钮,可以看到对话框不会关闭,但是文本框中的颜色和字体变了:



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

猜你在找的VB相关文章