[..] Supprimer une tabitem

[ethneldryt]

Bonjour, est t'il possible de supprimer la GUICtrlCreateTabItem qui est actuellement ouverte? J'ai essayer guictrldelete(-1) mais ca ne marche pas. Merci.

[olaiv]

Salut oui c'est possible en passant par la fonction _GUICtrlTab_DeleteItem

Pour récuperer ton item qui est selectionné utilise _GUICtrlTab_GetCurSel

[timmalos]

guictrldelete() marche.

IL faut rempalcer le -1 par le GuigetMsg(), si c'est un tabitem, alors on le ferme, suffit de remplacer le -1 par le nom du tabitem.

[ethneldryt]

Quand je met _GUICtrlTab_DeleteItem($tab1,_GUICtrlTab_GetCurSel($tab1))

ça supprime toujours la dernière, c'est bizarre. En faite je veux un créer un pti navigateur web et voila ou j'en suis pour le moment :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>
#include <GuiTab.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=d:\apps\autoit3\koda_1.7.0.1\forms\form1.kxf
$Form1_1 = GUICreate("Form1", 633, 321, 186, 134)
$Button1 = GUICtrlCreateButton("Button1", 72, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button12 = GUICtrlCreateButton("Button2", 200, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click2")

$Button123 = GUICtrlCreateButton("Button3", 400, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click3")

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$tab1 = GUICtrlCreateTab(40, 24, 569, 233)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("rr")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,50,50,500,200)
_IENavigate($ie,"http://google.fr")

GUICtrlSetOnEvent(-1, "Tab1Change")
$Button1 = GUICtrlCreateButton("Button1", 72, 272, 97, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func Button1Click()
GUICtrlCreateTabItem("rr")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie,50,50,500,200)
$url = InputBox("url","","http://")
_IENavigate($ie,$url)

EndFunc



Func Button1Click2()
MsgBox(0,"",_GUICtrlTab_GetCurSel($tab1))

EndFunc





Func Button1Click3()
    if _GUICtrlTab_GetCurSel($tab1) <> 0 then
_GUICtrlTab_DeleteItem($tab1,_GUICtrlTab_GetCurSel($tab1))
ControlHide("Form1","",$tab1)
ControlShow("Form1","",$tab1)
EndIf
EndFunc







Func Form1_1Close()
exit
EndFunc
Func Form1_1Maximize()

EndFunc
Func Form1_1Minimize()

EndFunc
Func Form1_1Restore()

EndFunc
Func Tab1Change()

EndFunc

 

[Tlem]

La coloration syntaxique du code est réservée aux forums :

• - Exemples de script
  - Fonctions et UDF
  - Tutoriels

Merci.