找回密码
 加入
搜索
查看: 2449|回复: 21

[AU3基础] [已解决]用_GUICtrlListView_AddArray将数组写入Listview不成功

[复制链接]
发表于 2022-4-1 10:41:42 | 显示全部楼层 |阅读模式
本帖最后由 smooth 于 2022-4-1 20:26 编辑

用_GUICtrlListView_AddArray将数组写入Listview不成功,且也不报错。我故意的写成  _GUICtrlListView_AddArray($hMyGuiList, "a|b|c|d|e"),也不给出任何的错误提示,在它的下一行,Tooltip输出正常。

我将相应的功能模块拿出去单独测试,  _GUICtrlListView_AddArray($hMyGuiList, "a|b|c|d|e")会报错, _GUICtrlListView_AddArray($hMyGuiList, $aArrayList)能正常的写入Listview。

由于在脚本里,它不报任何错误就直接跳过,导致无法检查导致不能将数组写入Listview的原因。不知道有没有大佬遇到过这种奇怪的问题,麻烦指点一二。代码很长,如有必要,我再上传上来。
Global $aArrayList[5][2] = [["状态", $iDateCalc], ["序列号", StringStripWS($aArray[4], 8)], ["持有者", $aArray[1]], ["指纹", StringStripWS(StringLower($aArray[6]), 8)], ["有效期", "从 " & $aYear & "-" & $raMons & "-" & $aDays & " " & $aTime & " 至 " & $bYear & "-" & $rbMons & "-" & $bDays & " " & $bTime]]
;~   _GUICtrlListView_AddArray($hMyGuiList, $aArrayList)
  _GUICtrlListView_AddArray($hMyGuiList, "a|b|c|d|e")
        ToolTip($aYear & "-" & $raMons & "-" & $aDays & " " & $aTime & " 至 " & $bYear & "-" & $rbMons & "-" & $bDays & " " & $bTime, 1200, 500)
发表于 2022-4-1 10:44:31 | 显示全部楼层
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
        ; Create GUI
        GUICreate("ListView Add Array (v" & @AutoItVersion & ")", 400, 300)
        Local $idListview = GUICtrlCreateListView("", 2, 2, 394, 268)
        GUISetState(@SW_SHOW)

        ; Set ANSI format
;~     _GUICtrlListView_SetUnicodeFormat($idListview, False)

        ; Add columns
        _GUICtrlListView_AddColumn($idListview, "Items", 100)
        _GUICtrlListView_AddColumn($idListview, "SubItems 1", 100)
        _GUICtrlListView_AddColumn($idListview, "SubItems 2", 100)
        _GUICtrlListView_AddColumn($idListview, "SubItems 3", 100)

        _GUICtrlListView_SetItemCount($idListview, 5000)

        ; One column load
        Local $aItems[5000][1]
        For $iI = 0 To UBound($aItems) - 1
                $aItems[$iI][0] = "Item " & $iI
        Next
        Local $hTimer = TimerInit()
        _GUICtrlListView_AddArray($idListview, $aItems)
        MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($hTimer) / 1000 & " seconds")

        _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($idListview)) ; items added with UDF function can be deleted using UDF function
        _GUICtrlListView_DeleteAllItems($idListview) ; items added with UDF function can be deleted using UDF function

        ; Four column load
        Local $aItems[5000][4]
        For $iI = 0 To UBound($aItems) - 1
                $aItems[$iI][0] = "Item " & $iI
                $aItems[$iI][1] = "Item " & $iI & "-1"
                $aItems[$iI][2] = "Item " & $iI & "-2"
                $aItems[$iI][3] = "Item " & $iI & "-3"
        Next
        Local $hTimer2 = TimerInit()
        _GUICtrlListView_AddArray($idListview, $aItems)
        MsgBox($MB_SYSTEMMODAL, "Information", "Load time: " & TimerDiff($hTimer2) / 1000 & " seconds")

        ; Loop until the user exits.
        Do
        Until GUIGetMsg() = $GUI_EVENT_CLOSE
        GUIDelete()
EndFunc   ;==>Example
 楼主| 发表于 2022-4-1 11:01:59 | 显示全部楼层

发哥,这不就是帮助里面的例子么,没有什么特别,我看了很多遍。建立一个数组,然后写入。

我数组没有问题,单独拿出来都可以正常的写入,在脚本里,就不正常。不正常就不正常吧,报个错也好查找原因。可是啥也没有,直接跳到下一行。

发表于 2022-4-1 11:15:45 | 显示全部楼层
帮助文件多学习
_GUICtrlListView_AddArray
从数组向列表视图控件添加项目.


#include <GuiListView.au3>
_GUICtrlListView_AddArray ( $hWnd, ByRef $aItems )


参 数
$hWnd 控件 ID 或句柄.
$aItems 如下格式数组:
[0][0] - 项目 1 文本.
[0][1] - 项目 1 子项 1 文本.
[0][2] - 项目 1 子项 2 文本.
[0][n] - 项目 1 子项 n 文本.
[1][0] - 项目 2 文本.
[1][1] - 项目 2 子项 1 文本.
[1][2] - 项目 2 子项 2 文本.
[1][n] - 项目 2 子项 n 文本.
发表于 2022-4-1 11:17:44 | 显示全部楼层
chzj589 发表于 2022-4-1 11:15
帮助文件多学习
_GUICtrlListView_AddArray
从数组向列表视图控件添加项目.

_GUICtrlListView_AddArray($hMyGuiList, "a|b|c|d|e")
"a|b|c|d|e",不是数组
发表于 2022-4-1 11:22:55 | 显示全部楼层
不会是脚本被意外注释了吧,仔细检查检查,或用 ctrl-t 整理代码看看
 楼主| 发表于 2022-4-1 11:32:47 | 显示全部楼层
本帖最后由 smooth 于 2022-4-1 11:34 编辑
afan 发表于 2022-4-1 11:22
不会是脚本被意外注释了吧,仔细检查检查,或用 ctrl-t 整理代码看看

代码整理我一直有做的,没有错误。

先不说写入数组了,我加个表头,都没用。单独测试一切正常。
Global $hMyGuiList = GUICtrlCreateListView("", 10, 238, 400, 136, "", BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
GUICtrlSetBkColor(-1, 0xFFFBF0)
_GUICtrlListView_AddColumn($hMyGuiList, "值", 60)
_GUICtrlListView_AddColumn($hMyGuiList, "域", 300)
 楼主| 发表于 2022-4-1 11:34:50 | 显示全部楼层
chzj589 发表于 2022-4-1 11:17
_GUICtrlListView_AddArray($hMyGuiList, "a|b|c|d|e")
"a|b|c|d|e",不是数组

那是我故意写错,看它报不报错的。就是没有报错。
发表于 2022-4-1 11:55:31 | 显示全部楼层
smooth 发表于 2022-4-1 11:32
代码整理我一直有做的,没有错误。

先不说写入数组了,我加个表头,都没用。单独测试一切正常。

用精简代码的方式查错,逐步剔除代码,直到代码正常
发表于 2022-4-1 12:46:55 | 显示全部楼层
smooth 发表于 2022-4-1 11:34
那是我故意写错,看它报不报错的。就是没有报错。



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2022-4-1 15:15:18 | 显示全部楼层
本帖最后由 smooth 于 2022-4-7 15:49 编辑
afan 发表于 2022-4-1 11:55
用精简代码的方式查错,逐步剔除代码,直到代码正常

以下代码有问题,做精简的时候只顾着看窗口有没有弹出来,没顾上看下面的报错信息。现在问题已经解决了,也懒得再改了它了。
#NoTrayIcon
#RequireAdmin
Opt("GUIOnEventMode", 1) ;开启事件模式
Opt("GUICloseOnESC", 0) ;关闭“按ESC”退出脚本的功能
Opt("WinTitleMatchMode", 2) ;匹配窗口标题的模式调整为“按子字符串”来匹配
Opt("WinDetectHiddenText", 1) ;指定让隐藏的窗口文本也能被窗口匹配函数检测.
;设置列表视图属性
Global Const $tagLVITEM = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct"
Global Const $LVM_FIRST = 0x1000
Global Const $LVM_GETUNICODEFORMAT = 0x2000 + 6
Global $__g_tListViewBuffer, $__g_tListViewBufferANSI ; = DllStructCreate()
Global Const $LVM_INSERTITEMW = ($LVM_FIRST + 77)
Global Const $LVM_SETITEMW = ($LVM_FIRST + 76)
Global $__g_tListViewItem = DllStructCreate($tagLVITEM)
Global Const $LVIF_TEXT = 0x00000001
Global Const $LVM_GETITEMCOUNT = ($LVM_FIRST + 4)
Global Const $__LISTVIEWCONSTANT_WM_SETREDRAW = 0x000B
Global Const $UBOUND_COLUMNS = 2
Global Const $LVM_SETEXTENDEDLISTVIEWSTYLE = ($LVM_FIRST + 54)
Global Const $LVS_REPORT = 0x0001 ; This style specifies report view
Global Const $LVS_EX_GRIDLINES = 0x00000001
Global Const $LVS_EX_FULLROWSELECT = 0x00000020
Global Const $LVS_EX_DOUBLEBUFFER = 0x00010000
Global Const $LVM_GETHEADER = ($LVM_FIRST + 31)
Global Const $LVCFMT_LEFT = 0x0000
Global Const $LVCFMT_RIGHT = 0x0001
Global Const $LVCFMT_CENTER = 0x0002
Global Const $LVM_INSERTCOLUMNW = ($LVM_FIRST + 97)
Global Const $tagLVCOLUMN = "uint Mask;int Fmt;int CX;ptr Text;int TextMax;int SubItem;int Image;int Order;int cxMin;int cxDefault;int cxIdeal"
Global Const $LVCF_FMT = 0x0001
Global Const $LVCF_WIDTH = 0x0002
Global Const $LVCF_TEXT = 0x0004
Global $hGui = GUICreate("V2.9", 420, 416)
Global $hMyGuiList = GUICtrlCreateListView("", 10, 238, 400, 136, "", BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
_GUICtrlListView_AddColumn($hMyGuiList, "值", 60)
_GUICtrlListView_AddColumn($hMyGuiList, "域", 300)
GUISetState()
GUISetOnEvent(-3, "_Exit")
_Key_GuiSetData()
While 1 ;主循环
 Sleep(10)
WEnd
Func _Key_GuiSetData()
 Global $aArrayList[5][2] = [["状态", "$iDateCalc"], ["序列号", "StringStripWS($aArray[4], 8)"], ["持有者", "$aArray[1]"], ["指纹", "StringStripWS(StringLower($aArray[6]), 8)"], ["有效期", "从 至 "]]
 _GUICtrlListView_AddArray($hMyGuiList, $aArrayList)
EndFunc   ;==>_Key_GuiSetData
Func _Exit() 
    Exit
EndFunc   ;==>WM_SYSCOMMAND
;以下为引用的自定义函数
;==============================================================================================================================================================================================
;
Func _SendMessage($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult")
 Local $aCall = DllCall("user32.dll", $sReturnType, "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam)
 If @error Then Return SetError(@error, @extended, "")
 If $iReturn >= 0 And $iReturn <= 4 Then Return $aCall[$iReturn]
 Return $aCall
EndFunc   ;==>_SendMessage
Func __GUICtrl_SendMsg($hWnd, $iMsg, $iIndex, ByRef $tItem, $tBuffer = 0, $bRetItem = False, $iElement = -1, $bRetBuffer = False, $iElementMax = $iElement)
 If $iElement > 0 Then
  DllStructSetData($tItem, $iElement, DllStructGetPtr($tBuffer))
  If $iElement = $iElementMax Then DllStructSetData($tItem, $iElement + 1, DllStructGetSize($tBuffer))
 EndIf
 Local $iRet
 If IsHWnd($hWnd) Then
  If _WinAPI_InProcess($hWnd, $__g_hGUICtrl_LastWnd) Then
   $iRet = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, "wparam", $iIndex, "struct*", $tItem)[0]
  Else
   Local $iItem = DllStructGetSize($tItem)
   Local $tMemMap, $pText
   Local $iBuffer = 0
   If ($iElement > 0) Or ($iElementMax = 0) Then $iBuffer = DllStructGetSize($tBuffer)
   Local $pMemory = _MemInit($hWnd, $iItem + $iBuffer, $tMemMap)
   If $iBuffer Then
    $pText = $pMemory + $iItem
    If $iElementMax Then
     DllStructSetData($tItem, $iElement, $pText)
    Else
     $iIndex = $pText
    EndIf
    _MemWrite($tMemMap, $tBuffer, $pText, $iBuffer)
   EndIf
   _MemWrite($tMemMap, $tItem, $pMemory, $iItem)
   $iRet = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, "wparam", $iIndex, "ptr", $pMemory)[0]
   If $iBuffer And $bRetBuffer Then _MemRead($tMemMap, $pText, $tBuffer, $iBuffer)
   If $bRetItem Then _MemRead($tMemMap, $pMemory, $tItem, $iItem)
   _MemFree($tMemMap)
  EndIf
 Else
  $iRet = GUICtrlSendMsg($hWnd, $iMsg, $iIndex, DllStructGetPtr($tItem))
 EndIf
 Return $iRet
EndFunc   ;==>__GUICtrl_SendMsg
;================================================================================================================================================================================================================================================
;================================================================================================================================================================================================================================================
;比较两个日期(具体到时间)大小的函数
;================================================================================================================================================================================================================================================
;================================================================================================================================================================================================================================================
;
Func _DateDiff($sType, $sStartDate, $sEndDate)
 $sType = StringLeft($sType, 1)
 If StringInStr("d,m,y,w,h,n,s", $sType) = 0 Or $sType = "" Then
  Return SetError(1, 0, 0)
 EndIf
 If Not _DateIsValid($sStartDate) Then
  Return SetError(2, 0, 0)
 EndIf
 If Not _DateIsValid($sEndDate) Then
  Return SetError(3, 0, 0)
 EndIf
 Local $asStartDatePart[4], $asStartTimePart[4], $asEndDatePart[4], $asEndTimePart[4]
 _DateTimeSplit($sStartDate, $asStartDatePart, $asStartTimePart)
 _DateTimeSplit($sEndDate, $asEndDatePart, $asEndTimePart)
 Local $aDaysDiff = _DateToDayValue($asEndDatePart[1], $asEndDatePart[2], $asEndDatePart[3]) - _DateToDayValue($asStartDatePart[1], $asStartDatePart[2], $asStartDatePart[3])
 Local $iTimeDiff, $iYearDiff, $iStartTimeInSecs, $iEndTimeInSecs
 If $asStartTimePart[0] > 1 And $asEndTimePart[0] > 1 Then
  $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
  $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
  $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
  If $iTimeDiff < 0 Then
   $aDaysDiff = $aDaysDiff - 1
   $iTimeDiff = $iTimeDiff + 24 * 60 * 60
  EndIf
 Else
  $iTimeDiff = 0
 EndIf
 Select
  Case $sType = "d"
   Return $aDaysDiff
  Case $sType = "m"
   $iYearDiff = $asEndDatePart[1] - $asStartDatePart[1]
   Local $iMonthDiff = $asEndDatePart[2] - $asStartDatePart[2] + $iYearDiff * 12
   If $asEndDatePart[3] < $asStartDatePart[3] Then $iMonthDiff = $iMonthDiff - 1
   $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
   $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
   $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
   If $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iMonthDiff = $iMonthDiff - 1
   Return $iMonthDiff
  Case $sType = "y"
   $iYearDiff = $asEndDatePart[1] - $asStartDatePart[1]
   If $asEndDatePart[2] < $asStartDatePart[2] Then $iYearDiff = $iYearDiff - 1
   If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] < $asStartDatePart[3] Then $iYearDiff = $iYearDiff - 1
   $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3]
   $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3]
   $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs
   If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iYearDiff = $iYearDiff - 1
   Return $iYearDiff
  Case $sType = "w"
   Return Int($aDaysDiff / 7)
  Case $sType = "h"
   Return $aDaysDiff * 24 + Int($iTimeDiff / 3600)
  Case $sType = "n"
   Return $aDaysDiff * 24 * 60 + Int($iTimeDiff / 60)
  Case $sType = "s"
   Return $aDaysDiff * 24 * 60 * 60 + $iTimeDiff
 EndSelect
EndFunc   ;==>_DateDiff
Func _DateIsLeapYear($iYear)
 If StringIsInt($iYear) Then
  Select
   Case Mod($iYear, 4) = 0 And Mod($iYear, 100) <> 0
    Return 1
   Case Mod($iYear, 400) = 0
    Return 1
   Case Else
    Return 0
  EndSelect
 EndIf
 Return SetError(1, 0, 0)
EndFunc   ;==>_DateIsLeapYear
Func _DateIsValid($sDate)
 Local $asDatePart[4], $asTimePart[4]
 _DateTimeSplit($sDate, $asDatePart, $asTimePart)
 If Not StringIsInt($asDatePart[1]) Then Return 0
 If Not StringIsInt($asDatePart[2]) Then Return 0
 If Not StringIsInt($asDatePart[3]) Then Return 0
 $asDatePart[1] = Int($asDatePart[1])
 $asDatePart[2] = Int($asDatePart[2])
 $asDatePart[3] = Int($asDatePart[3])
 Local $iNumDays = _DaysInMonth($asDatePart[1])
 If $asDatePart[1] < 1000 Or $asDatePart[1] > 2999 Then Return 0
 If $asDatePart[2] < 1 Or $asDatePart[2] > 12 Then Return 0
 If $asDatePart[3] < 1 Or $asDatePart[3] > $iNumDays[$asDatePart[2]] Then Return 0
 If $asTimePart[0] < 1 Then Return 1
 If $asTimePart[0] < 2 Then Return 0
 If $asTimePart[0] = 2 Then $asTimePart[3] = "00"
 If Not StringIsInt($asTimePart[1]) Then Return 0
 If Not StringIsInt($asTimePart[2]) Then Return 0
 If Not StringIsInt($asTimePart[3]) Then Return 0
 $asTimePart[1] = Int($asTimePart[1])
 $asTimePart[2] = Int($asTimePart[2])
 $asTimePart[3] = Int($asTimePart[3])
 If $asTimePart[1] < 0 Or $asTimePart[1] > 23 Then Return 0
 If $asTimePart[2] < 0 Or $asTimePart[2] > 59 Then Return 0
 If $asTimePart[3] < 0 Or $asTimePart[3] > 59 Then Return 0
 Return 1
EndFunc   ;==>_DateIsValid
Func _DateTimeSplit($sDate, ByRef $aDatePart, ByRef $iTimePart)
 Local $sDateTime = StringSplit($sDate, " T")
 If $sDateTime[0] > 0 Then $aDatePart = StringSplit($sDateTime[1], "/-.")
 If $sDateTime[0] > 1 Then
  $iTimePart = StringSplit($sDateTime[2], ":")
  If UBound($iTimePart) < 4 Then ReDim $iTimePart[4]
 Else
  Dim $iTimePart[4]
 EndIf
 If UBound($aDatePart) < 4 Then ReDim $aDatePart[4]
 For $x = 1 To 3
  If StringIsInt($aDatePart[$x]) Then
   $aDatePart[$x] = Int($aDatePart[$x])
  Else
   $aDatePart[$x] = -1
  EndIf
  If StringIsInt($iTimePart[$x]) Then
   $iTimePart[$x] = Int($iTimePart[$x])
  Else
   $iTimePart[$x] = 0
  EndIf
 Next
 Return 1
EndFunc   ;==>_DateTimeSplit
Func _DateToDayValue($iYear, $iMonth, $iDay)
 If Not _DateIsValid(StringFormat("%04d/%02d/%02d", $iYear, $iMonth, $iDay)) Then
  Return SetError(1, 0, "")
 EndIf
 If $iMonth < 3 Then
  $iMonth = $iMonth + 12
  $iYear = $iYear - 1
 EndIf
 Local $i_FactorA = Int($iYear / 100)
 Local $i_FactorB = Int($i_FactorA / 4)
 Local $i_FactorC = 2 - $i_FactorA + $i_FactorB
 Local $i_FactorE = Int(1461 * ($iYear + 4716) / 4)
 Local $i_FactorF = Int(153 * ($iMonth + 1) / 5)
 Local $iJulianDate = $i_FactorC + $iDay + $i_FactorE + $i_FactorF - 1524.5
 Return $iJulianDate
EndFunc   ;==>_DateToDayValue
Func _NowCalc()
 Return @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC
EndFunc   ;==>_NowCalc
Func _DaysInMonth($iYear)
 Local $aDays = [12, 31, (_DateIsLeapYear($iYear) ? 29 : 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
 Return $aDays
EndFunc   ;==>_DaysInMonth
Local $iDateCalc = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc())
;
;
;================================================================================================================================================================================================================================================
;================================================================================================================================================================================================================================================
;设置列表视图Listview属性
;================================================================================================================================================================================================================================================
;================================================================================================================================================================================================================================================
;
Func _GUICtrlListView_AddArray($hWnd, ByRef $aItems)
 Local $tBuffer, $iMsg, $iMsgSet
 If _GUICtrlListView_GetUnicodeFormat($hWnd) Then
  $tBuffer = $__g_tListViewBuffer
  $iMsg = $LVM_INSERTITEMW
  $iMsgSet = $LVM_SETITEMW
 Else
  $tBuffer = $__g_tListViewBufferANSI
  $iMsg = $LVM_INSERTITEMA
  $iMsgSet = $LVM_SETITEMA
 EndIf
 Local $tItem = $__g_tListViewItem
 DllStructSetData($tItem, "Mask", $LVIF_TEXT)
 Local $iLastItem = _GUICtrlListView_GetItemCount($hWnd)
 _GUICtrlListView_BeginUpdate($hWnd)
 ; little less optimal in term of performance due to call thru $pSendMsg
 Local $pSendMsg = __GUICtrl_SendMsg_Init($hWnd, $iMsg, 0, $tItem, $tBuffer, False, 6)
 For $iI = 0 To UBound($aItems) - 1
  DllStructSetData($tItem, "Item", $iI + $iLastItem)
  DllStructSetData($tItem, "SubItem", 0)
  DllStructSetData($tBuffer, 1, $aItems[$iI][0])
  $pSendMsg($hWnd, $iMsg, 0, $tItem, $tBuffer, False, 6)
  For $iJ = 1 To UBound($aItems, $UBOUND_COLUMNS) - 1
   DllStructSetData($tItem, "SubItem", $iJ)
   DllStructSetData($tBuffer, 1, $aItems[$iI][$iJ])
   $pSendMsg($hWnd, $iMsgSet, 0, $tItem, $tBuffer, False, 6)
  Next
 Next
 _GUICtrlListView_EndUpdate($hWnd)
EndFunc   ;==>_GUICtrlListView_AddArray
Func _GUICtrlListView_GetUnicodeFormat($hWnd)
 If IsHWnd($hWnd) Then
  Return _SendMessage($hWnd, $LVM_GETUNICODEFORMAT) <> 0
 Else
  Return GUICtrlSendMsg($hWnd, $LVM_GETUNICODEFORMAT, 0, 0) <> 0
 EndIf
EndFunc   ;==>_GUICtrlListView_GetUnicodeFormat
Func _GUICtrlListView_GetItemCount($hWnd)
 If IsHWnd($hWnd) Then
  Return _SendMessage($hWnd, $LVM_GETITEMCOUNT)
 Else
  Return GUICtrlSendMsg($hWnd, $LVM_GETITEMCOUNT, 0, 0)
 EndIf
EndFunc   ;==>_GUICtrlListView_GetItemCount
Func _GUICtrlListView_BeginUpdate($hWnd)
 If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
 Return _SendMessage($hWnd, $__LISTVIEWCONSTANT_WM_SETREDRAW, False) = 0
EndFunc   ;==>_GUICtrlListView_BeginUpdate
Func _GUICtrlListView_EndUpdate($hWnd)
 If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
 Return _SendMessage($hWnd, $__LISTVIEWCONSTANT_WM_SETREDRAW, True) = 0
EndFunc   ;==>_GUICtrlListView_EndUpdate
Func __GUICtrl_SendMsg_Init($hWnd, $iMsg, $iIndex, ByRef $tItem, $tBuffer = 0, $bRetItem = False, $iElement = -1, $bRetBuffer = False, $iElementMax = $iElement)
 #forceref $iMsg, $iIndex, $bRetItem, $bRetBuffer
 DllStructSetData($tItem, $iElement, DllStructGetPtr($tBuffer))
 If $iElement = $iElementMax Then DllStructSetData($tItem, $iElement + 1, DllStructGetSize($tBuffer))
 Local $pFunc
 If IsHWnd($hWnd) Then
  If _WinAPI_InProcess($hWnd, $__g_hGUICtrl_LastWnd) Then
   $pFunc = __GUICtrl_SendMsg_InProcess
   SetExtended(1)
  Else
   $pFunc = __GUICtrl_SendMsg_OutProcess
   SetExtended(2)
  EndIf
 Else
  $pFunc = __GUICtrl_SendMsg_Internal
  SetExtended(3)
 EndIf
 Return $pFunc
EndFunc   ;==>__GUICtrl_SendMsg_Init
Func __GUICtrl_SendMsg_Internal($hWnd, $iMsg, $iIndex, ByRef $tItem, $tBuffer = 0, $bRetItem = False, $iElement = -1, $bRetBuffer = False, $iElementMax = $iElement)
 #forceref $tBuffer, $bRetItem, $bRetBuffer, $iElementMax
 Return GUICtrlSendMsg($hWnd, $iMsg, $iIndex, DllStructGetPtr($tItem))
EndFunc   ;==>__GUICtrl_SendMsg_Internal
Func _GUICtrlListView_SetExtendedListViewStyle($hWnd, $iExStyle, $iExMask = 0)
 Local $iRet
 If IsHWnd($hWnd) Then
  $iRet = _SendMessage($hWnd, $LVM_SETEXTENDEDLISTVIEWSTYLE, $iExMask, $iExStyle)
  _WinAPI_InvalidateRect($hWnd)
 Else
  $iRet = GUICtrlSendMsg($hWnd, $LVM_SETEXTENDEDLISTVIEWSTYLE, $iExMask, $iExStyle)
  _WinAPI_InvalidateRect(GUICtrlGetHandle($hWnd))
 EndIf
 Return $iRet
EndFunc   ;==>_GUICtrlListView_SetExtendedListViewStyle
Func _GUICtrlListView_DeleteAllItems($hWnd)
 ; Check if deletion necessary
 If _GUICtrlListView_GetItemCount($hWnd) = 0 Then Return True
 ; Determine ListView type
 Local $vCID = 0
 If IsHWnd($hWnd) Then
  ; Check ListView ControlID to detect UDF control
  $vCID = _WinAPI_GetDlgCtrlID($hWnd)
 Else
  $vCID = $hWnd
  ; Get ListView handle
  $hWnd = GUICtrlGetHandle($hWnd)
 EndIf
 ; If native ListView - could be either type of item
 If $vCID < $_UDF_STARTID Then
  ; Try deleting as native items
  Local $iParam = 0
  For $iIndex = _GUICtrlListView_GetItemCount($hWnd) - 1 To 0 Step -1
   $iParam = _GUICtrlListView_GetItemParam($hWnd, $iIndex)
   ; Check if LV item
   If GUICtrlGetState($iParam) > 0 And GUICtrlGetHandle($iParam) = 0 Then
    GUICtrlDelete($iParam)
   EndIf
  Next
  ; Return if no items left
  If _GUICtrlListView_GetItemCount($hWnd) = 0 Then Return True
 EndIf
 ; Has to be UDF Listview and/or UDF items
 Return _SendMessage($hWnd, $LVM_DELETEALLITEMS) <> 0
EndFunc   ;==>_GUICtrlListView_DeleteAllItems
Func _GUICtrlListView_AddColumn($hWnd, $sText, $iWidth = 50, $iAlign = -1, $iImage = -1, $bOnRight = False)
 Return _GUICtrlListView_InsertColumn($hWnd, _GUICtrlListView_GetColumnCount($hWnd), $sText, $iWidth, $iAlign, $iImage, $bOnRight)
EndFunc   ;==>_GUICtrlListView_AddColumn
Func _GUICtrlListView_InsertColumn($hWnd, $iIndex, $sText, $iWidth = 50, $iAlign = -1, $iImage = -1, $bOnRight = False)
 Local $aAlign[3] = [$LVCFMT_LEFT, $LVCFMT_RIGHT, $LVCFMT_CENTER]
 Local $tBuffer, $iMsg
 If _GUICtrlListView_GetUnicodeFormat($hWnd) Then
  $tBuffer = $__g_tListViewBuffer
  $iMsg = $LVM_INSERTCOLUMNW
 Else
  $tBuffer = $__g_tListViewBufferANSI
  $iMsg = $LVM_INSERTCOLUMNA
 EndIf
 Local $tColumn = DllStructCreate($tagLVCOLUMN)
 Local $iMask = BitOR($LVCF_FMT, $LVCF_WIDTH, $LVCF_TEXT)
 If $iAlign < 0 Or $iAlign > 2 Then $iAlign = 0
 Local $iFmt = $aAlign[$iAlign]
 If $iImage <> -1 Then
  $iMask = BitOR($iMask, $LVCF_IMAGE)
  $iFmt = BitOR($iFmt, $LVCFMT_COL_HAS_IMAGES, $LVCFMT_IMAGE)
 EndIf
 If $bOnRight Then $iFmt = BitOR($iFmt, $LVCFMT_BITMAP_ON_RIGHT)
 DllStructSetData($tBuffer, 1, $sText)
 DllStructSetData($tColumn, "Mask", $iMask)
 DllStructSetData($tColumn, "Fmt", $iFmt)
 DllStructSetData($tColumn, "CX", $iWidth)
 DllStructSetData($tColumn, "Image", $iImage)
 Local $iRet = __GUICtrl_SendMsg($hWnd, $iMsg, $iIndex, $tColumn, $tBuffer, False, 4)
 ; added, not sure why justification is not working on insert
 If $iAlign > 0 Then _GUICtrlListView_SetColumn($hWnd, $iRet, $sText, $iWidth, $iAlign, $iImage, $bOnRight)
 Return $iRet
EndFunc   ;==>_GUICtrlListView_InsertColumn
Func _GUICtrlListView_GetColumnCount($hWnd)
 ;Local Const $HDM_GETITEMCOUNT = 0x1200
 Return _SendMessage(_GUICtrlListView_GetHeader($hWnd), 0x1200)
EndFunc   ;==>_GUICtrlListView_GetColumnCount
Func _GUICtrlListView_GetHeader($hWnd)
 If IsHWnd($hWnd) Then
  Return HWnd(_SendMessage($hWnd, $LVM_GETHEADER))
 Else
  Return HWnd(GUICtrlSendMsg($hWnd, $LVM_GETHEADER, 0, 0))
 EndIf
EndFunc   ;==>_GUICtrlListView_GetHeader

发表于 2022-4-1 15:28:14 | 显示全部楼层
smooth 发表于 2022-4-1 15:15
A大,已做最简测试,依然找不到问题所在。以下是最简代码:

你这哪是精简,这是整合。精简是精简自己的代码,不是把头文件代入展开精简了…… 还运行不了
#include <GuiListView.au3>
#NoTrayIcon
#RequireAdmin
Opt("GUIOnEventMode", 1) ;开启事件模式
Opt("GUICloseOnESC", 0) ;关闭“按ESC”退出脚本的功能

Global $hGui = GUICreate("V2.9", 420, 416)
Global $hMyGuiList = GUICtrlCreateListView("", 10, 238, 400, 136, "", BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_DOUBLEBUFFER))
_GUICtrlListView_AddColumn($hMyGuiList, "值", 60)
_GUICtrlListView_AddColumn($hMyGuiList, "域", 300)
GUISetState()
GUISetOnEvent(-3, "_Exit")
_Key_GuiSetData()
While 1 ;主循环
        Sleep(10)
WEnd
Func _Key_GuiSetData()
        Global $aArrayList[5][2] = [["状态", "$iDateCalc"], ["序列号", "StringStripWS($aArray[4], 8)"], ["持有者", "$aArray[1]"], ["指纹", "StringStripWS(StringLower($aArray[6]), 8)"], ["有效期", "从 至 "]]
        _GUICtrlListView_AddArray($hMyGuiList, $aArrayList)
EndFunc   ;==>_Key_GuiSetData
Func _Exit()
        Exit
EndFunc   ;==>_Exit
以上才是你的内容,但运行正常,并无重现问题
 楼主| 发表于 2022-4-1 15:31:13 | 显示全部楼层
afan 发表于 2022-4-1 15:28
你这哪是精简,这是整合。精简是精简自己的代码,不是把头文件代入展开精简了…… 还运行不了

以上才 ...

我要插入的头文件有冲突,无奈之下只能整合进去。我精简只能在我的脚本的基础上做精简了。
发表于 2022-4-1 15:35:16 | 显示全部楼层
smooth 发表于 2022-4-1 15:15
A大,已做最简测试,依然找不到问题所在。以下是最简代码:

看不出问题?



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2022-4-1 15:36:02 | 显示全部楼层
本帖最后由 smooth 于 2022-4-1 15:43 编辑

我的代码,你可以直接运行?我运行之后,就这样子:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-12-22 15:48 , Processed in 0.101624 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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