Closing individual tab

[allSystemsGo]

I have been working on a log viewer for a bit, and with help from the great people on this forum have got the basic GUI down. Now, I need to be able to close single instances of a tab. I created a "Close Tab" button to perform this action...but I have tried the GuiCtrlTab_DeleteItem function and GuiCtrlTab_Destroy function neither have the desired affect...please help.

Here is my code.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>#include <GuiTab.au3> 

; Global variables should be declared OUTSIDE functions
Global $aTabData[1][3] = [[0]] ; 0=tab 1=file 2=edit

mainGUI()

Func mainGUI()

; Create the GUI
GUICreate("Log Viewer", 800, 700)
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)

$cTab = GUICtrlCreateTab(10, 10, 780, 640)
$Fing = GUICtrlCreateButton("Fing", 20, 670, 100, 20)
$Find = GUICtrlCreateButton("Find", 200, 670, 100, 20)
$new = GUICtrlCreateButton("Open", 550, 670, 100, 20)
$close= GUICtrlCreateButton("Close Tab", 700,670,100,20)

; Read a file before showing the GUI so that the tab and edit are create before we show the GUI
openNew()

; Now show the GUI
GUISetState(@SW_SHOW)

; Note there is only the one GUIGetMsg loop in the script
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Fing
Run(@ComSpec & " /c " & "C:\fing.lnk")
Case $Find
; Which tab is displayed
$iIndex = GUICtrlRead($cTab) + 1
; So now we know which edit is displayed
_GUICtrlEdit_Find($aTabData[$iIndex][2])
Case $new
openNew() ; Every time we want a new tab we call the function again
Case $close
$iIndex=GUICtrlRead($cTab) + 1
_GUICtrlTab_DeleteItem($cTab,$iIndex)
EndSwitch
WEnd
EndFunc ;==>mainGUI

Func openNew()

; Choose a file
Local $var = FileOpenDialog("", @WindowsDir & "\", "Log Files (*.txt;*.log)", 1)
; Open it
Local $file = FileOpen($var)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
; Read it
$textx = FileRead($file)
If @error Then ; If you check for error it must be IMEDIATELY AFTER the function you check
MsgBox(4096, "", "No File(s) chosen")
Else
$var = StringReplace($var, "|", @CRLF)
MsgBox(4096, "", "You Chose " & $var)
; Create the tab and edit for this file ONLY if it was read
$aTabData[0][0] += 1
ReDim $aTabData[$aTabData[0][0] + 1][3]
$aTabData[$aTabData[0][0]][0] = GUICtrlCreateTabItem($var)
$aTabData[$aTabData[0][0]][1] = $var
; Sorry, you do need the NOHIDESEL style to see the found text
$aTabData[$aTabData[0][0]][2] = GUICtrlCreateEdit($textx, 20, 40, 760, 600, BitOR($GUI_SS_DEFAULT_EDIT, $ES_NOHIDESEL))
ConsoleWrite("Edit: " & $aTabData[$aTabData[0][0]][2] & @CRLF)
GUICtrlCreateTabItem("")
EndIf
; Close file
FileClose($file)

EndFunc ;==>openNew

[BrewManNH]

It works for me if you don't use + 1 in the second line.

Case $close
    $iIndex = GUICtrlRead($cTab)

[allSystemsGo]

It works for me if you don't use + 1 in the second line.

Case $close
    $iIndex = GUICtrlRead($cTab)

Ah that fixes the issue...sorta. See, it closes current active tab, but the file is still open...

[BrewManNH]

You close the file right after you read it in, so how is it still open?