Скачать или смотреть Font Dialog Box Simulation in VB Net

Video explains the simulation of Font Dialog box using combo box,check box and buttons.
Code is as below.

Public Class Lab2


Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click

Dim size As Single
Dim font As String
Dim fontStyle As String

size = CSng(cmbFSize.SelectedItem)
font = CStr(cmbFont.SelectedItem)
fontStyle = CStr(cmbFStyle.SelectedItem)

Select Case fontStyle
Case "Regular"
lblSample.Font = New Font(font, size, Drawing.FontStyle.Regular)
Case "Bold"
lblSample.Font = New Font(font, size, Drawing.FontStyle.Bold)
Case "Italic"
lblSample.Font = New Font(font, size, Drawing.FontStyle.Italic)
End Select

If chkStrikeout.Checked Then
lblSample.Font = New Font(font, size, Drawing.FontStyle.Strikeout)
chkUnderLine.Checked = False
End If

If chkUnderLine.Checked Then
lblSample.Font = New Font(lblSample.Font.FontFamily, size, Drawing.FontStyle.Underline)
chkStrikeout.Checked = False
End If

End Sub



Private Sub Lab2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cmbFont.SelectedItem = "Arial"
cmbFStyle.SelectedItem = "Regular"
cmbFSize.SelectedItem = "8"
End Sub


Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
cmbFont.SelectedItem = "Arial"
cmbFStyle.SelectedItem = "Regular"
cmbFSize.SelectedItem = "8"

chkStrikeout.Checked = False
chkUnderLine.Checked = False


lblSample.Font = New Font("Arial", 8, Drawing.FontStyle.Regular)
End Sub


End Class