Question

单击文本框后，文本框中的内容将按复选框的选取情况显示相应效果。 请编写文本框控件Text1的Click事件代码

单击文本框后，文本框中的内容将按复选框的选取情况显示相应效果。
请编写文本框控件Text1的Click事件代码。

Answer 1

Private Sub Text1_Click()
Text1.FontBold = Check1.Value
Text1.FontItalic = Check2.Value
Text1.FontUnderline = Check3.Value
End Sub

追问

好像没用，命令中有不能识别的短语和关键字；

追答

你用的什么编程软件，vb通过

追问

用的是VF哦

追答

那你就
thisform.Text1.FontBold =thisform. Check1.Value
thisform.Text1.FontItalic =thisform. Check2.Value
thisform.Text1.FontUnderline =thisform. Check3.Value

Answer 2

在pb里面，click事件中直接写就行
if cbx_1.checked then
text = "粗体"
end if
if cbx_2.checked then
text = "下划线"
end if
就可以实现，如果已经有文字了，可以点击事件默认选中字，然后执行上面的

追问

好像没用，命令中有不能识别的短语和关键字；

追答

你可以先在text1属性选项那里选中下划线，然后你打开程序源码，就可以看到它里面是怎么写的，然后你可以参照

Answer 3

Private Sub Text1_Change()
If Check1.Value = 1 Then
Text1.FontBold = True '粗体
End If
If Check2 = 1 Then
Text1.FontItalic = True '斜体
End If
If Check3 = 1 Then
Text1.FontUnderline = True '下划线
End If
End Sub

追问

语法有错误哦

追答

If Check1.Value = 1 Then
Text1.FontBold = True '粗体
End If
If Check2.Value = 1 Then
Text1.FontItalic = True '斜体
End If
If Check3.Value = 1 Then
Text1.FontUnderline = True '下划线
End If
怎么我这边没有错误的？？！！试一下这个，应该没问题才对