将鼠标放到控件上停一下，你看到什么

Y.J.Wang

文件下载
将鼠标放到控件上停一下，你看到什么

WTM1

在加载项插入代码：
Private Sub Form_Load()

' Create an instance of our Tooltip class
Set TTip = New clsToolTip

' We must SetFocus to any control that can
' accept the focus in order to force Access to
' create the inplace editing Window.
Me.txtCompanyName.SetFocus

With TTip
    ' Creat the tooltip window
    Call .Create(Me)
   
    ' Set the tooltip window to show for 5 secs
    .DelayTime = 5000
   
    .SetToolTipTitle "CUSTOM TOOLTIPS", 0
   
    ' ToolTip text colors
    .ForeColor = vbBlue
    .BackColor = RGB(192, 192, 192)
  ' Set the text for the Notes label.
    .SetToolText Me.Lablel_Notes, "I am the Notes Label." & vbCrLf & "This is the second line!"
   
'Lablel_Notes==控件名
'“    ”内为现实内容！
End With

' Fill in our NOTES unbound TextBox
Me.txtNotes = "Move your Mouse over the any of the controls to see the Custom Tooltips." & vbCrLf
Me.txtNotes = Me.txtNotes & "Try moving the Mouse over the ListBox." & vbCrLf
Me.txtNotes = Me.txtNotes & "This works even if the ListBox does not have the focus!"

End Sub

tmtony

这儿也有一个哦:）
http://www.office-cn.net/software/sf_info.asp?tableid=ssourcecode_v&id=101
我用过,效果很不错的