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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB .NET]Problème gestion d'onglets

moimael

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 :

ainsi que le code :

Code :

Imports System.IO
Imports mRibbon
Imports Vista_Api
Public Class Twinotes
Dim nbonglet As Integer = 0
Private Sub bandeau_Options_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bandeau_Options.Click
Me.Visible = False
Accueil.Text = "wTwin"
End Sub
Private Sub Themebleu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themebleu.Click
RibbonControl.ColorScheme = mRibbon.ColorScheme.Blue
bandeau_Options.Invalidate()
bandeau_Texte.Invalidate()
Dim SW As StreamWriter
SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
SW.WriteLine("0" )
SW.Close()
End Sub
Private Sub Themegris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themegris.Click
RibbonControl.ColorScheme = mRibbon.ColorScheme.Gray
bandeau_Options.Invalidate()
bandeau_Texte.Invalidate()
Dim SW As StreamWriter
SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
SW.WriteLine("1" )
SW.Close()
End Sub
Private Sub Themechoix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Themechoix.Click
If ColorDialog1.ShowDialog() = DialogResult.OK Then
RibbonControl.ColorScheme = mRibbon.ColorScheme.Custom
RibbonControl.Color = ColorDialog1.Color
bandeau_Options.Invalidate()
bandeau_Texte.Invalidate()
Dim SW As StreamWriter
SW = File.CreateText("C:\Program Files\wTwin\config.ini" )
SW.WriteLine("2" )
SW.Close()
End If
End Sub
Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click
Dim Tabp As New TabPage
With Tabp
.Text = "Nouveau" & " " & nbonglet
.Name = "onglet" & nbonglet
End With
bandeau_Texte.Controls.Add(Tabp)
Dim rtb As New RichTextBox
With rtb
.Size = New System.Drawing.Size(786, 412)
.Location = New System.Drawing.Point(0, 0)
.Name = "Textenote" & nbonglet
.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.ForcedVertical
End With
Tabp.Controls.Add(rtb)
Dim EnvoiTwin As New CommandLink
With EnvoiTwin
.Location = New System.Drawing.Point(558, 347)
.Name = "EnvoiTwin" & nbonglet
.Size = New System.Drawing.Size(205, 60)
.Text = "Envoyer vers le Twin"
End With
rtb.Controls.Add(EnvoiTwin)
End Sub
Private Sub EnvoiTwin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnvoiTwin.Click
Dim texte, titre As String
texte = Textenote.Text
titre = Onglet1.Text
For Each di As DriveInfo In DriveInfo.GetDrives()
If di.IsReady Then
If di.VolumeLabel = "MYPHONE" Then
If Not texte = Nothing Then
Dim lettre As String
lettre = di.Name
Dim SW As StreamWriter
SW = File.CreateText(lettre & titre & ".txt" )
SW.WriteLine(texte$)
SW.Close()
Else : MsgBox("Vous n'avez pas renseigné tous les champs disponibles", MsgBoxStyle.Exclamation)
End If
End If
End If
Next
End Sub
Private Sub tabremoved_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles bandeau_Texte.ControlRemoved
Dim i As Integer
i = bandeau_Texte.TabCount - 2
If i = 1 Then
Nbonglets.Text = i & " " & "onglet ouvert"
ElseIf i > 1 Then
Nbonglets.Text = i & " " & "onglets ouverts"
End If
bandeau_Texte.SelectTab(i)
End Sub
Private Sub tabadded_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles bandeau_Texte.ControlAdded
Dim i As Integer
i = bandeau_Texte.TabCount - 1
If i = 1 Then
Nbonglets.Text = i & " " & "onglet ouvert"
ElseIf i > 1 Then
Nbonglets.Text = i & " " & "onglets ouverts"
End If
bandeau_Texte.SelectTab(i)
nbonglet += 1
End Sub
Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
If Not Textenote.Text = "" Then
Form1.Label1.Text = bandeau_Texte.SelectedTab.Text & " " & "a des modifications non enregistrées. Que voulez vous faire ?"
Form1.ShowDialog()
ElseIf Textenote.Text = "" Then
OpenFileDialog1.Filter = "Texte (*.txt)|*.txt"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim CheminFichier As String
CheminFichier = OpenFileDialog1.FileName
Try
Dim Fichier As New System.IO.StreamReader(CheminFichier)
Textenote.Text = Fichier.ReadToEnd
Fichier.Close()
Catch ex As System.Exception
MsgBox("Impossible d'ouvrir le fichier, il est peut être en cours d'utilisation", MsgBoxStyle.Critical)
Finally
End Try
bandeau_Texte.SelectedTab.Text = Path.GetFileNameWithoutExtension(CheminFichier)
End If
End If
End Sub
Private Sub Suppronglet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suppronglet.Click
If Not Textenote.Text = "" Then
Form2.Label1.Text = bandeau_Texte.SelectedTab.Text & " " & "a des modifications non enregistrées. Que voulez vous faire ?"
Form2.ShowDialog()
ElseIf Textenote.Text = "" Then
Dim i As Integer
i = bandeau_Texte.TabCount
If bandeau_Texte.TabCount > 2 Then
bandeau_Texte.TabPages.RemoveAt(bandeau_Texte.SelectedIndex)
End If
End If
End Sub
Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
Textenote.Undo()
End Sub
Private Sub Suivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suivant.Click
Textenote.Redo()
End Sub
Private Sub RibbonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonItem1.Click
Textenote.Copy()
End Sub
Private Sub RibbonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonItem2.Click
Textenote.Paste()
End Sub
End Class

Merci de votre aide.

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

Publicité

moimael

:bounce:

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

MagicBuzz

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

moimael

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

pot2yaourt

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.

moimael

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

MagicBuzz

Arf, merde, j'avais pas fait gaffe que t'étais en VB.NET

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 :

using System;
using System.IO;
using System.Windows.Forms;
 
namespace tabs
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void Form1_Load(object sender, EventArgs e)
        {
            this.tabControl1.TabPages.Add(new NewTab());
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            OpenFileDialog ofd = new OpenFileDialog();
            if (ofd.ShowDialog() == DialogResult.OK)
            {
                ((FileTab)tabControl1.SelectedTab).FileName = ofd.FileName;
                ((FileTab)tabControl1.SelectedTab).Load();
 
            }
        }
 
        private void button2_Click(object sender, EventArgs e)
        {
            SaveFileDialog sfd = new SaveFileDialog();
            if (sfd.ShowDialog() == DialogResult.OK)
            {
                ((FileTab)tabControl1.SelectedTab).FileName = sfd.FileName;
                ((FileTab)tabControl1.SelectedTab).Save();
            }
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            int oldIndex = tabControl1.SelectedIndex;
            int newIndex = Math.Max(oldIndex, tabControl1.TabCount - 2);
            tabControl1.SelectedIndex = newIndex;
            tabControl1.TabPages.RemoveAt(oldIndex);
        }
    }
 
    public class NewTab : TabPage
    {
        public NewTab()
        {
            this.Text = "+";
            this.Enter += new EventHandler(NewTab_Enter);
        }
 
        public void NewTab_Enter(object sender, EventArgs e)
        {
            TabControl parent = (TabControl)this.Parent;
            FileTab fileTab = new FileTab(string.Empty);
            parent.TabPages.Insert(parent.TabPages.Count - 1, fileTab);
            parent.SelectedIndex = parent.TabPages.Count - 2;
        }
    }
 
    public class FileTab : TabPage
    {
        private string filename = string.Empty;
 
        public TextBox FileEditor;
        public string FileName
        {
            get
            {
                return this.filename;
            }
            set
            {
                this.Text = "<Nouveau>";
                this.filename = value;
                if (value != string.Empty)
                {
                    FileInfo f = new FileInfo(value);
                    if (f.Exists)
                    {
                        this.Text = f.Name;
                    }
                }
            }
        }
 
        public FileTab(string filename)
        {
            this.FileName = filename;
            FileEditor = new TextBox();
            this.Controls.Add(FileEditor);
        }
 
        public void Save()
        {
            FileInfo f = new FileInfo(this.filename);
            if (f.Exists)
            {
                f.Delete();
            }
            StreamWriter sw = f.CreateText();
            sw.Write(this.FileEditor.Text);
            sw.Close();
        }
 
        public void Load()
        {
            FileInfo f = new FileInfo(this.filename);
            if (f.Exists)
            {
                StreamReader sr = f.OpenText();
                this.FileEditor.Text = sr.ReadToEnd();
                sr.Close();
            }
        }
    }
}

Form1.Designer.cs

Code :

namespace tabs
{
    partial class Form1
    {
        /// <summary>
        /// Required designer variable.
        /// </summary>
        private System.ComponentModel.IContainer components = null;
 
        /// <summary>
        /// Clean up any resources being used.
        /// </summary>
        /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
        protected override void Dispose(bool disposing)
        {
            if (disposing && (components != null))
            {
                components.Dispose();
            }
            base.Dispose(disposing);
        }
 
        #region Windows Form Designer generated code
 
        /// <summary>
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// </summary>
        private void InitializeComponent()
        {
            this.tabControl1 = new System.Windows.Forms.TabControl();
            this.button1 = new System.Windows.Forms.Button();
            this.button2 = new System.Windows.Forms.Button();
            this.button3 = new System.Windows.Forms.Button();
            this.SuspendLayout();
            // 
            // tabControl1
            // 
            this.tabControl1.Anchor = ((System.Windows.Forms.AnchorStyles)((((System.Windows.Forms.AnchorStyles.Top | System.Windows.Forms.AnchorStyles.Bottom)
                        | System.Windows.Forms.AnchorStyles.Left)
                        | System.Windows.Forms.AnchorStyles.Right)));
            this.tabControl1.Location = new System.Drawing.Point(12, 42);
            this.tabControl1.Name = "tabControl1";
            this.tabControl1.SelectedIndex = 0;
            this.tabControl1.Size = new System.Drawing.Size(268, 212);
            this.tabControl1.TabIndex = 0;
            // 
            // button1
            // 
            this.button1.Location = new System.Drawing.Point(12, 12);
            this.button1.Name = "button1";
            this.button1.Size = new System.Drawing.Size(75, 23);
            this.button1.TabIndex = 1;
            this.button1.Text = "Ouvrir";
            this.button1.UseVisualStyleBackColor = true;
            this.button1.Click += new System.EventHandler(this.button1_Click);
            // 
            // button2
            // 
            this.button2.Location = new System.Drawing.Point(93, 13);
            this.button2.Name = "button2";
            this.button2.Size = new System.Drawing.Size(75, 23);
            this.button2.TabIndex = 2;
            this.button2.Text = "Enregistrer";
            this.button2.UseVisualStyleBackColor = true;
            this.button2.Click += new System.EventHandler(this.button2_Click);
            // 
            // button3
            // 
            this.button3.Location = new System.Drawing.Point(174, 12);
            this.button3.Name = "button3";
            this.button3.Size = new System.Drawing.Size(75, 23);
            this.button3.TabIndex = 3;
            this.button3.Text = "Fermer";
            this.button3.UseVisualStyleBackColor = true;
            this.button3.Click += new System.EventHandler(this.button3_Click);
            // 
            // Form1
            // 
            this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
            this.ClientSize = new System.Drawing.Size(292, 266);
            this.Controls.Add(this.button3);
            this.Controls.Add(this.button2);
            this.Controls.Add(this.button1);
            this.Controls.Add(this.tabControl1);
            this.Name = "Form1";
            this.Text = "Form1";
            this.Load += new System.EventHandler(this.Form1_Load);
            this.ResumeLayout(false);
 
        }
 
        #endregion
 
        private System.Windows.Forms.TabControl tabControl1;
        private System.Windows.Forms.Button button1;
        private System.Windows.Forms.Button button2;
        private System.Windows.Forms.Button button3;
    }
}

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

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

MagicBuzz

J'ai répondu qu'à moitié au problème tiens...

Bon, je continue l'exemple avec le bouton

MagicBuzz

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

Code :

public FileTab(string filename)
        {
            this.FileName = filename;
 
            PopupButton pb = new PopupButton();
            this.Controls.Add(pb);
            pb.Anchor = AnchorStyles.Bottom | AnchorStyles.Right;
            pb.Location = new Point(this.Width - pb.Width - 5, this.Height - pb.Height - 5);
 
            FileEditor = new TextBox();
            this.Controls.Add(FileEditor);
            FileEditor.Multiline = true;
            FileEditor.Anchor = AnchorStyles.Top | AnchorStyles.Bottom | AnchorStyles.Left | AnchorStyles.Right;
            FileEditor.Size = new Size(this.Width, this.Height - pb.Height - 10);
        }

Et la nouvelle classe :

Code :

public class PopupButton : Button
    {
        public PopupButton()
        {
            this.Click += new EventHandler(PopupButton_Click);
            this.Text = "Popup";
        }
 
        public void PopupButton_Click(object sender, EventArgs e)
        {
            MessageBox.Show(((FileTab)this.Parent).FileEditor.Text);
        }
    }

moimael

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

FORUM HardWare.fr

Programmation

C#/.NET managed

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

Sujets relatifs
Probleme d'installation code block sous Ubuntu	[ASP .Net] XForms
probleme de slot avec qt et de QTimer	[C#/.NET 2.0] DropDownList SqlDataSource et Sécurité
FPDF problème d'orientation	Probleme FCKeditor (code source image)
problème de requete sql	gestion des accents dans un body d'email
probleme session_start ()	Création de forum : problème avec l'inscription
Plus de sujets relatifs à : [VB .NET]Problème gestion d'onglets

Page générée en 0.171 secondes