vb.net字体锐利 vb设置字形

vb.net 字体设置

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

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

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

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

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

相关问答

Q1: vb.net 字体如何设置？（font，fontfamily）

可以利用font 设置。设置方法如下vb.net字体锐利：

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

也可以通过字体对话框来实现 如vb.net字体锐利：

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

Q2: VB.net中，改变文本字体应该怎样写啊

控件名.font=new font（“微软雅黑”vb.net字体锐利，11）

Q3: 跪求：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

Q4: 关于用VB.NET 模仿输出photoshop 里面4种字体样式，该如何做到？

有个程序叫做ClearType，如果你是win7的，那你一直使用ClearType。使用ClearType可以把字体变得平滑，否则变得浑厚。锐利应该是锐化字体，犀利...我也没见过这种样式的文字，有空再看。 firefox也有这种功能，可以取消或使用ClearType.

我的想法是:

先启用个人程序的ClearType(置于怎么使用，你去查下，我也不知道)，然后GDI截取文字部分的图片，然后返回原来的ClearType状态，再输出图像.

vb.net字体锐利的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb设置字形、vb.net字体锐利的信息别忘了在本站进行查找喔。