请大家帮我看一下这段VB代码

来源：百度知道编辑：UC知道时间：2024/06/01 10:24:41

用复选框控制文本输入是否加“下划线”和“斜体显示”。

Private Sub Display_Change()
If UnderOn.Value = 1 Then
Display.FontUnderline = True
ElseIf ItalicOn.Value = 1 Then
Display.FontItalic = True
End If
End Sub

Private Sub Form_Load()
Display.FontSize = 20
End Sub

Private Sub ItalicOn_Click()
If ItalicOn.Value = 1 Then
Display.FontItalic = True
Else
Display.FontItalic = False
End If
End Sub

Private Sub UnderOn_Click()
If UnderOn.Value = 1 Then
Display.FontUnderline = True
Else
Display.FontUnderline = False
End If
End Sub

这段代码中Display_Change事件过程是不是多余的？去掉Display_Change过程里的代码感觉对程序的运行没有任何影响。
谢谢大家！

一、如果Display是text控件，则没有影响，因为text控件不支持“下划线”和“斜体显示”;
二、如果是Richtextbox控件，则有影响。
此时，如果你先选择是否加“下划线”和“斜体显示”,然后再输入文本，就会有变化。

赞成票

可以去掉，那是多余的。

初学

帮我看一下这段VB代码？ vb下标越界问题,快考试了，请帮我看一下这段代码请大家帮我解释一下这段代码（VB）请高手帮我看一下我的这段VB代码错在哪了啊?谢谢! vb高手在帮我看一下这段代码．谢谢了． VB帮我看一下代码VB (VB)谁帮我翻译一下这段代码?~~~~ 谁用VB帮我算一下这段代码 VB的问题~请大家帮我详细解释下~下面这段代码大家帮我看看这段VB代码！！～急