vb.net改变字体,vb中改变字体

vb.net 字体如何设置？（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.net如何设置FORM的text字体

您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。

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

另外，FORM标题栏的TEXT字体和颜色是操作系统决定的，要想改变，只能调用系统的api函数，截获操作系统的消息来改变。

下面的网址有C#版本的重绘标题栏范例

软糖的回答满意吗，请及时采纳，谢谢。

vb.net 字体设置

给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：

'先获取选择的字体信息（字体、大小、样式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定义某种样式的时候，不丢失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

跪求：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.net 代码调整字体大小

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

With Button1.Font

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

End With