设置字体与颜色

 设置字体

控件:FontDialog,label

注意:FontDialog1.showApply=true      FontDialog1.showColor=true       FontDialog1.showEffect=true

代码:

1.    If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
2.             Label1.Font = FontDialog1.Font
3.         End If

设置颜色:

控件:ColorDialog1

1. If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
2.             Label1.ForeColor = ColorDialog1.Color
3.         End If

关于复选框

1. Dim italicfont, regfont As System.Drawing.Font
2.         italicfont = New System.Drawing.Font(Label4.Font, FontStyle.Italic)
3.         regfont = New System.Drawing.Font(Label4.Font, FontStyle.Regular)
4.         If CheckBox4.CheckState = CheckState.Checked Then
5.             Label4.Font = italicfont
6.         Else
7.             Label4.Font = regfont
8.         End If

 

判断这个复选框被选中时,应该发生什么行为?    下面的仅为借鉴

1. Private Sub opt486_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt486.CheckedChanged
2.         If sender.checked Then
3.             strcomputer = "486"
4.             Call displaycaption()   '调用某一个过程函数
5.         End If
6.     End Sub