ListView 子项目原地编辑复制修改导入数据库

chzj589

ListView 子项目原地编辑复制修改导入数据库
功能介绍
右键单击条目，显示条目信息到输入框。
右键双击条目，显示条目信息到编辑框。关闭列表。
左键双击子项目框，原地编辑。
左键双击子项目框后，右键单击子项目框，显示复制。
可将列表全部数据添加导入数据库。
可将一条数据添加导入数据库。
可将列表全部修改数据后导入数据库。
可将列表＜金额＞单列修改数据后导入＜合计＞数据库。






N年前的读取ListView 某列导入数据库的想法，今天终于解决

chzj589

回复 1# chzj589
谢取索要源码.....。
列表有排序功能，点击项目。
左键单击列表，可返回主窗口。

txen548

感謝LZ分享,很精品.

邪恶海盗

围观牛淫....

cihren

不能下载？？郁闷～

away2008

能把源代码贴出来吗？谢谢！没有下载的权限！

水木子

回复 1# chzj589
回复 5# cihren
回复 6# away2008

这是我的思路，希望对大家有帮助吧！
顺便卖个关子，留个问题给大家，代码如下，如果被编辑的项目在第一列并且第一列有复选框，怎么才能做得更美观呢？把你的思路（代码）贴上来吧！

#include <WinAPI.au3>
#include <GUIEdit.au3>
#include <WinAPIEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <FontConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


Global $Listview1, $hListview1, $Input1, $hEdit, $aHit, $aRect, $aPos
Global $iHeight = 20

$hWnd = GUICreate('Listview 子项目就地编辑', 600, 450)

$Listview1 = GUICtrlCreateListView('', 5, 5, 590, 430, BitOR($LVS_REPORT, $WS_BORDER), BitOR($LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT))
$hListview1 = GUICtrlGetHandle($Listview1)

$hImage = _GUIImageList_Create(1, $iHeight)
_GUICtrlListView_SetImageList($hListview1, $hImage, 1)

For $i = 0 To 4
        _GUICtrlListView_InsertColumn($hListview1, $i, 'Row ' & $i, 100)
Next

For $i = 0 To 4
        _GUICtrlListView_AddItem($hListview1, 'Item ' & $i, $i)
        _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 0, 1)
        _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 1, 2)
        _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 2, 3)
        _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 3, 4)
Next

$hFont = _WinAPI_CreateFont($iHeight - 2, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, '微软雅黑')
GUISetState()
GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

Do
Until GUIGetMsg() = -3

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
                        Global $aHit = _GUICtrlListView_SubItemHitTest($hListview1)
                        If $aHit[0] <> -1 Then
                                Local $aRect = _GUICtrlListView_GetSubItemRect($hListview1, $aHit[0], $aHit[1])
                                Local $sItemText = _GUICtrlListView_GetItemText($hListview1, $aHit[0], $aHit[1])
                                Local $aPos = ControlGetPos($hWnd, '', $hListview1)
                                Local $iStyle = BitOR($WS_CHILD, $WS_VISIBLE, $ES_AUTOHSCROLL, $ES_LEFT)
                                
                                $hEdit = _GUICtrlEdit_Create($hWnd, $sItemText, $aPos[0] + $aRect[0], $aPos[1] + $aRect[1], _GUICtrlListView_GetColumnWidth($hListview1, $aHit[1]), $iHeight, $iStyle)
                                
                                _WinAPI_BringWindowToTop($hEdit)
                                _WinAPI_SetFont($hEdit, $hFont, True)
                                _GUICtrlEdit_SetMargins($hEdit, $EC_LEFTMARGIN, 4)
                                
                                _WinAPI_SetFocus($hEdit)                                
                                _GUICtrlEdit_SetSel($hEdit, 0, -1)
                        EndIf
                Case $NM_CLICK
                        
        EndSwitch
EndFunc   ;==>WM_NOTIFY

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
        Local $iCode = BitShift($iwParam, 16)
        Local $nMsgID = BitAND($iwParam, 0x0000FFFF)
        Switch $ilParam
                Case $hEdit
                        Switch $iCode
                                Case $EN_KILLFOCUS
                                        _SetItemText()
                        EndSwitch
        EndSwitch
        
        If $nMsgID = 1 And $hEdit <> '' Then
                _SetItemText()
        EndIf
        
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func _SetItemText()
        $sItemText = _GUICtrlEdit_GetText($hEdit)
        _GUICtrlListView_SetItemText($hListview1, $aHit[0], $sItemText, $aHit[1])
        _WinAPI_DestroyWindow($hEdit)
EndFunc   ;==>_SetItemText

水木子

如果被编辑的项目在第一列并且第一列有复选框，怎么才能做得更美观呢？
水木子 发表于 2015-8-28 19:09

呵呵！还是比较简单的，放上来和大家分享吧！（回复可见哦！）

游客，如果您要查看本帖隐藏内容请回复

chzj589

回复 8# 水木子

谢谢。这样可以返回列表了。

zldfsz

回复 8# 水木子


    感谢分享

abcd1258

感谢分享。

weeks5

学习下，学习下，学习下，

kk_lee69

回复 1# chzj589

可以解決 我的問題

但是怪的是 我點擊兩下 修改後  點擊兩下別的位置   在修改後  點擊空白處

剛剛修改的就全部消失  回復成原來的

可惜 沒有源碼 可參考

chzj589

回复 14# kk_lee69

不会啊，要不你把代码发短信给我看看

chzj589

回复 15# chzj589
哦，我是说用“水大”8楼的代码