[已解决]請問 listview 金額要如何做加總?-已解决问题区-AUTOIT CN

ipmitool 发表于 2017-2-7 09:23:44

[已解决]請問 listview 金額要如何做加總?

本帖最后由 ipmitool 于 2017-2-8 15:43 编辑

請問 listview 金額要如何做加總?

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <Array.au3>
#include <GuiEdit.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("form1", 700, 580, -1, -1)
$ListView1 = GUICtrlCreateListView("ID|名稱|價錢", 24, 30, 600, 157)
GUICtrlCreateListViewItem("1|青醬(大)|70", $ListView1)
GUICtrlCreateListViewItem("2|白醬(大)|70", $ListView1)
GUICtrlCreateListViewItem("3|青醬(小)|60", $ListView1)
GUICtrlCreateListViewItem("4|青醬(小)|60", $ListView1)

$Label6 = GUICtrlCreateLabel("名稱", 26, 216, 40, 17)
$Input5 = GUICtrlCreateInput("", 62, 212, 105, 21)

$Label9 = GUICtrlCreateLabel("價錢", 194, 216, 40, 17)
$Input8 = GUICtrlCreateInput("", 232, 212, 73, 21)

$Label11 = GUICtrlCreateLabel("數量", 338, 216, 28, 17)
$Input10 = _GUICtrlEdit_Create($Form1, "", 370, 212, 50, 21, $ES_NUMBER)
;$Input10 = GUICtrlCreateCombo("",500, 212, 89, 21)
;GUICtrlSetData($Input10, "1|2|3|4|5", "1")

$Button2 = GUICtrlCreateButton("確定", 480, 210, 57, 25, $BS_DEFPUSHBUTTON)

$ListView2 = GUICtrlCreateListView("名稱    |數量    |價錢    ", 24, 265, 600, 241)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

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

            Case $Button2
                     GUICtrlSetState($ListView1, $GUI_FOCUS)

                     $mc = GUICtrlRead($Input5)
                     $jg = GUICtrlRead($Input8)
                     $num = _GUICtrlEdit_GetText($Input10)

                     GUICtrlCreateListViewItem($mc & "|" & $num & "|" & $num * $jg, $ListView2)

                     GUICtrlSetData($Input10, "")

GUICtrlCreateLabel($num * $jg, 24,525,300,300)

   EndSwitch
WEnd

Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
   #forceref $hWndGUI, $MsgID, $wParam
   Local $hWndFrom, $hWndListView1, $NMHDR, $NMLVDISPINFO, $NMLISTVIEW, $event

   $hWndListView = $ListView1
   If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

   $NMHDR = DllStructCreate($tagNMHDR, $lParam)
   $event = DllStructGetData($NMHDR, 'Code')
   $hWndFrom = HWnd(DllStructGetData($NMHDR, "hWndFrom"))

   Switch $hWndFrom
            Case $hWndListView
                     Switch $event
                           Case $LVN_ITEMCHANGED
                                    $NMLISTVIEW = DllStructCreate($tagNMLISTVIEW, $lParam)
                                    If BitAND(DllStructGetData($NMLISTVIEW, "Changed"), $LVIF_STATE) = $LVIF_STATE And _
                                                   DllStructGetData($NMLISTVIEW, "NewState") <> DllStructGetData($NMLISTVIEW, "OldState") Then OnStateChange()
                           Case $LVN_KEYDOWN
                                    $tInfo = DllStructCreate($tagNMLVKEYDOWN, $lParam)
                                    $Key=DllStructGetData($tInfo, "VKey")
                                    Switch $Key
                                             Case 0x30 To 0x39
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x30)
                                             Case 0x60 to 0x69
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x60)
                                    EndSwitch
                     EndSwitch
   EndSwitch

   Return $GUI_RUNDEFMSG
EndFunc ;==>WM_Notify_Events

Func OnStateChange()
   $cur_sel = _GUICtrlListView_GetNextItem($ListView1) ; current selected
   _GUICtrlEdit_SetText($Input10, "")
   GUICtrlSetData($Input5, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 1))
   GUICtrlSetData($Input8, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 2))
EndFunc ;==>OnStateChange

chamlien 发表于 2017-2-7 16:22:47

貌似找不到相关函数，可以先自己运算再展示

ipmitool 发表于 2017-2-7 16:24:17

回复 2# chamlien

可是要如何抓到第三欄的數值?

chamlien 发表于 2017-2-7 17:04:52

本帖最后由 chamlien 于 2017-2-7 17:05 编辑

回复 3# ipmitool

加了计算总价，不知道是不是你的需求

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <Array.au3>
#include <GuiEdit.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("form1", 700, 580, -1, -1)
$ListView1 = GUICtrlCreateListView("ID|名稱|價錢", 24, 30, 600, 157)
GUICtrlCreateListViewItem("1|青醬(大)|70", $ListView1)
GUICtrlCreateListViewItem("2|白醬(大)|70", $ListView1)
GUICtrlCreateListViewItem("3|青醬(小)|60", $ListView1)
GUICtrlCreateListViewItem("4|青醬(小)|60", $ListView1)

$Label6 = GUICtrlCreateLabel("名稱", 26, 216, 40, 17)
$Input5 = GUICtrlCreateInput("", 62, 212, 105, 21)

$Label9 = GUICtrlCreateLabel("價錢", 194, 216, 40, 17)
$Input8 = GUICtrlCreateInput("", 232, 212, 73, 21)

$Label11 = GUICtrlCreateLabel("數量", 338, 216, 28, 17)
$Input10 = _GUICtrlEdit_Create($Form1, "", 370, 212, 50, 21, $ES_NUMBER)
;$Input10 = GUICtrlCreateCombo("",500, 212, 89, 21)
;GUICtrlSetData($Input10, "1|2|3|4|5", "1")

$Button2 = GUICtrlCreateButton("確定", 480, 210, 57, 25, $BS_DEFPUSHBUTTON)

$ListView2 = GUICtrlCreateListView("名稱    |數量    |價錢    ", 24, 265, 600, 241)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

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

            Case $Button2
                     GUICtrlSetState($ListView1, $GUI_FOCUS)

                     $mc = GUICtrlRead($Input5)
                     $jg = GUICtrlRead($Input8)
                     $num = _GUICtrlEdit_GetText($Input10)

                     GUICtrlCreateListViewItem($mc & "|" & $num & "|" & $num * $jg, $ListView2)

                     GUICtrlSetData($Input10, "")
;count the total price
Local $itemCounts = _GUICtrlListView_GetItemCount($ListView2)
Local $totalPrice = 0
Local $tArr
For $i=0 To $itemCounts-1
$tArr = _GUICtrlListView_GetItemTextArray($ListView2, $i) ;get each item to the array
$totalPrice = $totalPrice + $tArr[ $tArr ] ;the last element is the price
Next
;show the total price
GUICtrlCreateLabel("Total Price: "&$totalPrice, 124,525,300,25)
GUICtrlCreateLabel($num * $jg, 24,525,100,25)

   EndSwitch
WEnd

Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
   #forceref $hWndGUI, $MsgID, $wParam
   Local $hWndFrom, $hWndListView1, $NMHDR, $NMLVDISPINFO, $NMLISTVIEW, $event

   $hWndListView = $ListView1
   If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

   $NMHDR = DllStructCreate($tagNMHDR, $lParam)
   $event = DllStructGetData($NMHDR, 'Code')
   $hWndFrom = HWnd(DllStructGetData($NMHDR, "hWndFrom"))

   Switch $hWndFrom
            Case $hWndListView
                     Switch $event
                           Case $LVN_ITEMCHANGED
                                    $NMLISTVIEW = DllStructCreate($tagNMLISTVIEW, $lParam)
                                    If BitAND(DllStructGetData($NMLISTVIEW, "Changed"), $LVIF_STATE) = $LVIF_STATE And _
                                                   DllStructGetData($NMLISTVIEW, "NewState") <> DllStructGetData($NMLISTVIEW, "OldState") Then OnStateChange()
                           Case $LVN_KEYDOWN
                                    $tInfo = DllStructCreate($tagNMLVKEYDOWN, $lParam)
                                    $Key=DllStructGetData($tInfo, "VKey")
                                    Switch $Key
                                             Case 0x30 To 0x39
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x30)
                                             Case 0x60 to 0x69
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x60)
                                    EndSwitch
                     EndSwitch
   EndSwitch

   Return $GUI_RUNDEFMSG
EndFunc ;==>WM_Notify_Events

Func OnStateChange()
   $cur_sel = _GUICtrlListView_GetNextItem($ListView1) ; current selected
   _GUICtrlEdit_SetText($Input10, "")
   GUICtrlSetData($Input5, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 1))
   GUICtrlSetData($Input8, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 2))
EndFunc ;==>OnStateChange

ipmitool 发表于 2017-2-8 08:52:08

回复 4# chamlien

厲害厲害, 累加的方式~想問一下我在下面的listview加入刪除的動作, 這樣要怎麼把金額扣回去啊?#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GUIListView.au3>
#include <Array.au3>
#include <GuiEdit.au3>
#include <GuiMenu.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <FontConstants.au3>
#include <Excel.au3>
#include <ScreenCapture.au3>

HotKeySet('{esc}', '_Exit')

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("鋒哥義大利麵", 700, 520, -1, -1)

$ListView1 = GUICtrlCreateListView("ID|名稱|價錢", 24, 23, 200, 157)
GUICtrlCreateListViewItem("1|青醬(大)|70|1", $ListView1)
GUICtrlCreateListViewItem("2|白醬(大)|70", $ListView1)
GUICtrlCreateListViewItem("3|青醬(小)|60", $ListView1)
GUICtrlCreateListViewItem("4|白醬(小)|60", $ListView1)
GUICtrlCreateListViewItem("5|玉米濃湯(大)|40", $ListView1)
GUICtrlCreateListViewItem("6|玉米濃湯(小)|30", $ListView1)

;$ListView1A = GUICtrlCreateListView("ID|名稱|價錢", 254, 30, 200, 157)
;GUICtrlCreateListViewItem("1|玉米濃湯(大)|40", $ListView1A)
;GUICtrlCreateListViewItem("2|玉米濃湯(小)|30", $ListView1A)

$Label6 = GUICtrlCreateLabel("名稱", 250, 30, 40, 17)
$Input5 = GUICtrlCreateInput("", 280, 26, 80, 21)

$Label9 = GUICtrlCreateLabel("價錢", 250, 60, 40, 17)
$Input8 = GUICtrlCreateInput("", 280, 56, 80, 21)

$Label11 = GUICtrlCreateLabel("數量", 250, 90, 28, 17)
$Input10 = _GUICtrlEdit_Create($Form1, "", 280, 86, 80, 21, $ES_NUMBER)
;$Input10 = GUICtrlCreateCombo("",500, 212, 89, 21)
;GUICtrlSetData($Input10, "1|2|3|4|5", "1")

$Button2 = GUICtrlCreateButton("確定", 249, 116, 112, 32, $BS_DEFPUSHBUTTON)
;$totalmoney=GUICtrlCreateButton("總金額", 249, 148, 112, 32, $BS_DEFPUSHBUTTON)

$export = GUICtrlCreateButton("匯出", 220, 450, 55, 25)
$print = GUICtrlCreateButton("列印", 220, 478, 55, 25)
$export_all = GUICtrlCreateButton("匯出+列印", 278, 450, 80, 53)

$ListView2 = GUICtrlCreateListView("名稱          |數量    |價錢    ", 24, 200, 334, 241)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global Enum $idOpen = 1000, $idSave, $idInfo

Global $hCMenu = GUICtrlCreateContextMenu($ListView2)
Global $hCMenuText1 = GUICtrlCreateMenuItem("Delete", $hCMenu)

GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

GUICtrlCreateLabel("總金額: ", 25,460,100,100)

;Local $Gif = @ScriptDir & '\gif\ld.jpg'
;Local $oIE = ObjCreate('Shell.Explorer.2')
;GUICtrlCreateObj($oIE, 25, 515, 300, 190)
;$oIE.navigate($Gif)
;GUISetState()

While 1

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

            Case $Button2
                     GUICtrlSetState($ListView1, $GUI_FOCUS)

                     $mc = GUICtrlRead($Input5)
                     $jg = GUICtrlRead($Input8)
                     $num = _GUICtrlEdit_GetText($Input10)

                     GUICtrlCreateListViewItem($mc & "|" & $num & "|" & $num * $jg, $ListView2)

                     GUICtrlSetData($Input10, "")

GUISetFont(40,$FW_NORMAL, $GUI_FONTUNDER, "Comic Sans MS")

                                             Local $itemCounts = _GUICtrlListView_GetItemCount($ListView2)
                                             Local $totalPrice = 0
                                             Local $tArr
                                             For $i=0 To $itemCounts-1
                                                   $tArr = _GUICtrlListView_GetItemTextArray($ListView2, $i) ;get each item to the array

                                                   $totalPrice = $totalPrice + $tArr[ $tArr ] ;the last element is the price

Next

;MsgBox(0,"111",$tArr[ $tArr ])

                                             ;show the total price
                                             GUICtrlCreateLabel($totalPrice, 70,435,150,100)

case $hCMenuText1 ;delete
_GUICtrlListView_DeleteItemsSelected($ListView2)

Case $export
If $jg="" Then
MsgBox(16, "Failure", "Failure")
Else
exporttoexcel()
EndIf

Case $print
If $jg="" Then
MsgBox(16, "Failure", "Failure")
Else
print()
EndIf

Case $export_all
If $jg="" Then
MsgBox(16, "Failure", "Failure")
Else
print()
exporttoexcel()
EndIf

   EndSwitch

WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView1, $tInfo
;If Not IsHWnd($ListView2) Then $hWndListView = GUICtrlGetHandle($ListView2)
;$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
;$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
;$iCode = DllStructGetData($tNMHDR, "Code")

$hWndListView1 = GUICtrlGetHandle($ListView1)
$hWndListView2 = GUICtrlGetHandle($ListView2)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")

Switch $hWndFrom
   Case $hWndListView1
         Switch $iCode
            Case $NM_RCLICK
               $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
               $Index = DllStructGetData($tInfo, "Index")
               $SubItem = DllStructGetData($tInfo, "SubItem")
               $sItemText =_GUICtrlListView_GetItemText($ListView2, $Index, $SubItem)
;MsgBox(0,"DD",$Index)

Case $NM_DBLCLK
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
$Index = DllStructGetData($tInfo, "Index")
$sItemText =_GUICtrlListView_GetItemText($ListView2, $Index, $SubItem)
MsgBox(0,"DD","DD")

         EndSwitch
EndSwitch

Return $GUI_RUNDEFMSG
EndFunc

Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
   #forceref $hWndGUI, $MsgID, $wParam
   Local $hWndFrom, $hWndListView1, $NMHDR, $NMLVDISPINFO, $NMLISTVIEW, $event

   $hWndListView = $ListView1
   If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

   $NMHDR = DllStructCreate($tagNMHDR, $lParam)
   $event = DllStructGetData($NMHDR, 'Code')
   $hWndFrom = HWnd(DllStructGetData($NMHDR, "hWndFrom"))

   Switch $hWndFrom
            Case $hWndListView
                     Switch $event
                           Case $LVN_ITEMCHANGED
                                    $NMLISTVIEW = DllStructCreate($tagNMLISTVIEW, $lParam)
                                    If BitAND(DllStructGetData($NMLISTVIEW, "Changed"), $LVIF_STATE) = $LVIF_STATE And _
                                                   DllStructGetData($NMLISTVIEW, "NewState") <> DllStructGetData($NMLISTVIEW, "OldState") Then OnStateChange()
                           Case $LVN_KEYDOWN
                                    $tInfo = DllStructCreate($tagNMLVKEYDOWN, $lParam)
                                    $Key=DllStructGetData($tInfo, "VKey")
                                    Switch $Key
                                             Case 0x30 To 0x39
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x30)
                                             Case 0x60 to 0x69
                                                   _GUICtrlEdit_AppendText($Input10, DllStructGetData($tInfo, "VKey") - 0x60)
                                    EndSwitch
                     EndSwitch
   EndSwitch

   Return $GUI_RUNDEFMSG
EndFunc ;==>WM_Notify_Events

Func OnStateChange()
   $cur_sel = _GUICtrlListView_GetNextItem($ListView1) ; current selected
   _GUICtrlEdit_SetText($Input10, "1")
   GUICtrlSetData($Input5, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 1))
   GUICtrlSetData($Input8, _GUICtrlListView_GetItemText($ListView1, $cur_sel, 2))
EndFunc ;==>OnStateChange

Func exporttoexcel();EXPORT TO EXCEL
$col = 0
$count = _GUICtrlListView_GetItemCount($ListView2)
GUICtrlSetState($export,$gui_enable)

$excel = _ExcelBookNew()
$oWorkbook = _Excel_BookNew($excel)

_ExcelWriteCell($excel,"名稱",2,2)
_ExcelWriteCell($excel,"數量",2,3)
_ExcelWriteCell($excel,"金額",2,4)
_ExcelWriteCell($excel," ",2,5)
_ExcelWriteCell($excel," ",2,6)
_ExcelWriteCell($excel," ",2,7)
_ExcelWriteCell($excel," ",2,8)
_ExcelWriteCell($excel," ",2,9)
_ExcelWriteCell($excel," ",2,10)
_ExcelWriteCell($excel," ",2,11)
_ExcelWriteCell($excel," ",2,12)
_ExcelWriteCell($excel," ",2,13)
_ExcelWriteCell($excel," ",2,14)
_ExcelWriteCell($excel," ",2,15)
_ExcelWriteCell($excel," ",2,16)
_ExcelWriteCell($excel," ",2,17)

For $colexcel = 0 To $col

$i = 0
do
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,0),3 + $i,2)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,1),3 + $i,3)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,2),3 + $i,4)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,3),3 + $i,5)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,4),3 + $i,6)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,5),3 + $i,7)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,6),3 + $i,8)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,7),3 + $i,9)
   _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,8),3 + $i,10)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,9),3 + $i,11)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,10),3 + $i,12)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,11),3 + $i,13)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,12),3 + $i,14)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,13),3 + $i,15)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,14),3 + $i,16)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,15),3 + $i,17)
_ExcelWriteCell($excel, _GUICtrlListView_GetItemText($ListView2,$i,16),3 + $i,18)

$i = $i + 1
Until $i = $count
Next

;MsgBox(64,"Message","Export completed!" & @CRLF _
;                      & " "& @CRLF _
;                      & "Output excel file on your Desktop!",2)

DirCreate(@ScriptDir & "\Excel")

_Excel_BookSaveAs($oWorkbook, @ScriptDir & "\Excel\"& @YEAR & @MON & @MDAY &"_" & @HOUR & @MIN & @SEC & ".xlsx", Default,False)
_Excel_Close($excel,True,True)

EndFunc

Func _ExcelBookNew($fVisible = 0)
Local $oExcel = ObjCreate("Excel.Application")
If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
If NOT IsNumber($fVisible) Then Return SetError(2, 0, 0)
If $fVisible > 1 Then $fVisible = 1
If $fVisible < 0 Then $fVisible = 0
With $oExcel
.Visible = $fVisible
.WorkBooks.Add
.ActiveWorkbook.Sheets(1).Select()
EndWith
Return $oExcel

EndFunc ;==>_ExcelBookNew

Func _ExcelWriteCell($oExcel, $sValue, $sRangeOrRow, $iColumn = 1)
If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
If NOT StringRegExp($sRangeOrRow, "", 0) Then
   If $sRangeOrRow < 1 Then Return SetError(2, 0, 0)
If $iColumn < 1 Then Return SetError(2, 1, 0)
$oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value = $sValue
Return 1
Else
$oExcel.Activesheet.Range($sRangeOrRow).Value = $sValue
Return 1
EndIf
EndFunc ;==>_ExcelWriteCell

Func print()

DirCreate(@ScriptDir & "\PrintIMG")
         ;FileDelete(@ScriptDir & "\Table_Screenshot.jpg")
         _ScreenCapture_CaptureWnd(@ScriptDir & "\PrintIMG\"&@YEAR&"-"&@mon&"-"&@MDAY&" "&@HOUR&@MIN&".jpg", $Form1)
;sleep(2000)
         ShellExecute(@ScriptDir & "\PrintIMG\"&@YEAR&"-"&@mon&"-"&@MDAY&" "&@HOUR&@MIN&".jpg", "", "","print")

; Capture full screen
;_ScreenCapture_Capture(@ScriptDir & "\GDIPlus_Image1.jpg")
;ShellExecute(@ScriptDir & "\GDIPlus_Image1.jpg")

; Capture region
;_ScreenCapture_Capture(@ScriptDir & "\GDIPlus_Image2.jpg", 0, 0, -1, -1)
;ShellExecute(@ScriptDir & "\GDIPlus_Image2.jpg")

EndFunc

Func _Exit()
   Exit
EndFunc ;==>_Exit

chamlien 发表于 2017-2-8 14:01:00

回复 5# ipmitool

使用_GUICtrlListView_DeleteItemsSelected()来删除，然后总金额重新计算，也可以把总金额设置为全局变量，然后减去删除那列的金额即可。

ipmitool 发表于 2017-2-8 15:42:32

回复 6# chamlien

原來如此啊, 已解決喔, 謝謝妳的幫忙~

zxxputian2 发表于 2018-6-11 08:52:54

谢谢楼主提供

szp123 发表于 2019-6-29 14:39:03

感谢楼主的分享

页: [1]

AUTOIT CN's Archiver

[已解决]請問 listview 金額要如何做加總?