- Code:
Dim bfont As New Font(RichTextBoxFoo.Font, FontStyle.Bold)
RichTextBoxFoo.SelectionFont = bfont
Chinh Font:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Label1.Font = New Font("Consolas", 20, FontStyle.Regular)
Label2.Font = New Font("Consolas", 20, FontStyle.Regular)
Label3.Font = New Font("Consolas", 20, FontStyle.Regular)
Label4.Font = New Font("Consolas", 20, FontStyle.Regular)
Label5.Font = New Font("Consolas", 20, FontStyle.Regular)
Label6.Font = New Font("Consolas", 20, FontStyle.Regular)
Label7.Font = New Font("Consolas", 20, FontStyle.Regular)
Else
Label1.Font = New Font("Consolas", 10, FontStyle.Regular)
Label2.Font = New Font("Consolas", 10, FontStyle.Regular)
Label3.Font = New Font("Consolas", 10, FontStyle.Regular)
Label4.Font = New Font("Consolas", 10, FontStyle.Regular)
Label5.Font = New Font("Consolas", 10, FontStyle.Regular)
Label6.Font = New Font("Consolas", 10, FontStyle.Regular)
Label7.Font = New Font("Consolas", 10, FontStyle.Regular)
End If
End Sub
Liệt kê những bài viết mới nhất
[vb] Font RTB
1 [vb] Font RTB Tue Dec 29, 2015 10:29 am
HdAd
Admin
» Khoa học » Máy Tính » [vb] Font RTB
Permissions in this forum:
You cannot reply to topics in this forum
|
|