沒什么需要特別說明說的，有疑問就看msdn吧，窗體上兩個按鈕，一個treeview：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" _
?Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
?ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" _
?Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _
?As Long

Private Const TVS_NOTOOLTIPS = &H80
Private Const GWL_STYLE = (-16)

Private Sub ShowToolTips(TreeView As TreeView)
? Dim nStyles As Long
?
? With TreeView
??? nStyles = GetWindowLong(.hwnd, GWL_STYLE)
??? nStyles = nStyles And (Not TVS_NOTOOLTIPS)
??? SetWindowLong .hwnd, GWL_STYLE, nStyles
? End With
End Sub

Private Sub HideToolTips(TreeView As TreeView)
? Dim nStyles As Long
?
? With TreeView
??? nStyles = GetWindowLong(.hwnd, GWL_STYLE)
??? nStyles = nStyles Or TVS_NOTOOLTIPS
??? SetWindowLong .hwnd, GWL_STYLE, nStyles
? End With
End Sub

Private Sub Command1_Click()
??? HideToolTips Me.TreeView1
End Sub

Private Sub Command2_Click()
??? ShowToolTips Me.TreeView1
End Sub

Private Sub Form_Load()
??? Command1.Caption = "隱藏ToolTips"
??? Command2.Caption = "顯示ToolTips"
??? Dim i As Long
??? For i = 1 To 100
??? Me.TreeView1.Nodes.Add , , , "hello this is test hello this is test hello this is test" & CStr(i)
??? Next
End Sub

轉載于:https://www.cnblogs.com/rainstormmaster/archive/2006/02/11/329085.html

總結

以上是生活随笔為你收集整理的VB：如何隐藏/显示treeview的ToolTips的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。