vb.net字体倾斜,vb字体斜体代码

高分求助，如何在VB.NET中做任意角度的旋转字体

文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。

相关问答

Q1: vb.net字体的粗体斜体同时显示怎么设置

该参数枚举值，采用位运算，那么可以用Or把两者连接起来即可；

New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)

Q2: VB.NET中的对齐代码怎么写,黑体和斜体又怎么写进去菜单栏里,知道的请教哈

你说的是控件中的字对齐吗？

字对齐是改变控件的TextAlign属性，该属性一共有9个属性值，

TopLeft，TopCenter，TopRight，MiddleLeft，MiddleCenter，MiddleRight，BottomLeft，BottomCente，BottomRight，分别对应：上左；上中；上右；中左；正中；中右；下左；下中；下右；

如果你说的是控件对齐窗体的话，那么直接修改控件的Location属性就可以了。比如一个按钮控件实例btn需要位于窗体正中，那么，代码应该写成：

Dim x, y As Integer

x = (Me.Width - btn.Width) / 2

y = (Me.Height - btn.Height) / 2

btn.Location = New System.Drawing.Point(x, y)

Q3: VB.NET文本框中的文本格式进行相应的设置

太晚了，想不出什么好方法了。

发上来看看吧。

首先建立一个TextBox,我这里名字为TextBox2

然后放一个groupbox，在里头放两个Checkbox,checkbox1为粗体，checkbox2为斜体。

代码：

Dim Bold As Boolean

Dim Italic As Boolean

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then

Bold = True

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

End If

Else

Bold = False

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked Then

Italic = True

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

End If

Else

Italic = False

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

可以等等别人回答，看看有没有更好的方法。