请教一个控件提示文本的问题

zzcjp

在固定宽度的文本框显示超过文本框宽度的文本信息时，无法显示所有文本的内容，如何让鼠标停留在控件上一段时间后显示该文本框的内容？

海狸先生

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

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

海狸先生

没有出现预期的控件提示文本，这很正常，因为我这是供你参考的。