?? 如何去掉treeview的提示條.txt
字號:
這 是 TreeView Style設(shè) 置 問 題 , 用 下 面 的 代 碼 就 可 以 解 決 問 題 :
'程 序 定 義
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
'程 序 調(diào) 用
Dim l As Long
l = GetWindowLong(TreeView1.hwnd, GWL_STYLE)
l = l Or TVS_NOTOOLTIPS
Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, l)
<END>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -