请问如何获得treeview区域中用户点了哪个item？

zerozha

代码如下：

#region ### START Koda GUI section ### Form=c:\users\mason-home\desktop\外包人员管理软件单机版\公司管理.kxf
$Main = GUICreate("公司管理", 785, 584, 410, 124)
$MenuItem1 = GUICtrlCreateMenu("设置(&Y)")
$MenuItem3 = GUICtrlCreateMenuItem("用户管理", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("参数设置", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("帮助(&Z)")
$MenuItem5 = GUICtrlCreateMenuItem("关于", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("退出", $MenuItem2)
$StatusBar = _GUICtrlStatusBar_Create($Main)
Dim $StatusBar_PartsWidth[2] = [400, -1]
_GUICtrlStatusBar_SetParts($StatusBar, $StatusBar_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar, "", 0)
_GUICtrlStatusBar_SetText($StatusBar, "", 1)
$Tab1 = GUICtrlCreateTab(0, 0, 780, 540, $TCS_BUTTONS)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("公司管理")
$TreeView1 = GUICtrlCreateTreeView(4, 28, 120, 505, BitOR($GUI_SS_DEFAULT_TREEVIEW, $WS_BORDER))
$Group1 = GUICtrlCreateGroup("公司基本信息", 144, 28, 545, 505)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Button1", 696, 56, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 696, 139, 75, 25)
$Button3 = GUICtrlCreateButton("Button3", 696, 221, 75, 25)
$Button4 = GUICtrlCreateButton("Button4", 696, 304, 75, 25)
$TabSheet3 = GUICtrlCreateTabItem("人员管理")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Tab1
                        $tabidx = GUICtrlRead($Tab1)
                        Select
                                Case $tabidx = 0
                                Case $tabidx = 1;公司管理标签
                                        _getCompanyTree()
                        EndSelect
                        

        EndSwitch
WEnd


Func _getCompanyTree()
        _GUICtrlTreeView_DeleteAll($TreeView1)
        _GUICtrlTreeView_BeginUpdate($TreeView1)
        
        Dim $addfld, $RS, $num
        $num = _accessCountRecords($adSource, $coTable)
        $hItem = _GUICtrlTreeView_Add($TreeView1, 0, "全部(" & $num & ")")
        $addfld = ObjCreate("ADODB.Connection")
        $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $adSource)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $addfld
        $RS.Open("Select 公司名称 From " & $coTable)
        While Not $RS.eof And Not $RS.bof
                If @error = 1 Then ExitLoop
                _GUICtrlTreeView_AddChild($TreeView1, $hItem, $RS.Fields(0).value)
                $RS.movenext
        WEnd
        $RS.movenext
        $RS.close
        $addfld.Close
        _GUICtrlTreeView_Expand($TreeView1)
        _GUICtrlTreeView_EndUpdate($TreeView1)

EndFunc   ;==>_getCompanyTree

nmgwddj

相同问题，我是用数组创建解决掉的。

afan

这个代码能运行？

nmgwddj

回复 3# afan

楼上的可能是这个意思，代码我贴上来了，其实我也很想实现，因为item是随机通过配置文件创建的，无法给固定的ID（通过数组方式可以，但是不想这么做），下面的例子可以获取到文本，但是每次点击都提示是上一次焦点项目的文本。苦恼！

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiTreeView.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 367, 368, 279, 176)
$TreeView1 = GUICtrlCreateTreeView(16, 16, 337, 337)
For $i = 1 To 10
        GUICtrlCreateTreeViewItem('TreeView_' & $i, $TreeView1)
Next
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
        Local $tagNMHDR, $Event, $hWndFrom, $IDFrom
        Local $tagNMHDR = DllStructCreate("int;int;int", $LParam)
        If @error Then Return $GUI_RUNDEFMSG
        $IDFrom = DllStructGetData($tagNMHDR, 2)
        $Event = DllStructGetData($tagNMHDR, 3)
        $tagNMHDR = 0
        Switch $IDFrom
                
                Case $TreeView1
                        Switch $Event; 选择产生的事件
                                Case $NM_CLICK ; 左击
                                        ;MsgBox(0, '', GUICtrlRead(GUICtrlRead($TreeView1)))
                                        MsgBox(0, '', _GUICtrlTreeView_GetText($TreeView1, GUICtrlRead($TreeView1)))
                EndSwitch
        
        EndSwitch
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

afan

回复 4# nmgwddj


    35行改为 Case $TVN_SELCHANGEDW

nmgwddj

回复 5# afan


    请教 $TVN_SELCHANGEDW 事件是？修改后运行程序msgbox弹出一次，点击列表 先弹出上次的焦点，再弹出我点击的文字。

afan

回复 6# nmgwddj


    会有两次消息，第一次 GUICtrlRead($TreeView1) 为 0，第二次才是需要的，加个判断即可
If GUICtrlRead($TreeView1) > 0 Then Msgbox...

nmgwddj

回复 7# afan


    谢谢，那个通知具体是什么意思，能解释下吗？

afan

回复 8# nmgwddj


    字面解释就是选择项已改变…

nmgwddj

懂了，谢谢指点，在帮助文档中看到例子了。

luke

学习了