vb点虐 代码调整字体大小

看样要重新定义个Font对象，在构造函数中定义它的大小，

成都创新互联公司是一家集网站建设,扶绥企业网站建设,扶绥品牌网站建设,网站定制,扶绥网站建设报价,网络营销,网络优化,扶绥网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

With Button1.Font

Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。

End With

跪求：VB.NET字体的变换

这个太简单了吧.

Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim style As FontStyle

If Me.CheckBox1.Checked Then

style = style Or FontStyle.Bold

End If

If Me.CheckBox2.Checked Then

style = style Or FontStyle.Italic

End If

If Me.CheckBox3.Checked Then

style = style Or FontStyle.Underline

End If

Dim myFont As Font = New Font(TextBox1.Text, 20, style, GraphicsUnit.Pixel)

If TextBox1.Text.ToLower "microsoft sans serif" And myFont.Name.ToLower = "microsoft sans serif" Then

MessageBox.Show("不存在该字体!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return

End If

Label1.Font = myFont

End Sub

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CheckBox1.Text = "黑体"

Me.CheckBox2.Text = "斜体"

Me.CheckBox3.Text = "下划线"

End Sub

End Class

vb点虐 字体如何设置？（font，fontfamily）

可以利用font 设置。设置方法如下：

TextBox1.Font = New System.Drawing.Font("宋体", 10)

也可以通过字体对话框来实现 如：

Private Sub myButton_Click(sender As Object, e As EventArgs)

Dim myFontDialog As FontDialog

myFontDialog = New FontDialog()

If myFontDialog.ShowDialog() = DialogResult.OK Then

' Set the control's font.

myDateTimePicker.Font = myFontDialog.Font

End If

End Sub

网站栏目：改变字体vb点虐 改变字体在哪里设置
链接分享：http://myzitong.com/article/ddigsgs.html