假定有个员工表，希望将鼠标移到备注列的时候，能够自动显示所有的备注内容，鼠标离开备注列的时候，能自动隐藏提示，如图所示：

要实现这个功能非常的简单:

1、在MouseEnterCell事件设置代码：

If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Then
e.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)
End If

2、在MouseLeaveCell事件设置代码：

If e.Col.Name = "备注" Then
e.Table.HideToolTip()
End If

此主题相关图片如下：qq截图20170801191053.jpg

程序原本是红框内的宽度，我想设置成为蓝框内的宽度，请问怎么设置？

然后鼠标进入后，出现的位置可以设置吗

你可以适当加入回车符号，如

Dim str As String = "1111111111111111111111111111111111111111"
Dim n As Integer = 12
Dim i As Integer = 0
Dim nstr As String = ""
For Each s As String In str
    i += 1
    If i Mod n = 0 Then
        nstr &= s & vbcrlf
    Else
        nstr &= s
    End If
Next
msgbox(nstr)