请问：能否实现鼠标经过某字段时显示其具体内容？

cashiba

子窗体中的某字段（文件内容）值比较长，在列宽固定的情况下无法看完整。请问：                                                                    


      能否实现象网页中的文字提示框一样，当鼠标点击或滑过某条记录的文件内容字段区域时，在旁边显示出具体内容？

hi-wzj

用代码控制控件的“控件提示文本”属性。

cashiba

请问hi-wzj 老师，如何编写代码呢？新手，恳请指点！

cashiba

控件提示文本 这里好像没有下拉箭头也没有省略号，怎么写代码呢？

hi-wzj

Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim t As String
If IsNull(Me.Text0) Then
   t = ""
Else
   t = Me.Text0
End If
Me.Text0.ControlTipText = t
End Sub

以上代码是在text0文本框鼠标移动后触发显示该文本框的内容（鼠标在上面移动一下，停止后显示出来）。

cashiba

好像不行啊，鼠标经过时只见闪烁，未见文本提示