【已解决】GUICtrlCreateListView 标签对齐问题

chzj589

h111666b 发表于 2023-8-14 18:36
1:1  F1     503T      798  重量   5000      公斤
1:1  F1     470T      798  重量   4730      公 ...

cc.ini文件
1:1 | F1|503T|798 | 重量|5000|公斤
1:1 | F1|470T|798 | 重量|4730|公斤
1:1 | F1|200T|798 | 重量|2555|公斤
1:1 | F1|13T |798 | 重量|1458|公斤
1:1 | F1|805T|798 | 重量|9210|公斤
1:1 | F1|503T|798 | 重量|5000|公斤
1:1 | F1|470T|798 | 重量|4730|公斤
1:1 | F1|200T|798 | 重量|2555|公斤
1:1 | F1|13T |798 | 重量|1458|公斤
1:1 | F1|805T|798 | 重量|9210|公斤
1:1 | F1|503T|798 | 重量|5000|公斤
1:1 | F1|470T|798 | 重量|4730|公斤
1:1 | F1|200T|798 | 重量|2555|公斤
1:1 | F1|13T |798 | 重量|1458|公斤
1:1 | F1|805T|798 | 重量|9210|公斤

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <file.au3>
Local $txt_array1, $y = 0, $z = 0
; 创建GUI窗口
Local $hGUI = GUICreate("ListView Example", 440, 500)
; 创建ListView控件
Local $hListView = GUICtrlCreateListView("id|比例|出错|TT |数据 |载重|数据 |重量", 10, 10, 420, 480, BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS))
$hListView1 = GUICtrlGetHandle($hListView)
;GUICtrlSetBkColor(-1, $CLR_MONEYGREEN);0xC0C0C0); 背景色
GUICtrlSetBkColor(-1, 0xC0E0FF)
;GUICtrlSetColor(-1, 0x990000)
GUICtrlSetFont(-1, 9, 400, 0, 'Arial');"微软雅黑")
; 设置颜色
_GUICtrlListView_SetBkColor($hListView, 14675183);$CLR_MONEYGREEN)
_GUICtrlListView_RegisterSortCallBack($hListView)
$hImage = _GUIImageList_Create(1, 20)
_GUICtrlListView_SetImageList($hListView1, $hImage, 1)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_INFOTIP))
GUISetState(@SW_SHOW, $hGUI)
_du()
While 1
 Switch GUIGetMsg()
  Case $GUI_EVENT_CLOSE
   ExitLoop
 EndSwitch
WEnd
GUIDelete()
Func _du()
 _FileReadToArray('cc.ini', $txt_array1)
 Local $txt_array[UBound($txt_array1)][8]
 For $i = 0 To UBound($txt_array) - 1
  Local $aInfo = StringSplit($txt_array1[$y], "|")
  For $ii = 1 To $aInfo[0]
   $txt_array[$i][0] = $y
   $txt_array[$i][$ii] = $aInfo[$ii];& "|"
   $z = $i
  Next
  $y += 1
 Next
 _ArrayDelete($txt_array, 0)
 ;_ArrayDisplay($txt_array, "2D 数组") ; 显示当前数组.
 Global $eExcelArray3[$z][8]
 $eExcelArraya = _ArrayTo2D($txt_array, 1)
 For $n = 0 To UBound($eExcelArraya) - 1
  For $i = 0 To UBound($eExcelArraya, 2) - 1
   $eExcelArray3[$n][$i] = $eExcelArraya[$n][$i]
  Next
 Next
 ;_ArrayDisplay($eExcelArray3, "2D 数组");"整行查询   ", "", "64")
 GUICtrlSendMsg($hListView, $LVM_DELETEALLITEMS, 0, 0)
 ; 将分割的项目写入到ListView控件的标签中
 _GUICtrlListView_AddArray($hListView, $eExcelArray3)
 ;_ArrayDisplay($eExcelArray3, "2D 数组", "", "64")
EndFunc   ;==>_du
Func _ArrayTo2D($array, $iNum = 2)
 If Mod(UBound($array), $iNum) Or (Not IsArray($array)) Or UBound($array, 2) Then Return SetError(1, 0, $array)
 Local $aRet[UBound($array) / $iNum][$iNum]
 For $i = 0 To UBound($array) - 1
  $aRet[Int($i / $iNum)][Mod($i, $iNum)] = $array[$i]
 Next
 Return $aRet
EndFunc   ;==>_ArrayTo2D

h111666b

chzj589 发表于 2023-8-14 18:46
cc.ini文件
1:1 | F1|503T|798 | 重量|5000|公斤
1:1 | F1|470T|798 | 重量|4730|公斤

老大强悍，完美解决了，感谢！

h111666b

老大，我从隔壁论坛下载了一个检测硬盘的插件，得到信息跟我之前需要的信息有点类似，但是不用写入文件，可以直接从数据流读取，能实现之前的格式吗？

h111666b

已经参考楼上代码完美解决，再次感谢楼上各位老大！

chzj589

h111666b 发表于 2023-8-14 21:46
已经参考楼上代码完美解决，再次感谢楼上各位老大！

获取数据直接读取，不用写入INI文件

h111666b

以上标签内列表项，当点击数据行时鼠标有高亮效果，点击空白行或者标签内其它空白位置时鼠标会失去高亮效果，怎么设置鼠标点击点击空白行或者标签内其它空白位置时鼠标高亮效果不变