Office中国论坛/Access中国论坛

标题: 请教一个控件提示文本的问题 [打印本页]

作者: zzcjp 时间: 2005-7-10 08:49
标题: 请教一个控件提示文本的问题
在固定宽度的文本框显示超过文本框宽度的文本信息时，无法显示所有文本的内容，如何让鼠标停留在控件上一段时间后显示该文本框的内容？

作者: 海狸先生 时间: 2005-7-11 00:13
Option Compare Database

Option Explicit

Dim fn As Boolean

Private Sub sz_Change()

sz.ControlTipText = Nz(sz.Text)

End SubPrivate Sub sz_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Not fn Then sz.ControlTipText = Nz(sz)

fn = True

End Sub

Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fn = False

End Sub

作者: zzcjp 时间: 2005-7-11 09:00
海狸先生：我将代码粘贴到窗体中运行，没有出现预期的控件提示文本，在主体－鼠标移动事件中设中断逐步运行，运行完主体－鼠标移动中的fn＝false后直接结束这个过程。请教如何修改？谢谢！

作者: 海狸先生 时间: 2005-7-11 15:47
没有出现预期的控件提示文本，这很正常，因为我这是供你参考的。

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