Office中国论坛/Access中国论坛

标题: 将鼠标放到控件上停一下，你看到什么 [打印本页]

作者: Y.J.Wang 时间: 2002-10-6 08:16
标题: 将鼠标放到控件上停一下，你看到什么
文件下载
将鼠标放到控件上停一下，你看到什么

作者: tmtony 时间: 2002-10-6 08:24
这儿也有一个哦:）
http://www.office-cn.net/software/sf_info.asp?tableid=ssourcecode_v&id=101
我用过,效果很不错的

作者: WTM1 时间: 2002-10-8 19:45
在加载项插入代码：
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

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