如何去掉TreeView的提示条
编号：QA003160
建立日期: 2000年7月16日 最后修改日期：2000年7月16日
所属类别：
Ｑ
王芳:
操作系统：WIN98
编程工具：VB6.0
问题：我在使用TREEVIEW控件编程时发现，当NODETEXT的宽度超过TREEVIEW的宽度时，总有一条提示条，据说这是控件本身自带的功能，我想既然能加上就能去掉，为了使我的界面更优化，我想去掉它，但查阅了不少资料没有找到答案。
Ａ回答:
这是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)
Chen http://www.applevb.com/
此问题由Chen回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Windows 9x控件, listview, treeview, monthview, progress bar。
| |
|
|
| |
|
|
