![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
2个回答
展开全部
注意:假设控件名称如下图所示:
在编写代码状态,双击“黑体”文字。即双击控件Option1,出现如下代码窗口:
Option Explicit
rivate Sub Option1_Click()
|
End Sub
在光标处输入: Text1.Font.Name = "黑体"
类似方法,分别双击 控件 Option2、Check1、Check2,一一编写代码,完整的代码如下:
Option Explicit
Private Sub Check1_Click()
Text1.Font.Bold = Check1.Value
End Sub
Private Sub Check2_Click()
Text1.Font.Italic = Check2.Value
End Sub
Private Sub Option1_Click()
Text1.Font.Name = "黑体"
End Sub
Private Sub Option2_Click()
Text1.Font.Name = "宋体"
End Sub
追问
还有点问题,可以加一下联系方式吗qq微信都可以
![](https://ecmb.bdimg.com/kmarketingadslogo/6ad5b91b136c1ec279ab1b383ae8d1fd_60_60.jpg)
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询