[VB .NET]Problème gestion d'onglets

Problème gestion d'onglets [VB .NET] - C#/.NET managed - Programmation

Marsh Posté le 07-05-2007 à 16:42:58    

Bonjour, dans le cadre du devellopement d'un logiciel, j'ai besoin d'onglets que l'utilisateur puisse ouvrir et fermer a volonté, un peu comme dans notepad++ ou firefox. C'est pour un editeur de texte. Dans chacun de ces onglets il y a une richtextbox ainsi qu'un bouton. J'ai donc plusieurs problèmes :
 
- Comment, quand j'ouvre un fichier texte, l'ouvrir dans la bonne richtextbox, celle qui correspond à l'onglet selectionné ?
 
- Comment mettre du code à executer pour tous les nouveaux bouton créés (à chaque fois le meme code, pour tous les boutons) ?
 
Un petit screen pour que vous compreniez mieux :
http://img153.imageshack.us/img153/103/screenkh9.th.png
 
ainsi que le code :

Code :
  1. Imports System.IO
  2. Imports mRibbon
  3. Imports Vista_Api
  5. Public Class Twinotes
  6.     Dim nbonglet As Integer = 0
  8.     Private Sub bandeau_Options_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bandeau_Options.Click
  9.         Me.Visible = False
  10.         Accueil.Text = "wTwin"
  11.     End Sub
  13.     Private Sub Themebleu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themebleu.Click
  14.         RibbonControl.ColorScheme = mRibbon.ColorScheme.Blue
  15.         bandeau_Options.Invalidate()
  16.         bandeau_Texte.Invalidate()
  17.         Dim SW As StreamWriter
  18.         SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
  19.         SW.WriteLine("0" )
  20.         SW.Close()
  21.     End Sub
  23.     Private Sub Themegris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themegris.Click
  24.         RibbonControl.ColorScheme = mRibbon.ColorScheme.Gray
  25.         bandeau_Options.Invalidate()
  26.         bandeau_Texte.Invalidate()
  27.         Dim SW As StreamWriter
  28.         SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
  29.         SW.WriteLine("1" )
  30.         SW.Close()
  31.     End Sub
  33.     Private Sub Themechoix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themechoix.Click
  34.         If ColorDialog1.ShowDialog() = DialogResult.OK Then
  35.             RibbonControl.ColorScheme = mRibbon.ColorScheme.Custom
  36.             RibbonControl.Color = ColorDialog1.Color
  37.             bandeau_Options.Invalidate()
  38.             bandeau_Texte.Invalidate()
  39.             Dim SW As StreamWriter
  40.             SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
  41.             SW.WriteLine("2" )
  42.             SW.Close()
  43.         End If
  44.     End Sub
  46.     Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click
  47.         Dim Tabp As New TabPage
  48.         With Tabp
  49.             .Text = "Nouveau" & " " & nbonglet
  50.             .Name = "onglet" & nbonglet
  51.         End With
  52.         bandeau_Texte.Controls.Add(Tabp)
  53.         Dim rtb As New RichTextBox
  54.         With rtb
  55.             .Size = New System.Drawing.Size(786, 412)
  56.             .Location = New System.Drawing.Point(0, 0)
  57.             .Name = "Textenote" & nbonglet
  58.             .ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.ForcedVertical
  59.         End With
  60.         Tabp.Controls.Add(rtb)
  61.         Dim EnvoiTwin As New CommandLink
  62.         With EnvoiTwin
  63.             .Location = New System.Drawing.Point(558, 347)
  64.             .Name = "EnvoiTwin" & nbonglet
  65.             .Size = New System.Drawing.Size(205, 60)
  66.             .Text = "Envoyer vers le Twin"
  67.         End With
  68.         rtb.Controls.Add(EnvoiTwin)
  69.     End Sub
  71.     Private Sub EnvoiTwin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnvoiTwin.Click
  72.         Dim texte, titre As String
  73.         texte = Textenote.Text
  74.         titre = Onglet1.Text
  75.         For Each di As DriveInfo In DriveInfo.GetDrives()
  76.             If di.IsReady Then
  77.                 If di.VolumeLabel = "MYPHONE" Then
  78.                     If Not texte = Nothing Then
  79.                         Dim lettre As String
  80.                         lettre = di.Name
  81.                         Dim SW As StreamWriter
  82.                         SW = File.CreateText(lettre & titre & ".txt" )
  83.                         SW.WriteLine(texte$)
  84.                         SW.Close()
  85.                     Else : MsgBox("Vous n'avez pas renseigné tous les champs disponibles", MsgBoxStyle.Exclamation)
  86.                     End If
  87.                 End If
  88.             End If
  89.         Next
  90.     End Sub
  92.     Private Sub tabremoved_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles bandeau_Texte.ControlRemoved
  93.         Dim i As Integer
  94.         i = bandeau_Texte.TabCount - 2
  95.         If i = 1 Then
  96.             Nbonglets.Text = i & " " & "onglet ouvert"
  97.         ElseIf i > 1 Then
  98.             Nbonglets.Text = i & " " & "onglets ouverts"
  99.         End If
  100.         bandeau_Texte.SelectTab(i)
  101.     End Sub
  103.     Private Sub tabadded_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles bandeau_Texte.ControlAdded
  104.         Dim i As Integer
  105.         i = bandeau_Texte.TabCount - 1
  106.         If i = 1 Then
  107.             Nbonglets.Text = i & " " & "onglet ouvert"
  108.         ElseIf i > 1 Then
  109.             Nbonglets.Text = i & " " & "onglets ouverts"
  110.         End If
  111.         bandeau_Texte.SelectTab(i)
  112.         nbonglet += 1
  113.     End Sub
  115.     Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
  116.         If Not Textenote.Text = "" Then
  117.             Form1.Label1.Text = bandeau_Texte.SelectedTab.Text & " " & "a des modifications non enregistrées. Que voulez vous faire ?"
  118.             Form1.ShowDialog()
  119.         ElseIf Textenote.Text = "" Then
  120.             OpenFileDialog1.Filter = "Texte (*.txt)|*.txt"
  121.             If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
  122.                 Dim CheminFichier As String
  123.                 CheminFichier = OpenFileDialog1.FileName
  124.                 Try
  125.                     Dim Fichier As New System.IO.StreamReader(CheminFichier)
  126.                     Textenote.Text = Fichier.ReadToEnd
  127.                     Fichier.Close()
  128.                 Catch ex As System.Exception
  129.                     MsgBox("Impossible d'ouvrir le fichier, il est peut être en cours d'utilisation", MsgBoxStyle.Critical)
  130.                 Finally
  131.                 End Try
  132.                 bandeau_Texte.SelectedTab.Text = Path.GetFileNameWithoutExtension(CheminFichier)
  133.             End If
  134.         End If
  135.     End Sub
  137.     Private Sub Suppronglet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suppronglet.Click
  138.         If Not Textenote.Text = "" Then
  139.             Form2.Label1.Text = bandeau_Texte.SelectedTab.Text & " " & "a des modifications non enregistrées. Que voulez vous faire ?"
  140.             Form2.ShowDialog()
  141.         ElseIf Textenote.Text = "" Then
  142.             Dim i As Integer
  143.             i = bandeau_Texte.TabCount
  144.             If bandeau_Texte.TabCount > 2 Then
  145.                 bandeau_Texte.TabPages.RemoveAt(bandeau_Texte.SelectedIndex)
  146.             End If
  147.         End If
  148.     End Sub
  150.     Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
  151.         Textenote.Undo()
  152.     End Sub
  154.     Private Sub Suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suivant.Click
  155.         Textenote.Redo()
  156.     End Sub
  158.     Private Sub RibbonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonItem1.Click
  159.         Textenote.Copy()
  160.     End Sub
  162.     Private Sub RibbonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonItem2.Click
  163.         Textenote.Paste()
  164.     End Sub
  165. End Class


 
Merci de votre aide.

Message cité 1 fois
Message édité par moimael le 18-05-2007 à 20:57:12
Reply

Marsh Posté le 07-05-2007 à 16:42:58   

Reply

Marsh Posté le 09-05-2007 à 13:05:25    

:bounce:


Message édité par moimael le 09-05-2007 à 13:05:50
Reply

Marsh Posté le 09-05-2007 à 14:27:51    

Sans avoir testé, je dirais :
- Créer un userControl correspondant au contenu de l'onglet
- Associer chaque onglet à un de ces contrôles (stockés dans une collection par exemple)
 
PS : J'aime bien ton interface :)

Reply

Marsh Posté le 10-05-2007 à 18:00:02    

Tout dabord, merci pour ta reponse, je vais tenter ce que tu me suggere. Par contre pourrait tu etre un peu plus précis sur la manière de s'y prendre ?
Merci :)

Reply

Marsh Posté le 11-05-2007 à 08:17:17    

moimael a écrit :

j'ai besoin d'onglets que l'utilisateur puisse ouvrir et fermer a volonté, un peu comme dans notepad++ ou firefox.


 
Je pense avoir trouvé ce que tu recherches :
 
http://www.codeproject.com/vb/net/MDITabControl.asp
 
Lionel.

Reply

Marsh Posté le 18-05-2007 à 20:58:11    

Merci de ta réponse, mais ce ne sont pas le songlets que je cherche mais comment les utiliser.

Reply

Marsh Posté le 18-05-2007 à 23:59:47    

Arf, merde, j'avais pas fait gaffe que t'étais en VB.NET :D
 
Bon, voilà un exemple complet (sans trop de bugs j'espère) et fonctionnel en C#.
Il reproduit le fonctionnement des onglets de Mozilla (ben ouais, parceque dans IE y'a un bouton fermer dans l'onglet et je me sens pas d'attaque ce soir pour en faire un ;))
 
Form1.cs

Code :
  1. using System;
  2. using System.IO;
  3. using System.Windows.Forms;
  4.  
  5. namespace tabs
  6. {
  7.     public partial class Form1 : Form
  8.     {
  9.         public Form1()
  10.         {
  11.             InitializeComponent();
  12.         }
  13.  
  14.         private void Form1_Load(object sender, EventArgs e)
  15.         {
  16.             this.tabControl1.TabPages.Add(new NewTab());
  17.         }
  18.  
  19.         private void button1_Click(object sender, EventArgs e)
  20.         {
  21.             OpenFileDialog ofd = new OpenFileDialog();
  22.             if (ofd.ShowDialog() == DialogResult.OK)
  23.             {
  24.                 ((FileTab)tabControl1.SelectedTab).FileName = ofd.FileName;
  25.                 ((FileTab)tabControl1.SelectedTab).Load();
  26.  
  27.             }
  28.         }
  29.  
  30.         private void button2_Click(object sender, EventArgs e)
  31.         {
  32.             SaveFileDialog sfd = new SaveFileDialog();
  33.             if (sfd.ShowDialog() == DialogResult.OK)
  34.             {
  35.                 ((FileTab)tabControl1.SelectedTab).FileName = sfd.FileName;
  36.                 ((FileTab)tabControl1.SelectedTab).Save();
  37.             }
  38.         }
  39.  
  40.         private void button3_Click(object sender, EventArgs e)
  41.         {
  42.             int oldIndex = tabControl1.SelectedIndex;
  43.             int newIndex = Math.Max(oldIndex, tabControl1.TabCount - 2);
  44.             tabControl1.SelectedIndex = newIndex;
  45.             tabControl1.TabPages.RemoveAt(oldIndex);
  46.         }
  47.     }
  48.  
  49.     public class NewTab : TabPage
  50.     {
  51.         public NewTab()
  52.         {
  53.             this.Text = "+";
  54.             this.Enter += new EventHandler(NewTab_Enter);
  55.         }
  56.  
  57.         public void NewTab_Enter(object sender, EventArgs e)
  58.         {
  59.             TabControl parent = (TabControl)this.Parent;
  60.             FileTab fileTab = new FileTab(string.Empty);
  61.             parent.TabPages.Insert(parent.TabPages.Count - 1, fileTab);
  62.             parent.SelectedIndex = parent.TabPages.Count - 2;
  63.         }
  64.     }
  65.  
  66.     public class FileTab : TabPage
  67.     {
  68.         private string filename = string.Empty;
  69.  
  70.         public TextBox FileEditor;
  71.         public string FileName
  72.         {
  73.             get
  74.             {
  75.                 return this.filename;
  76.             }
  77.             set
  78.             {
  79.                 this.Text = "<Nouveau>";
  80.                 this.filename = value;
  81.                 if (value != string.Empty)
  82.                 {
  83.                     FileInfo f = new FileInfo(value);
  84.                     if (f.Exists)
  85.                     {
  86.                         this.Text = f.Name;
  87.                     }
  88.                 }
  89.             }
  90.         }
  91.  
  92.         public FileTab(string filename)
  93.         {
  94.             this.FileName = filename;
  95.             FileEditor = new TextBox();
  96.             this.Controls.Add(FileEditor);
  97.         }
  98.  
  99.         public void Save()
  100.         {
  101.             FileInfo f = new FileInfo(this.filename);
  102.             if (f.Exists)
  103.             {
  104.                 f.Delete();
  105.             }
  106.             StreamWriter sw = f.CreateText();
  107.             sw.Write(this.FileEditor.Text);
  108.             sw.Close();
  109.         }
  110.  
  111.         public void Load()
  112.         {
  113.             FileInfo f = new FileInfo(this.filename);
  114.             if (f.Exists)
  115.             {
  116.                 StreamReader sr = f.OpenText();
  117.                 this.FileEditor.Text = sr.ReadToEnd();
  118.                 sr.Close();
  119.             }
  120.         }
  121.     }
  122. }


 
Form1.Designer.cs

Code :
  1. namespace tabs
  2. {
  3.     partial class Form1
  4.     {
  5.         /// <summary>
  6.         /// Required designer variable.
  7.         /// </summary>
  8.         private System.ComponentModel.IContainer components = null;
  9.  
  10.         /// <summary>
  11.         /// Clean up any resources being used.
  12.         /// </summary>
  13.         /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
  14.         protected override void Dispose(bool disposing)
  15.         {
  16.             if (disposing && (components != null))
  17.             {
  18.                 components.Dispose();
  19.             }
  20.             base.Dispose(disposing);
  21.         }
  22.  
  23.         #region Windows Form Designer generated code
  24.  
  25.         /// <summary>
  26.         /// Required method for Designer support - do not modify
  27.         /// the contents of this method with the code editor.
  28.         /// </summary>
  29.         private void InitializeComponent()
  30.         {
  31.             this.tabControl1 = new System.Windows.Forms.TabControl();
  32.             this.button1 = new System.Windows.Forms.Button();
  33.             this.button2 = new System.Windows.Forms.Button();
  34.             this.button3 = new System.Windows.Forms.Button();
  35.             this.SuspendLayout();
  36.             // 
  37.             // tabControl1
  38.             // 
  39.             this.tabControl1.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)
  40.                         | System.Windows.Forms.AnchorStyles.Left)
  41.                         | System.Windows.Forms.AnchorStyles.Right)));
  42.             this.tabControl1.Location = new System.Drawing.Point(12, 42);
  43.             this.tabControl1.Name = "tabControl1";
  44.             this.tabControl1.SelectedIndex = 0;
  45.             this.tabControl1.Size = new System.Drawing.Size(268, 212);
  46.             this.tabControl1.TabIndex = 0;
  47.             // 
  48.             // button1
  49.             // 
  50.             this.button1.Location = new System.Drawing.Point(12, 12);
  51.             this.button1.Name = "button1";
  52.             this.button1.Size = new System.Drawing.Size(75, 23);
  53.             this.button1.TabIndex = 1;
  54.             this.button1.Text = "Ouvrir";
  55.             this.button1.UseVisualStyleBackColor = true;
  56.             this.button1.Click += new System.EventHandler(this.button1_Click);
  57.             // 
  58.             // button2
  59.             // 
  60.             this.button2.Location = new System.Drawing.Point(93, 13);
  61.             this.button2.Name = "button2";
  62.             this.button2.Size = new System.Drawing.Size(75, 23);
  63.             this.button2.TabIndex = 2;
  64.             this.button2.Text = "Enregistrer";
  65.             this.button2.UseVisualStyleBackColor = true;
  66.             this.button2.Click += new System.EventHandler(this.button2_Click);
  67.             // 
  68.             // button3
  69.             // 
  70.             this.button3.Location = new System.Drawing.Point(174, 12);
  71.             this.button3.Name = "button3";
  72.             this.button3.Size = new System.Drawing.Size(75, 23);
  73.             this.button3.TabIndex = 3;
  74.             this.button3.Text = "Fermer";
  75.             this.button3.UseVisualStyleBackColor = true;
  76.             this.button3.Click += new System.EventHandler(this.button3_Click);
  77.             // 
  78.             // Form1
  79.             // 
  80.             this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
  81.             this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
  82.             this.ClientSize = new System.Drawing.Size(292, 266);
  83.             this.Controls.Add(this.button3);
  84.             this.Controls.Add(this.button2);
  85.             this.Controls.Add(this.button1);
  86.             this.Controls.Add(this.tabControl1);
  87.             this.Name = "Form1";
  88.             this.Text = "Form1";
  89.             this.Load += new System.EventHandler(this.Form1_Load);
  90.             this.ResumeLayout(false);
  91.  
  92.         }
  93.  
  94.         #endregion
  95.  
  96.         private System.Windows.Forms.TabControl tabControl1;
  97.         private System.Windows.Forms.Button button1;
  98.         private System.Windows.Forms.Button button2;
  99.         private System.Windows.Forms.Button button3;
  100.     }
  101. }


 
C'est évidement très grandement améliorable, et j'ai fait un peu à la va-vite (pour ne pas dire à la porcinet :D)


Message édité par MagicBuzz le 19-05-2007 à 00:33:18
Reply

Marsh Posté le 19-05-2007 à 00:11:50    

J'ai répondu qu'à moitié au problème tiens...
 
Bon, je continue l'exemple avec le bouton ;)

Reply

Marsh Posté le 19-05-2007 à 00:31:01    

Le constructeur de "FileTab" devient (en plus c'est plus joli comme ça ;) :

Code :
  1. public FileTab(string filename)
  2.         {
  3.             this.FileName = filename;
  4.  
  5.             PopupButton pb = new PopupButton();
  6.             this.Controls.Add(pb);
  7.             pb.Anchor = AnchorStyles.Bottom | AnchorStyles.Right;
  8.             pb.Location = new Point(this.Width - pb.Width - 5, this.Height - pb.Height - 5);
  9.  
  10.             FileEditor = new TextBox();
  11.             this.Controls.Add(FileEditor);
  12.             FileEditor.Multiline = true;
  13.             FileEditor.Anchor = AnchorStyles.Top | AnchorStyles.Bottom | AnchorStyles.Left | AnchorStyles.Right;
  14.             FileEditor.Size = new Size(this.Width, this.Height - pb.Height - 10);
  15.         }


 
Et la nouvelle classe :

Code :
  1. public class PopupButton : Button
  2.     {
  3.         public PopupButton()
  4.         {
  5.             this.Click += new EventHandler(PopupButton_Click);
  6.             this.Text = "Popup";
  7.         }
  8.  
  9.         public void PopupButton_Click(object sender, EventArgs e)
  10.         {
  11.             MessageBox.Show(((FileTab)this.Parent).FileEditor.Text);
  12.         }
  13.     }

Reply

Marsh Posté le 19-05-2007 à 23:34:10    

Vais me pencher un peu sur ton code qui a l'air très interressant, merci bcp d'avoir pris le temps de me repondre :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed