Options pendant le débogage

Télécharger le projet
Commenter

Description

Petit astuce.
Voir certaines options d'objets pendant le débogage
en utilisant un second formulaire et une grille de propriétés (PropertyGrid1)
Tous les objets utilisés dans le premier et le second formulaire
peuvent passer par la propertygrid, ce qui permet de voir en direct certaines options.
En souhaitant que cela puisse être utile à certaines et certains.

Source / Exemple : 


Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PropertyGrid1.SelectedObject = Form1
        PropertyGrid1.PropertySort = PropertySort.Alphabetical
    End Sub

    Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1
        TabPage1.Text = "Form1"
    End Sub

    Private Sub Bouton1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.Button1
        TabPage1.Text = "Button1"
    End Sub

    Private Sub Label1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.Label1
        TabPage1.Text = "Label1"
    End Sub

    Private Sub PictureBox1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.PictureBox1
        TabPage1.Text = "PictureBox1"
    End Sub

    Private Sub RichTextBox1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.RichTextBox1
        TabPage1.Text = "RichTextBox1"
    End Sub

    Private Sub WebBrowser1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebBrowser1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.WebBrowser1
        TabPage1.Text = "WebBrowser1"
    End Sub

    Private Sub Timer1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.Timer1
        TabPage1.Text = "Timer1"
    End Sub

    Private Sub ColorDialog1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorDialog1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Form1.ColorDialog1
        TabPage1.Text = "ColorDialog1"
    End Sub

    Private Sub Form2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Me
        TabPage1.Text = "Form2"
    End Sub

    Private Sub PropertyGrid1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertyGrid1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Me.PropertyGrid1
        TabPage1.Text = "PropertyGrid1"
    End Sub

    Private Sub MenuStrip1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuStrip1ToolStripMenuItem.Click
        PropertyGrid1.SelectedObject = Me.MenuStrip1
        TabPage1.Text = "MenuStrip1"
    End Sub
End Class
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.