|
本帖最后由 qinylj 于 2012-11-24 13:20 编辑 #include <GuiListView.au3>
#include <Editconstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
;2011.11.09 by bbs.wglm.net 小A 修改至:yhxhappy 2012.11.22由qinylj修改
;[修改] 删掉了原来的Enter键,仅仅换成Input输入,但是这是目前我比较满意的一个Listview原地编辑例子,字体正常,支持右键复制
Global $ListView_HitItem, $Listview_HitItemIndex, $Listview_HitItemSubItem, $ListView_HitItemInput;定义全局变量粘贴
Global $ListView1_HitItem, $ListView1_HitItemIndex, $ListView1_HitItemSubItem, $ListView1_HitItemInput;定义全局变量
$Form = GUICreate("LIST原位编辑支持子项 by 小A&修改by qinylj,感谢蛋蛋大大的帮助", 1200, 708)
GUISetFont(9, 400, 0, "微软雅黑")
$ListView = GUICtrlCreateListView("1|2|3|4", 8, 8, 592, 700)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);扩展风格
$ListView1 = GUICtrlCreateListView("1|2|3|4", 600, 8, 592, 700)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);扩展风格
$label = GUICtrlCreateLabel("", -100, -100, 1, 1)
GUISetState(@SW_SHOW)
For $i = 0 To 3
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, $i, 135)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, $i, 130)
Next
For $i = 0 To 120
GUICtrlCreateListViewItem("Au3中文论坛啊,呵呵" & $i & "|Autoit中文论坛" & $i & "|感谢蛋蛋大大netegg" & $i & "|还要感谢小A" & $i, $ListView)
GUICtrlCreateListViewItem("Qinylj啊,哈哈" & $i & "|BY Qinylj我晕哦" & $i & "|小A是哪个?" & $i & "|修改By啊Qinylj" & $i, $ListView1)
Next
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $tNMHDR, $hWndFrom, $iCode
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = DllStructGetData($tNMHDR, 'hWndFrom')
$iCode = DllStructGetData($tNMHDR, 'Code')
Switch $hWndFrom
Case GUICtrlGetHandle($ListView)
Switch $iCode
Case $NM_DBLCLK;双击消息
$ListView_HitItem = _GUICtrlListView_SubItemHitTest(GUICtrlGetHandle($ListView));确定哪些项目或子项目在控件的给定位置,参见帮助文件
$Listview_HitItemIndex = $ListView_HitItem[0];获取点击项目的0基索引
$Listview_HitItemSubItem = $ListView_HitItem[1];获取点击项目的子项索引
If $Listview_HitItemIndex = -1 Then Return
$ListView_HitItemPos = ControlGetPos($Form, "", $ListView);获取Listview坐标
$ListView_HitItemRect = _GUICtrlListView_GetSubItemRect($ListView, $ListView_HitItem[0], $ListView_HitItem[1]);获取点击项的边界矩形
$ListView_HitItemText = _GUICtrlListView_GetItemText($ListView, $ListView_HitItem[0], $ListView_HitItem[1]) ;读取所点击单元格的文本
$ListView_HitItemInput = GUICtrlCreateInput($ListView_HitItemText, _ ;创建一个与单元格差不多大小的输入框 ;$ListView_HitItemText为在Input控件中显示的文本
$ListView_HitItemRect[0] + $ListView_HitItemPos[0] + 4, _;Input控件距离左侧的值,即X坐标,由点击项目的X坐标加上Listview的X坐标再加上4(4为微调值,保证X坐标吻合)
$ListView_HitItemRect[1] + $ListView_HitItemPos[1] + 2, _;Input控件距离上方的值,即Y坐标,由点击项目的Y坐标加上Listview的Y坐标再加上2(2为微调值,保证Y坐标吻合)
_GUICtrlListView_GetColumnWidth($ListView, $ListView_HitItem[1]) - 2, _;Input控件的宽度
$ListView_HitItemRect[3] - $ListView_HitItemRect[1]);Input控件的高度
GUICtrlSetState(-1, $GUI_ONTOP + $GUI_FOCUS) ;使输入框具有焦点及置顶
EndSwitch
Case GUICtrlGetHandle($ListView1)
Switch $iCode
Case $NM_DBLCLK;双击消息
$ListView1_HitItem = _GUICtrlListView_SubItemHitTest(GUICtrlGetHandle($ListView1));确定哪些项目或子项目在控件的给定位置,参见帮助文件
$ListView1_HitItemIndex = $ListView1_HitItem[0];获取点击项目的0基索引
$ListView1_HitItemSubItem = $ListView1_HitItem[1];获取点击项目的子项索引
If $ListView1_HitItemIndex = -1 Then Return
$ListView1_HitItemPos = ControlGetPos($Form, "", $ListView1);获取Listview坐标
$ListView1_HitItemRect = _GUICtrlListView_GetSubItemRect($ListView1, $ListView1_HitItem[0], $ListView1_HitItem[1]);获取点击项的边界矩形
$ListView1_HitItemText = _GUICtrlListView_GetItemText($ListView1, $ListView1_HitItem[0], $ListView1_HitItem[1]) ;读取所点击单元格的文本
$ListView1_HitItemInput = GUICtrlCreateInput($ListView1_HitItemText, _ ;创建一个与单元格差不多大小的输入框 ;$ListView1_HitItemText为在Input控件中显示的文本
$ListView1_HitItemRect[0] + $ListView1_HitItemPos[0] + 4, _;Input控件距离左侧的值,即X坐标,由点击项目的X坐标加上Listview的X坐标再加上4(4为微调值,保证X坐标吻合)
$ListView1_HitItemRect[1] + $ListView1_HitItemPos[1] + 2, _;Input控件距离上方的值,即Y坐标,由点击项目的Y坐标加上Listview的Y坐标再加上2(2为微调值,保证Y坐标吻合)
_GUICtrlListView_GetColumnWidth($ListView1, $ListView1_HitItem[1]) - 2, _;Input控件的宽度
$ListView1_HitItemRect[3] - $ListView1_HitItemRect[1]);Input控件的高度
GUICtrlSetState(-1, $GUI_ONTOP + $GUI_FOCUS) ;使输入框具有焦点及置顶
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16);获取高位
$iIDFrom = BitAND($iwParam, 0x0000FFFF);获取低位
Switch $hWndFrom
Case GUICtrlGetHandle($ListView_HitItemInput)
Switch $iCode
Case $EN_KILLFOCUS ; 控件丢失键盘焦点时发送
_GUICtrlListView_SetItemText($ListView, $Listview_HitItemIndex, GUICtrlRead($ListView_HitItemInput), $Listview_HitItemSubItem) ;更改子项文本,$Listview_HitItemIndex项目索引,$Listview_HitItemSubItem子项的索引
GUICtrlDelete($ListView_HitItemInput);删除Input控件
EndSwitch
Case GUICtrlGetHandle($ListView1_HitItemInput)
Switch $iCode
Case $EN_KILLFOCUS ; 控件丢失键盘焦点时发送
_GUICtrlListView_SetItemText($ListView1, $ListView1_HitItemIndex, GUICtrlRead($ListView1_HitItemInput), $ListView1_HitItemSubItem) ;更改子项文本,$ListView1_HitItemIndex项目索引,$ListView1_HitItemSubItem子项的索引
GUICtrlDelete($ListView1_HitItemInput);删除Input控件
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_COMMAND
上面这段代码中有两个Listview,现在出现的问题是双击第一个Listview编辑后,再去双击第二个Listview编辑时就会出现问题,失去焦点后不是修改第二个Listview的编辑项,而是修改第一个Listview中最后编辑的项目,我把下面的代码放到前面一点(Case GUICtrlGetHandle($ListView_HitItemInput))就会出现编辑了第二个Listview后再编辑第一个Listview修改的是第二个Listview的值 Case GUICtrlGetHandle($ListView1_HitItemInput)
Switch $iCode
Case $EN_KILLFOCUS ; 控件丢失键盘焦点时发送
_GUICtrlListView_SetItemText($ListView1, $ListView1_HitItemIndex, GUICtrlRead($ListView1_HitItemInput), $ListView1_HitItemSubItem) ;更改子项文本,$ListView1_HitItemIndex项目索引,$ListView1_HitItemSubItem子项的索引
GUICtrlDelete($ListView1_HitItemInput);删除Input控件
EndSwitch
纠结了好半天了,不知道问题出在哪里,希望各位帮忙试试,先感谢了
依然要感谢蛋蛋大大,呵呵,以下是修改后的代码:#include <GuiListView.au3>
#include <Editconstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
;2011.11.09 by bbs.wglm.net 小A 修改至:yhxhappy 2012.11.22由qinylj修改
;[修改] 删掉了原来的Enter键,仅仅换成Input输入,但是这是目前我比较满意的一个Listview原地编辑例子,字体正常,支持右键复制
Global $ListView_HitItem, $Listview_HitItemIndex, $Listview_HitItemSubItem, $ListView_HitItemInput, $Listview_EditLV;定义全局变量粘贴
$Form = GUICreate("LIST原位编辑支持子项 by 小A&修改by qinylj,感谢蛋蛋大大的帮助", 1200, 708)
GUISetFont(9, 400, 0, "微软雅黑")
$ListView = GUICtrlCreateListView("1|2|3|4", 8, 8, 592, 700)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);扩展风格
$ListView1 = GUICtrlCreateListView("1|2|3|4", 600, 8, 592, 700)
GUICtrlSendMsg($ListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES);扩展风格
$label = GUICtrlCreateLabel("", -100, -100, 1, 1)
GUISetState(@SW_SHOW)
For $i = 0 To 3
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, $i, 135)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, $i, 130)
Next
For $i = 0 To 120
GUICtrlCreateListViewItem("Au3中文论坛啊,呵呵" & $i & "|Autoit中文论坛" & $i & "|感谢蛋蛋大大netegg" & $i & "|还要感谢小A" & $i, $ListView)
GUICtrlCreateListViewItem("Qinylj啊,哈哈" & $i & "|BY Qinylj我晕哦" & $i & "|小A是哪个?" & $i & "|修改By啊Qinylj" & $i, $ListView1)
Next
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $tNMHDR, $hWndFrom, $iCode
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = DllStructGetData($tNMHDR, 'hWndFrom')
$iCode = DllStructGetData($tNMHDR, 'Code')
Switch $hWndFrom
Case GUICtrlGetHandle($ListView), GUICtrlGetHandle($ListView1)
Switch $iCode
Case $NM_DBLCLK;双击消息
$Listview_EditLV = $hWndFrom
$ListView_HitItem = _GUICtrlListView_SubItemHitTest($hWndFrom);确定哪些项目或子项目在控件的给定位置,参见帮助文件
$Listview_HitItemIndex = $ListView_HitItem[0];获取点击项目的0基索引
$Listview_HitItemSubItem = $ListView_HitItem[1];获取点击项目的子项索引
If $Listview_HitItemIndex = -1 Then Return
$ListView_HitItemPos = ControlGetPos($Form, "", $hWndFrom);获取Listview坐标
$ListView_HitItemRect = _GUICtrlListView_GetSubItemRect($hWndFrom, $ListView_HitItem[0], $ListView_HitItem[1]);获取点击项的边界矩形
$ListView_HitItemText = _GUICtrlListView_GetItemText($hWndFrom, $ListView_HitItem[0], $ListView_HitItem[1]) ;读取所点击单元格的文本
$ListView_HitItemInput = GUICtrlCreateInput($ListView_HitItemText, _ ;创建一个与单元格差不多大小的输入框 ;$ListView_HitItemText为在Input控件中显示的文本
$ListView_HitItemRect[0] + $ListView_HitItemPos[0] + 4, _;Input控件距离左侧的值,即X坐标,由点击项目的X坐标加上Listview的X坐标再加上4(4为微调值,保证X坐标吻合)
$ListView_HitItemRect[1] + $ListView_HitItemPos[1] + 2, _;Input控件距离上方的值,即Y坐标,由点击项目的Y坐标加上Listview的Y坐标再加上2(2为微调值,保证Y坐标吻合)
_GUICtrlListView_GetColumnWidth($hWndFrom, $ListView_HitItem[1]) - 2, _;Input控件的宽度
$ListView_HitItemRect[3] - $ListView_HitItemRect[1]);Input控件的高度
GUICtrlSetState(-1, $GUI_ONTOP + $GUI_FOCUS) ;使输入框具有焦点及置顶
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
Func _WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16);获取高位
$iIDFrom = BitAND($iwParam, 0x0000FFFF);获取低位
Switch $hWndFrom
Case GUICtrlGetHandle($ListView_HitItemInput)
Switch $iCode
Case $EN_KILLFOCUS ; 控件丢失键盘焦点时发送
_GUICtrlListView_SetItemText($Listview_EditLV, $Listview_HitItemIndex, GUICtrlRead($ListView_HitItemInput), $Listview_HitItemSubItem) ;更改子项文本,$Listview_HitItemIndex项目索引,$Listview_HitItemSubItem子项的索引
GUICtrlDelete($ListView_HitItemInput);删除Input控件
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_COMMAND
|
|