angel83 Posted 3 hours ago Posted 3 hours ago Hello, greetings. I'm having a problem with the first column. When I use the horizontal bar, moving it to the right and back to the left slowly, the line in the first column is erased. I don't know what I'm doing wrong. this is code : expandcollapse popup#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GUIConstants.au3> #include <MsgBoxConstants.au3> #include <GuiComboBox.au3> #include <misc.au3> #include <WinAPITheme.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GUIConstants.au3> #include <MsgBoxConstants.au3> #include <GuiComboBox.au3> #include <misc.au3> #include <WinAPITheme.au3> #include <StaticConstants.au3> #include <GUIListBox.au3> #include <GUIConstants.au3> #include <TabConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> ;############################## #include <GuiConstantsEx.au3> #include <GuiListView.au3> #include <GUIConstants.au3> #include <WINAPI.au3> #include <misc.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ColorConstants.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> ;######################################## #include <Array.au3> #include <File.au3> #include <GuiComboBox.au3> #include <GuiConstantsEx.au3> #include <GuiEdit.au3> #include <GuiListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Word.au3> #include <ListviewConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <GuiListView.au3> ;######################################## #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiTab.au3> #include <GuiConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiListView.au3> #include <WinAPI.au3> #include <FontConstants.au3> Local $Form1 = GUICreate("Test", 1024, 768, -1, -1,BitOR($WS_MAXIMIZEBOX,$WS_TABSTOP,$WS_EX_TOPMOST));$WS_OVERLAPPEDWINDOW,$WS_CLIPCHILDREN GUISetBkColor(0xFFFFFF) Local $iLVStyle = BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS,$LVS_NOSORTHEADER) Local $iLVExtStyle = BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT) Local $hListView = GUICtrlCreateListView("#| NAME| PASSWORD| MAIL| CODE", 166, 281, 840, 455, $iLVStyle, $iLVExtStyle) GUICtrlSetFont($hListView, 12, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1,$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM) _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOr($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT,$LVS_SORTDESCENDING,$LVS_SORTASCENDING)) _GuiCtrlListView_SetColumnWidth($hListView,0,40) _GuiCtrlListView_SetColumnWidth($hListView,1,890) _GuiCtrlListView_SetColumnWidth($hListView,2,890) _GuiCtrlListView_SetColumnWidth($hListView,3,890) _GuiCtrlListView_SetColumnWidth($hListView,4,890) _GUICtrlListView_SetBkColor($hListView, $CLR_BLACK) _GUICtrlListView_SetTextColor($hListView, $CLR_WHITE) _GUICtrlListView_SetTextBkColor($hListView, $CLR_BLACK) GUICtrlSetFont($hListView, 12, 700, 0, "MS Sans Serif") Local $OkButton = GUICtrlCreateButton("ADD DATA", 821, 21, 140, 38,$WS_BORDER) GUICtrlSetFont(-1, 18, 400, 0, "Impact") Local $Button206 = GUICtrlCreateButton("EXIT", 834, 77, 115, 38, $WS_BORDER) GUICtrlSetFont(-1, 18, 400, 0, "Impact") GUISetState(@SW_SHOW) While True Local $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit EndSwitch Select Case $msg =$OkButton _FillList() Case $msg =$Button206 exit EndSelect WEnd Func _FillList() Local $iRead = FileRead(@ScriptDir & "\Data\NAME DATA.ini") Local $iRead2 = FileRead(@ScriptDir & "\Data\PASSWORD DATA.ini") Local $iRead3 = FileRead(@ScriptDir & "\Data\MAIL DATA.ini") Local $iRead4 = FileRead(@ScriptDir & "\Data\CODE DATA.ini") Local $aString = StringSplit(StringStripCR($iRead), @LF) Local $aString2 = StringSplit(StringStripCR($iRead2), @LF) Local $aString3 = StringSplit(StringStripCR($iRead3), @LF) Local $aString4 = StringSplit(StringStripCR($iRead4), @LF) For $i = 1 To $aString[0] If $aString[$i] = "" Then ContinueLoop For $i = 1 To $aString2[0] If $aString2[$i] = "" Then ContinueLoop For $i = 1 To $aString3[0] If $aString3[$i] = "" Then ContinueLoop For $i = 1 To $aString4[0] If $aString4[$i] = "" Then ContinueLoop GUICtrlCreateListViewItem($i & "|" & StringRegExpReplace($aString[$i], "^.*\\", "") & "|" & StringRegExpReplace($aString2[$i], "(^.*\).*", "\1") & "|" & StringRegExpReplace($aString3[$i], "(^.*\).*", "\1")& "|" & StringRegExpReplace($aString4[$i], "(^.*\).*", "\1"), $hListView) Next Next Next Next Local $iLV_Width = 0 For $i = 0 To 4 GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, $i, $LVSCW_AUTOSIZE_USEHEADER) $iLV_Width += GUICtrlSendMsg($hListView, $LVM_GETCOLUMNWIDTH, $i, 0) Next EndFunc This is the file folder, they are just examples. Data.rar
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now