[求助]帮忙给看一下

group3686

这个控件的代码怎么写？运行时按下某命令按纽则对文本框中的文字完成相应的设置。其中每单击一次增大或缩小将使文本框中的文字增大或缩小5磅。

group3686

谢谢啊.非常感谢!

Joe5525601

Private Sub C1_Click()
If T1.Font.Size <= 50 Then
T1.Font.Size = T1.Font.Size *1.1
End If
End Sub

Private Sub C2_Click()
If T1.Font.Size >= 9.5 Then
T1.Font.Size = T1.Font.Size /1.1
End If
End Sub

Private Sub C3_Click()
T1.Font.Underline = Not T1.Font.Underline
End Sub

Private Sub C4_Click()
T1.Font.Strikethrough = Not T1.Font.Strikethrough
End Sub

Private Sub C5_Click()
T1.Font.Bold = Not T1.Font.Bold
End Sub

Private Sub C6_Click()
T1.Font.Italic = Not T1.Font.Italic
End Sub

group3686

以下是引用Joe5525601在2007-1-15 13:53:00的发言：

老兄啊,我看不到代码啊!只是看到了效果!请在帮忙把代码给我写一遍啊!初学VB还请多多帮忙!

Joe5525601

一点通

请修改标题,写出简要内容