vb改变字形的代码是什么_VB怎么改变字体?

比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...

比如一个控件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 + 5 = 8"

Label1.FontSize = 10

现在我按Label1会出现那些我打的字..然后我按Command2会出现变大2号的字..那怎么让我按Command2的时候字除了边大,还能改变字体和颜色?

展开

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Font = New Font("宋体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Font = New Font("隶书", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox1.Font = New Font("黑体", TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 12, TextBox1.Font.Style) End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, 18, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) TextBox1.Font = New Font(TextBox1.Font.FontFamily, TextBox1.Font.Size, TextBox1.Font.Style) End Sub Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If (CheckBox1.Checked) Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Bold) End If End Sub Private Sub Form1_Load(ByVal sender As System.Obje

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值