Office中国论坛/Access中国论坛

标题: [求助]帮忙给看一下 [打印本页]

作者: group3686 时间: 2007-1-15 20:21
标题: [求助]帮忙给看一下
这个控件的代码怎么写？运行时按下某命令按纽则对文本框中的文字完成相应的设置。其中每单击一次增大或缩小将使文本框中的文字增大或缩小5磅。[attach]22651[/attach]

作者: 一点通 时间: 2007-1-15 21:47
请修改标题,写出简要内容

作者: Joe5525601 时间: 2007-1-15 21:53
[attach]22656[/attach]

作者: group3686 时间: 2007-1-16 04:32

以下是引用Joe5525601在2007-1-15 13:53:00的发言：
[attach]22656[/attach]

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

作者: Joe5525601 时间: 2007-1-16 13:38
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 时间: 2007-1-16 20:34
谢谢啊.非常感谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)