【文件属性】:
文件名称:vb字体设置
文件大小:49KB
文件格式:RAR
更新时间:2016-01-21 12:32:58
vb中字体的
Public Class Form1
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
TextBox1.Font = New Font("宋体", TextBox1.Font.Size, TextBox1.Font.Style)
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
TextBox1.Font = New Font("隶书", TextBox1.Font.Size, TextBox1.Font.Style)
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Font = New Font("黑体", TextBox1.Font.Size, TextBox1.Font.Style)
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Font = New Font(TextBox1.Font.FontFamily, 12, TextBox1.Font.Style)
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Font = New Font(TextBox1.Font.FontFamily, 18, TextBox1.Font.Style)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style)
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style)
End Sub
Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If (CheckBox1.Checked) Then
TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold)
Else
TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Bold)
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "欢迎你来到东方"
End Sub
Private Sub CheckBox2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If (CheckBox1.Checked) Then
TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic)
Else
TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Italic)
End If
End Sub
End Class
【文件预览】:
字体设计
----字体设计()
--------Form1.vb(3KB)
--------bin()
--------obj()
--------My Project()
--------Form1.resx(6KB)
--------Form1.Designer.vb(8KB)
--------字体设计.vbproj(4KB)
----字体设计.suo(12KB)
----字体设计.sln(925B)
网友评论
- 可以用于学习