VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • 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 教程 目录
 
 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/72083770

相关教程