-1

我正在尝试将我的 VB6 代码移植到 .NET，但有些东西我只是找不到：

在VB6中我说（伪代码）

OpenThemeData "ExplorerBar"

进而...

DrawThemeBackground Lib "UxTheme.dll" (ByVal hTheme As IntPtr, ByVal hdc As IntPtr, ByVal iPartId As Integer, ByVal iStateId As Integer, ByRef pRect As RECT, ByRef pClipRect As RECT) As Integer

现在有了.NET，我只是找不到那个背景。

    Dim renderer As VisualStyleRenderer
    renderer = New VisualStyleRenderer(VisualStyleElement.ExplorerBar.NormalGroupBackground.Normal)

我想我在“ExplorerBar”下尝试了所有可用的，但没有一个给我与 VB6 相同的结果。

非常感谢你的帮助！

4

1 回答 1

1

知道了：

renderer = New VisualStyleRenderer("ExplorerBar", 0, 0)
于 2012-10-31T14:15:35.547 回答