Supprimer un onglet

**Fundhor** · 03/09/2014, 12h15

Bonjour à toutes et à tous !

Mon projet prends forme et la création d'onglet automatisée fonctionne comme je le souhaite.

En cliquant sur un bouton de la page d'accueil l'utilisateur ajoute de nouveaux onglets.
Je souhaite maintenant lui offrir la possibilité de supprimer des onglets s'il en avait ajouté plus que prévu. Avez-vous une solution ?

Voici un apercu du code tel qu'il est à présent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
function gui_var_globales
% Nom de l'interface
fenetreprincipale=figure('units','pixels','position',[100 100 800 800],'Color',[0.7 0.7 0.7],'numbertitle','off',...
    'name','Modéle numérique de chauffe-eau',...
    'menubar','none','tag','interface');
 
hTabGroup = uitabgroup; % Création de la structure contenant les onglets
tab(1) = uitab(hTabGroup,'title','Accueil','tag','uitab1'); % Onglet d'accueil
 
%% Question : Nombre d'essais à réaliser ?
uicontrol(tab(1),'style','text','units','normalized','position',[0.35 0.51 0.4 0.04],...
    'string','Combien d''essais souhaitez-vous effectuer ?',...
    'FontWeight','bold','HorizontalAlignment','left','FontSize',10);
uicontrol(tab(1),'style','edit','units','normalized','position',[0.43 0.50 0.05 0.03],...
    'string','',...
    'FontSize',10,'value',1,'tag','nombre_d_essais');
uicontrol(tab(1),'style','pushbutton','units','normalized','position',[0.48 0.50 0.10 0.03],...
    'string','Valider',...
    'FontSize',10,'callback',{@actualiser_nombre_d_essais, hTabGroup});
uicontrol(tab(1),'style','text','string',0,'tag','compteur_onglets') 
data=guihandles(gcf)
guidata(gcf,data)
%% Génération de la structure contenant les identifiants des objects graphiques dont la propriété Tag a été utilisée.
data=guihandles(gcf)
% Enregistrement de data dans les données d'application de l'objet Figure
guidata(gcf,data)
 
function actualiser_nombre_d_essais(hObject,event,hTabGroup)
    fig=get(hObject, 'parent');
    data=guidata(fig);
    nombre_d_essais = str2double(get(data.nombre_d_essais,'string'));
    a=str2double(get(data.compteur_onglets,'string'));
    for i = a+1:a+nombre_d_essais
        tab(i+1) = uitab(hTabGroup, 'Title', sprintf('Essai #%d',i),'tag',sprintf('uitab%d',i+1));
    end
    data=guihandles(gcf);
    b=num2str(str2double(get(data.compteur_onglets,'string'))+nombre_d_essais);
    set(data.compteur_onglets,'string',num2str(b));
    guidata(fig,data);