找回密码
 加入
搜索
查看: 682|回复: 1

[AU3基础] Listview原地编辑,如何随意置顶显示List控件?(已解决)

[复制链接]
发表于 2022-6-1 23:40:02 | 显示全部楼层 |阅读模式
本帖最后由 Alam 于 2022-6-2 07:45 编辑

就是想实现类似Excel的快捷可选择性输入,想随着Edit输入变化,在List控件提供对应的数据。

但现在卡在无法随心按需要显示list控件。已提供相关简略代码,并附有注释,寻求大大们的帮助。
原地编辑代码来自论坛“蛋”大大
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <Editconstants.au3>
#include <GUIEdit.au3>
#include <GuiButton.au3>
#include <GuiListBox.au3>
#include <WinAPI.au3>
#include <WinAPIEX.au3>
Global $msg, $hWnd, $hListview, $hEdit, $aHit, $aPos, $hDC, $hBrush
Global $hListBox, $hButton
HotKeySet("{Enter}", '_end_edit')
main()
Func main()
        $hWnd = GUICreate('')
        $hListview = _GUICtrlListView_Create($hWnd, "", 6, 6, 708, 370, BitOR($LVS_EDITLABELS, $LVS_REPORT))
        _GUICtrlListView_SetExtendedListViewStyle($hListview, $LVS_EX_GRIDLINES)
        For $i = 0 To 4
                _GUICtrlListView_InsertColumn($hListview, 0, "row" & $i, 98)
        Next
        For $i = 0 To 4
                _GUICtrlListView_AddItem($hListview, 'item' & $i, $i)
                For $j = 1 To 4
                        _GUICtrlListView_AddSubItem($hListview, $i, 'subitem' & $j, $j)
                Next
        Next
        GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
        GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

        GUISetState(@SW_SHOW)
        Do
        Until GUIGetMsg() = -3
EndFunc   ;==>main
Func _end_edit()
        If Not IsHWnd($hEdit) Then
                HotKeySet('{enter}')
                Send('{enter}')
                HotKeySet('{enter}', '_end_edit')
        Else
                Local $iText = _GUICtrlEdit_GetText($hEdit)
                $aHit = _GUICtrlListView_SubItemHitTest($hListview)
                _GUICtrlListView_SetItemText($hListview, $aHit[0], $iText, $aHit[1])
                _WinAPI_DeleteObject($hBrush)
                _WinAPI_ReleaseDC($hEdit, $hDC)
                _WinAPI_DestroyWindow($hEdit)
                _WinAPI_DestroyWindow($hListBox)
                _WinAPI_DestroyWindow($hButton)
                _GUICtrlEdit_Destroy($hEdit)
                _GUICtrlButton_Destroy($hButton)
                _GUICtrlListBox_Destroy($hListBox)
                $Item = -1
                $SubItem = 0
        EndIf
        
EndFunc   ;==>_end_edit
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
        Local $tNMHDR, $hWndFrom, $iCode
        $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
        $hWndFrom = DllStructGetData($tNMHDR, "hWndFrom")
        $iCode = DllStructGetData($tNMHDR, "Code")
        Switch $iCode
                Case $NM_DBLCLK
                        If IsHWnd($hEdit) Then _end_edit()
                        $aHit = _GUICtrlListView_SubItemHitTest($hListview)
                        Local $aRect = _GUICtrlListView_GetSubItemRect($hListview, $aHit[0], $aHit[1])
                        Local $aPos = ControlGetPos($hWnd, "", $hListview)
                        Local $text = _GUICtrlListView_GetItemText($hListview, $aHit[0], $aHit[1])
                        $hEdit = _GUICtrlEdit_Create($hWnd, $text, $aPos[0] + $aRect[0], $aPos[1] + $aRect[1], _GUICtrlListView_GetColumnWidth($hListview, $aHit[1]) - 19, 17, BitOR($WS_CHILD, $WS_VISIBLE, $ES_AUTOHSCROLL, $ES_RIGHT))
                        $hButton = _GUICtrlButton_Create($hWnd, '^', $aPos[0] + $aRect[0] + _GUICtrlListView_GetColumnWidth($hListview, $aHit[1]) - 17, $aPos[1] + $aRect[1], 20, 17, BitOR($WS_CHILD, $WS_VISIBLE, $ES_AUTOHSCROLL, $ES_RIGHT))
                        _WinAPI_BringWindowToTop($hButton)
                        _Create_ListBox() ; 这里新建控件,能正常显示
                        _GUICtrlEdit_SetSel($hEdit, 0, -1)
                        _WinAPI_SetFocus($hEdit)
                        $hDC = _WinAPI_GetWindowDC($hEdit)
                        $hBrush = _WinAPI_CreateSolidBrush(0x0000FF)
                        FrameRect($hDC, 0, 0, _GUICtrlListView_GetColumnWidth($hListview, $aHit[1]), 17, $hBrush)
        EndSwitch
EndFunc   ;==>WM_NOTIFY
Func FrameRect($hDC, $nLeft, $nTop, $nRight, $nBottom, $hBrush)
        Local $stRect = DllStructCreate("int;int;int;int")
        DllStructSetData($stRect, 1, $nLeft)
        DllStructSetData($stRect, 2, $nTop)
        DllStructSetData($stRect, 3, $nRight)
        DllStructSetData($stRect, 4, $nBottom)
        DllCall("user32.dll", "int", "FrameRect", "hwnd", $hDC, "ptr", DllStructGetPtr($stRect), "hwnd", $hBrush)
EndFunc   ;==>FrameRect
Func WM_COMMAND($hWnd, $msg, $wParam, $lParam)
        Local $iCode = BitShift($wParam, 16)
        If IsHWnd($hEdit) Then
                Switch $lParam
                        Case $hButton
                                If $iCode == $BN_CLICKED Then _Create_ListBox();新建控件,也无法正常显示了
                                ;或者,如何显示隐藏的 ListBox 控件,并置顶显示出来?

                        Case $hListBox
                                If $iCode == $LBN_SELCHANGE Then ;选择后,隐藏或销毁控件
                                        _GUICtrlEdit_SetText($hEdit, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)))
                                        ;ControlHide($hListBox, '', '');;; 隐藏窗口
                                        _GUICtrlListBox_Destroy($hListBox)
                                        _WinAPI_DestroyWindow($hListBox)
                                EndIf
                EndSwitch
        EndIf
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND
Func _Create_ListBox()
        $aHit = _GUICtrlListView_SubItemHitTest($hListview)
        Local $aRect = _GUICtrlListView_GetSubItemRect($hListview, $aHit[0], $aHit[1])
        Local $aPos = ControlGetPos($hWnd, "", $hListview)
        $hListBox = _GUICtrlListBox_Create($hWnd, '', $aPos[0] + $aRect[0], $aPos[1] + $aRect[1] + 18, _GUICtrlListView_GetColumnWidth($hListview, $aHit[1]), 17 * 8, BitOR($WS_CHILD, $WS_VISIBLE))
        _WinAPI_BringWindowToTop($hListBox)
        For $i = 1 To 6
                _GUICtrlListBox_AddString($hListBox, $i & $i & $i & $i & $i & $i)
        Next
        
        
EndFunc   ;==>_Create_ListBox
 楼主| 发表于 2022-6-2 07:45:03 | 显示全部楼层

已解决, 显示控件后,设置焦点即可
ControlShow($hListBox, '', '')
ControlFocus ( $hListBox, '', '')
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-20 20:52 , Processed in 0.073146 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表