展开全部
Text1.FontItalic = True
字体相关设置代码:
1、设置具体字号:
text1.FontSize = “45” ps:双引号内的字号可以随意更改;或者是每点击一次加大一32313133353236313431303231363533e78988e69d8331333431373864次 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