systreeview32选中_SysTreeview32解决方案

VB codeOption Explicit

Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

'Structures

Public Type TVITEM

mask As Long

hItem As Long

state As Long

stateMask As Long

pszText As Long

cchTextMax As Long

iImage As Long

iSelectedImage As Long

cChildren As Long

lParam As Long

End Type

'public constants

Public Const TVIF_TEXT = 1

Public Const TVIF_HANDLE = &H10

Public Const TV_FIRST = &H1100&

Public Const TVM_GETCOUNT = TV_FIRST + 5

Public Const TVM_SELECTITEM = TV_FIRST + 11

Public Const