如何去掉treeview的提示条.txt

VB技巧问答10000例 VB技巧问答10000例

这 是 TreeView Style设 置 问 题 ， 用 下 面 的 代 码 就 可 以 解 决 问 题 ： 
     
    '程 序 定 义 
    Const TVS_NOTOOLTIPS = &H80 
    Const TVS_INFOTIP = &H400 
    Const GWL_EXSTYLE = (-20) 
    Const GWL_STYLE = (-16) 
     
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ 
     (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ 
     (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) _ 
     As Long 
     
    '程 序 调 用 
     Dim l As Long 
     
     l = GetWindowLong(TreeView1.hwnd, GWL_STYLE) 
     l = l Or TVS_NOTOOLTIPS 
     Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, l) 
<END>