VB怎么改变字体?

来源：百度知道 编辑：UC知道 时间：2024/06/27 09:10:23
比如一个控件text1
然后我打了个代码text1.text="日"
怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟
Private Sub Command2_Click()
Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _
+ vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _
+ vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _
+ vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _
+ vbCrLf + "3 + 5 = 83 + 5 = 8"
Label1.FontSize = 8
End Sub
Private Sub Label1_Click()
Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _
+ vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _
+ vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _
+ vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _
+ vbCrLf + "3 + 5 = 83 +

颜色：
label1.ForeColor = &HFF00FF
字体
Label1.Font = "隶书"

label1.forecolor=......
lable1.font="......"
如:
lable1.forecolor=#FF0000
lable1.font="宋体"

在右边的属性里找到Backcolor改颜色，Fontname变字体

label1.ForeColor = vb.red

Label1.Font = "宋体"

写到按钮里面就好了

有一个FONTS，里面可以设置！