Jump to content

Recommended Posts

Posted

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 :

#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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...