Question

VB里什么代码可以把文本框中的字改成斜体

就像图片上的一样，点击checkbox按钮改变字体变成斜体，还有加下划线~谢谢

Answer 1

Text1．FontItalic＝True

字体相关设置代码：

1．设置特定字体大小：

Text1．ps：双引号内的大小可以随意改变；Text1。字形大小＝text1。字形大小＋1

2．设置特定字体

Text1．ps：双引号中的字体可以改为其他内容

3．设置特定的颜色

Text1．前驱色＝vred：可以将后一种红色改为另一种颜色；或text1。ps：＝number是颜色代码，在预测色中

4．将字体设置为粗体

Text1．FontBold＝True

扩展资料：

一、字体放大示例：

Dima％

PrivateSubCommand1＿Click（）＇加大键

a＝a＋10

If a >= 70 Then a = 70: Exit Sub '加大到70就停止

Label1．Font．Size＝a＇设定Label1的字体大小

EndSub

二、字体缩小的例子：

私人潜艇Command2＿Click（）的缩小

A等于A－10

如果a <= 2，则a = 2: Exit Sub '缩小为2，然后停止

Label1．font。size＝a＇设置Label1的字体大小

终止子

Answer 2

Text1.FontItalic = True

字体相关设置代码：

1、设置具体字号：

text1.FontSize = "45" ps：双引号内的字号可以随意更改；或者是每点击一次加大一次 text1.fontsize= text1.fontsize +1 

2、设置具体的字体

text1.FontName = "幼圆" ps：双引号里的字体可以改成其他的 

3、设置具体的颜色 

text1.ForeColor = vbRed ps：后面的red（红色）可以改成其他颜色；或者 Text1.ForeColor = &HFFFFC0 ps：=号后面是颜色的代码，在ForeColor

4、设置字型为粗体 

text1.FontBold =True 

扩展资料

一、字体放大示例：

Dim a%

Private Sub Command1_Click() '加大键

a = a + 10

If a >= 70 Then a = 70: Exit Sub '加大到70就停止

Label1.Font.Size = a '设定Label1的字体大小

End Sub

二、字体缩小示例：

Private Sub Command2_Click() '缩小键

a = a - 10

If a <= 2 Then a = 2: Exit Sub ' 缩小到2就停止

Label1.Font.Size = a '设定Label1的字体大小

End Sub

Answer 3

这个是窗体，你使用代码不嫌累啊，直接在控件属性里面去更改就行了啊...要懂得设计，不要全靠代码去写...以后你会知道写代码有多烦了

Answer 4

Private Sub Command1_Click()
Text1.FontBold = True '粗体
End Sub

Private Sub Command2_Click()
Text1.Font.Italic = True '斜体
End Sub
今后可以相互交流。谢谢