VB怎么用代码设置字体字号还有字体颜色？

在VB6中可以通过设置对象的Font属性设置字体字号，ForeColor属性设置字体颜色。\x0d\x0a例如，下面代码实现设置文本框中的字体为”隶书“字号28磅，字体颜色为红色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隶书"\x0d\x0aText1.ForeColor = vbRed\x0d\x0aEnd Sub

Private Sub Combo1_Click()

List1.Font = Combo1.Text

End Sub

List1.Font.Size ="" '修改字体大小

List1.Font.Bold = True 使用粗体

List1.Font.Italic =True 实用斜体

List1.Font.Strikethrough = True 有删除线

List1.Font.Underline = True 带下划线

几种常用的字体修改方法

vb.net和vb6的写法不一样 可以用以下代码来设置字体样式和颜色

TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体

'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体

'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常

'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线

'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线

TextBox1.ForeColor = Color.Red '前景色

---