程序代码：

[local]1[/local]
Private Sub Form_Load()
dispaly.FontSize = 20
End Sub

Private Sub dispaly_Change()
If underon.Value = 1 Then
dispaly.FontUnderline = True
ElseIf Italic.Value = 1 Then
dispaly.FontItalic = True
End If
End Sub

Private Sub Italic_Click()
If Italic.Value = 1 Then
dispaly.FontItalic = True
Else
dispaly.FontItalic = False
End If
End Sub

Private Sub underon_Click()
If underon.Value = 1 Then
dispaly.FontUnderline = True
Else
dispaly.FontUnderline = False
End If
End Sub

感觉第二段dispaly_Change()事件完全是多余的，除掉之后程序还是能运行，谁能告诉我它干什么用的吗？

QQ截图20120205150837.png (14.84 KB)

图片附件: 游客没有浏览图片的权限，请 登录 或 注册