将 VB6 树视图中的节点设置为斜体

Question

我希望能够将树视图中各个节点上的文本设置为斜体。听起来很简单，但我一直没能找到方法。节点上没有允许它的属性。我可以将其设置为粗体或更改颜色或设置背景颜色，但不能将其设置为斜体。有谁知道该怎么做？

Answer 1

你是对的，这听起来很简单。然而遗憾的是，在现实中做到这一点并不那么简单。 VB6 中的树视图控件是通用控件树视图的包装，但它没有公开该控件的大部分功能。您可以通过对控件进行子类化并将项目绘制事件处理为所有者绘制来执行您想要的操作。我没有方便地设置 VB6 IDE，但这里有一些很好的资源供您查看：

Brad Martinez 的有关 VB6 核心技巧的网站：
http://btmtz.mvps.org/treeview/

和我个人最喜欢的：
史蒂夫·麦克马洪 (Steve McMahon) 的 VBAccelerator 网站
http://www.vbaccelerator.com/home/VB /Code/Controls/TreeView/TreeView_Control/article.asp 它有一个非常好的自定义控件实现，您可以将其直接放入项目、源代码等中。

这两个网站和 Karl Peterson 的网站一样，对于 VB6 开发来说是不可或缺的：
http://vb.mvps.org/

祝你好运！

Answer 2

没有简单的方法可以做到这一点。基本上，您必须：

• 中的TreeView 控件
• 使用 Microsoft Windows Common Controls 5.0 (SP2)子类控件的 hWnd
• 对 OCM_NOTIFY 消息检查 NM_CUSTOMDRAW
  • 在舞台上CDDS_PREPAINT返回CDRF_NOTIFYITEMDRAW
  • 在舞台上CDDS_ITEMPREPAINT选择传入的hDC中的自定义字体并返回CDRF_NEWFONT

也没有简单的方法从树视图节点获取hItem。我正在使用这种黑客方式：

Private Function pvGetHItem(oNode As ComctlLib.Node) As Long
    Call CopyMemory(pvGetHItem, ByVal ObjPtr(oNode) + 68, 4)
End Function