好库网 好库网首页 | 我的好库
VB爱好者

字体改变事件 -VB资料

发布者:vbfans
发布日期:2011/4/10 15:00:46   更新日期:2011/4/10 15:00:46
阅读次数:1943
评分:4.80
介绍:字体改变事件 -VB资料
正文:



利用下面这个小程序,你就可以跟踪窗体或窗体中控件的字体变化,从而产生相应的事件对这一改变作出反应。首先你必须确认在工程中添加了对OLE Automation的引用。

在窗体的声明段中写入下面的代码

Private WithEvents fntAny As StdFont

Private Sub fntAny_FontChanged(ByVal PropertyName As String)

Select Case PropertyName

Case "Name"

'如果改变了字体名称,程序做什么?

Case "Size"

'如果改变了字体大小,程序做什么?

Case "Italic"

' 字体变成了斜体,程序做什么?

Case "Bold"

'字体变成了粗体,程序做什么?

Case "Underline"

' 字体加上了下划线,程序做什么?

' 以此类推,你可以针对字体的每一个属性编写相应的代码

End Select

End Sub

为了跟踪字体的改变,你还需要将对任何窗体或控件中的字体的引用指向fntAny.例如,为了跟踪窗体字体的改变,可将下面的代码加入窗体的Load事件中:

Set fntAny = Me.Font

如果是控件,就用Control.Font

请注意:经测试,这个程序有个严重的Bug。那就是无论所跟踪的窗体或控件的字体是否变化,都会触发该事件。例如,在一个窗体的Load事件中加入set fntAny=Me.Font,然后在Click事件中加入Me.Font=16,只要你点击了窗体都会触发该事件。

评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。