返回列表 发帖

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

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






N年前的读取ListView 某列导入数据库的想法,今天终于解决
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

本帖最后由 chzj589 于 2015-8-26 14:01 编辑

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

TOP

感謝LZ分享,很精品.

TOP

围观牛淫....
海盗博客:www.hidao.org

TOP

不能下载??郁闷~

TOP

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

TOP

本帖最后由 水木子 于 2015-8-28 19:13 编辑

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

这是我的思路,希望对大家有帮助吧!
顺便卖个关子,留个问题给大家,代码如下,如果被编辑的项目在第一列并且第一列有复选框,怎么才能做得更美观呢?把你的思路(代码)贴上来吧!
  1. #include <WinAPI.au3>

  2. #include <GUIEdit.au3>

  3. #include <WinAPIEx.au3>

  4. #include <GuiListView.au3>

  5. #include <GuiImageList.au3>

  6. #include <FontConstants.au3>

  7. #include <GUIConstantsEx.au3>

  8. #include <WindowsConstants.au3>

  9.  

  10.  

  11. Global $Listview1, $hListview1, $Input1, $hEdit, $aHit, $aRect, $aPos

  12. Global $iHeight = 20

  13.  

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

  15.  

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

  17. $hListview1 = GUICtrlGetHandle($Listview1)

  18.  

  19. $hImage = _GUIImageList_Create(1, $iHeight)

  20. _GUICtrlListView_SetImageList($hListview1, $hImage, 1)

  21.  

  22. For $i = 0 To 4

  23.         _GUICtrlListView_InsertColumn($hListview1, $i, 'Row ' & $i, 100)


  24.  

  25. For $i = 0 To 4

  26.         _GUICtrlListView_AddItem($hListview1, 'Item ' & $i, $i)

  27.         _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 0, 1)

  28.         _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 1, 2)

  29.         _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 2, 3)

  30.         _GUICtrlListView_AddSubItem($hListview1, $i, 'SubItem ' & 3, 4)


  31.  

  32. $hFont = _WinAPI_CreateFont($iHeight - 2, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, '微软雅黑')


  33. GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')

  34. GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

  35.  



  36.  

  37. Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)

  38.         Local $tNMHDR, $hWndFrom, $iCode

  39.  

  40.         $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)

  41.         $hWndFrom = DllStructGetData($tNMHDR, 'hWndFrom')

  42.         $iCode = DllStructGetData($tNMHDR, 'Code')

  43.  

  44.         Switch $iCode

  45.                 Case $NM_DBLCLK

  46.                         Global $aHit = _GUICtrlListView_SubItemHitTest($hListview1)

  47.                         If $aHit[0] <> -1 Then

  48.                                 Local $aRect = _GUICtrlListView_GetSubItemRect($hListview1, $aHit[0], $aHit[1])

  49.                                 Local $sItemText = _GUICtrlListView_GetItemText($hListview1, $aHit[0], $aHit[1])

  50.                                 Local $aPos = ControlGetPos($hWnd, '', $hListview1)

  51.                                 Local $iStyle = BitOR($WS_CHILD, $WS_VISIBLE, $ES_AUTOHSCROLL, $ES_LEFT)

  52.                                

  53.                                 $hEdit = _GUICtrlEdit_Create($hWnd, $sItemText, $aPos[0] + $aRect[0], $aPos[1] + $aRect[1], _GUICtrlListView_GetColumnWidth($hListview1, $aHit[1]), $iHeight, $iStyle)

  54.                                

  55.                                 _WinAPI_BringWindowToTop($hEdit)

  56.                                 _WinAPI_SetFont($hEdit, $hFont, True)

  57.                                 _GUICtrlEdit_SetMargins($hEdit, $EC_LEFTMARGIN, 4)

  58.                                

  59.                                 _WinAPI_SetFocus($hEdit)                               

  60.                                 _GUICtrlEdit_SetSel($hEdit, 0, -1)

  61.                         EndIf

  62.                 Case $NM_CLICK

  63.                        

  64.         EndSwitch

  65. EndFunc   ;==>WM_NOTIFY

  66.  

  67. Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)

  68.         Local $iCode = BitShift($iwParam, 16)

  69.         Local $nMsgID = BitAND($iwParam, 0x0000FFFF)

  70.         Switch $ilParam

  71.                 Case $hEdit

  72.                         Switch $iCode

  73.                                 Case $EN_KILLFOCUS

  74.                                         _SetItemText()

  75.                         EndSwitch

  76.         EndSwitch

  77.        

  78.         If $nMsgID = 1 And $hEdit <> '' Then

  79.                 _SetItemText()

  80.         EndIf

  81.        

  82.         Return $GUI_RUNDEFMSG

  83. EndFunc   ;==>WM_COMMAND

  84.  

  85. Func _SetItemText()

  86.         $sItemText = _GUICtrlEdit_GetText($hEdit)

  87.         _GUICtrlListView_SetItemText($hListview1, $aHit[0], $sItemText, $aHit[1])

  88.         _WinAPI_DestroyWindow($hEdit)

  89. EndFunc   ;==>_SetItemText

复制代码 高亮切换

TOP

本帖最后由 水木子 于 2015-8-28 23:58 编辑
如果被编辑的项目在第一列并且第一列有复选框,怎么才能做得更美观呢?
水木子 发表于 2015-8-28 19:09


呵呵!还是比较简单的,放上来和大家分享吧!(回复可见哦!)
本帖隐藏的内容需要回复才可以浏览
活到老,学到老。

TOP

回复 8# 水木子

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

TOP

回复 8# 水木子


    感谢分享

TOP

感谢分享。

TOP

学习下,学习下,学习下,
心里一惊好似凉水浇头怀里抱着冰

TOP

本帖最后由 kk_lee69 于 2015-9-15 16:05 编辑

回复 1# chzj589

可以解決 我的問題

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

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

可惜 沒有源碼 可參考

TOP

回复 14# kk_lee69

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

TOP

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

TOP

返回列表