設定字型與顏色

 設定字型

控制項: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