请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框和一个单选按钮时, 单击命令按钮,
则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。为什么总是让我调试呢?...
则对文本框中的文本内容做相应的设置。
请编写适当的事件过程,
完成上述
功能。
为什么总是让我调试呢? 展开
请编写适当的事件过程,
完成上述
功能。
为什么总是让我调试呢? 展开
1个回答
展开全部
If Option1.Value = True Then Text1.FontName = "宋体"
If Option2.Value = True Then Text1.FontName = "隶书"
If Check1.Value = 1 Then
Text1.Font.Underline = True '下划线
Else
Text1.Font.Underline = False '下划线
End If
If Check2.Value = 1 Then
Text1.Font.Italic = True '斜体
Else
Text1.Font.Italic = False '斜体
End If
If Option2.Value = True And Check2.Value = 1 Then
MsgBox "隶书不能设为斜体"
Check2.Value = 0
End If
If Option2.Value = True And Check1.Value = 1 Then
MsgBox "隶书不能设为下划线"
Check1.Value = 0
End If
If Option2.Value = True Then Text1.FontName = "隶书"
If Check1.Value = 1 Then
Text1.Font.Underline = True '下划线
Else
Text1.Font.Underline = False '下划线
End If
If Check2.Value = 1 Then
Text1.Font.Italic = True '斜体
Else
Text1.Font.Italic = False '斜体
End If
If Option2.Value = True And Check2.Value = 1 Then
MsgBox "隶书不能设为斜体"
Check2.Value = 0
End If
If Option2.Value = True And Check1.Value = 1 Then
MsgBox "隶书不能设为下划线"
Check1.Value = 0
End If
更多追问追答
追问
还是不对啊
追答
什么地方不对
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询