Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version

Declarations Generator

, 29 Jun 2010 GPL3
A tool which helps in generating codes for events/properties, so that users of your classes can use events/properties of embedded classes
DeclarationsGenerator_0.0.0.3.zip
DeclarationsGenerator 0.0.0.3
EventsDeclarationsGenerator
bin
Debug
DeclarationsGenerator.exe
Release
DeclarationsGenerator.vbproj.user
Forms
Icons
AssemblyImg.bmp
ClassImg.bmp
Module & Classes
My Project
Application.myapp
Settings.settings
Temp
Tutorial
EventsPropertiesDeclarationsGenerator.gif
Tutorial AR.doc
Tutorial ENG.doc
EventsDeclarationsGenerator.suo
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frm_Main
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Main))
        Me.chkLst_EventsNames = New System.Windows.Forms.CheckedListBox
        Me.lbl_EventsPropertiesNames_lbl = New System.Windows.Forms.Label
        Me.trv_Classes = New System.Windows.Forms.TreeView
        Me.imgLst_Classes = New System.Windows.Forms.ImageList(Me.components)
        Me.lbl_Classes_lbl = New System.Windows.Forms.Label
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
        Me.ToolStrip_Check = New System.Windows.Forms.ToolStrip
        Me.SplitBttn_CheckOptions = New System.Windows.Forms.ToolStripSplitButton
        Me.ToolStripMnu_CheckAll = New System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripMnu_UnCheckAll = New System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripMnu_InvertCheck = New System.Windows.Forms.ToolStripMenuItem
        Me.StatusStrip = New System.Windows.Forms.StatusStrip
        Me.status_label = New System.Windows.Forms.ToolStripStatusLabel
        Me.txt_CtrlName = New System.Windows.Forms.TextBox
        Me.lbl_CtrlName_lbl = New System.Windows.Forms.Label
        Me.lbl_Line = New System.Windows.Forms.Label
        Me.pnl_Controls = New System.Windows.Forms.Panel
        Me.Rad_GenProperties = New System.Windows.Forms.RadioButton
        Me.Rad_GenEvents = New System.Windows.Forms.RadioButton
        Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
        Me.ToolStrip_Controls = New System.Windows.Forms.ToolStrip
        Me.ToolStripBtn_GenDeclarations = New System.Windows.Forms.ToolStripButton
        Me.ToolStripButton_About = New System.Windows.Forms.ToolStripButton
        Me.ToolStripBtn_Close = New System.Windows.Forms.ToolStripButton
        Me.SplitContainer1.Panel1.SuspendLayout()
        Me.SplitContainer1.Panel2.SuspendLayout()
        Me.SplitContainer1.SuspendLayout()
        Me.ToolStrip_Check.SuspendLayout()
        Me.StatusStrip.SuspendLayout()
        Me.pnl_Controls.SuspendLayout()
        Me.ToolStrip_Controls.SuspendLayout()
        Me.SuspendLayout()
        '
        'chkLst_EventsNames
        '
        Me.chkLst_EventsNames.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.chkLst_EventsNames.FormattingEnabled = True
        Me.chkLst_EventsNames.HorizontalScrollbar = True
        Me.chkLst_EventsNames.Location = New System.Drawing.Point(3, 31)
        Me.chkLst_EventsNames.Name = "chkLst_EventsNames"
        Me.chkLst_EventsNames.Size = New System.Drawing.Size(276, 319)
        Me.chkLst_EventsNames.Sorted = True
        Me.chkLst_EventsNames.TabIndex = 1
        Me.chkLst_EventsNames.ThreeDCheckBoxes = True
        Me.ToolTip.SetToolTip(Me.chkLst_EventsNames, "contains the names of the chosen Class Events," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "so you can choose certain events," & _
                " not all of them")
        '
        'lbl_EventsPropertiesNames_lbl
        '
        Me.lbl_EventsPropertiesNames_lbl.AutoSize = True
        Me.lbl_EventsPropertiesNames_lbl.Location = New System.Drawing.Point(12, 15)
        Me.lbl_EventsPropertiesNames_lbl.Name = "lbl_EventsPropertiesNames_lbl"
        Me.lbl_EventsPropertiesNames_lbl.Size = New System.Drawing.Size(40, 13)
        Me.lbl_EventsPropertiesNames_lbl.TabIndex = 2
        Me.lbl_EventsPropertiesNames_lbl.Text = "Events"
        Me.ToolTip.SetToolTip(Me.lbl_EventsPropertiesNames_lbl, "Events")
        '
        'trv_Classes
        '
        Me.trv_Classes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.trv_Classes.HideSelection = False
        Me.trv_Classes.ImageIndex = 0
        Me.trv_Classes.ImageList = Me.imgLst_Classes
        Me.trv_Classes.Location = New System.Drawing.Point(6, 31)
        Me.trv_Classes.Name = "trv_Classes"
        Me.trv_Classes.SelectedImageIndex = 0
        Me.trv_Classes.Size = New System.Drawing.Size(288, 336)
        Me.trv_Classes.TabIndex = 4
        Me.ToolTip.SetToolTip(Me.trv_Classes, "contains the assemblies and Types names")
        '
        'imgLst_Classes
        '
        Me.imgLst_Classes.ImageStream = CType(resources.GetObject("imgLst_Classes.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.imgLst_Classes.TransparentColor = System.Drawing.Color.Magenta
        Me.imgLst_Classes.Images.SetKeyName(0, "AssemblyImg.bmp")
        Me.imgLst_Classes.Images.SetKeyName(1, "ClassImg.bmp")
        '
        'lbl_Classes_lbl
        '
        Me.lbl_Classes_lbl.AutoSize = True
        Me.lbl_Classes_lbl.Location = New System.Drawing.Point(3, 15)
        Me.lbl_Classes_lbl.Name = "lbl_Classes_lbl"
        Me.lbl_Classes_lbl.Size = New System.Drawing.Size(101, 13)
        Me.lbl_Classes_lbl.TabIndex = 5
        Me.lbl_Classes_lbl.Text = "Assemblies && Types"
        '
        'SplitContainer1
        '
        Me.SplitContainer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.SplitContainer1.Location = New System.Drawing.Point(0, 105)
        Me.SplitContainer1.Name = "SplitContainer1"
        '
        'SplitContainer1.Panel1
        '
        Me.SplitContainer1.Panel1.Controls.Add(Me.lbl_Classes_lbl)
        Me.SplitContainer1.Panel1.Controls.Add(Me.trv_Classes)
        '
        'SplitContainer1.Panel2
        '
        Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip_Check)
        Me.SplitContainer1.Panel2.Controls.Add(Me.lbl_EventsPropertiesNames_lbl)
        Me.SplitContainer1.Panel2.Controls.Add(Me.chkLst_EventsNames)
        Me.SplitContainer1.Size = New System.Drawing.Size(589, 372)
        Me.SplitContainer1.SplitterDistance = 299
        Me.SplitContainer1.SplitterWidth = 6
        Me.SplitContainer1.TabIndex = 6
        '
        'ToolStrip_Check
        '
        Me.ToolStrip_Check.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ToolStrip_Check.Dock = System.Windows.Forms.DockStyle.None
        Me.ToolStrip_Check.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
        Me.ToolStrip_Check.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SplitBttn_CheckOptions})
        Me.ToolStrip_Check.Location = New System.Drawing.Point(226, 3)
        Me.ToolStrip_Check.Name = "ToolStrip_Check"
        Me.ToolStrip_Check.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
        Me.ToolStrip_Check.Size = New System.Drawing.Size(59, 25)
        Me.ToolStrip_Check.TabIndex = 4
        Me.ToolStrip_Check.Text = "ToolStrip1"
        '
        'SplitBttn_CheckOptions
        '
        Me.SplitBttn_CheckOptions.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
        Me.SplitBttn_CheckOptions.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMnu_CheckAll, Me.ToolStripMnu_UnCheckAll, Me.ToolStripMnu_InvertCheck})
        Me.SplitBttn_CheckOptions.Image = CType(resources.GetObject("SplitBttn_CheckOptions.Image"), System.Drawing.Image)
        Me.SplitBttn_CheckOptions.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.SplitBttn_CheckOptions.Name = "SplitBttn_CheckOptions"
        Me.SplitBttn_CheckOptions.Size = New System.Drawing.Size(56, 22)
        Me.SplitBttn_CheckOptions.Text = "Check"
        '
        'ToolStripMnu_CheckAll
        '
        Me.ToolStripMnu_CheckAll.Name = "ToolStripMnu_CheckAll"
        Me.ToolStripMnu_CheckAll.Size = New System.Drawing.Size(144, 22)
        Me.ToolStripMnu_CheckAll.Text = "Check All"
        '
        'ToolStripMnu_UnCheckAll
        '
        Me.ToolStripMnu_UnCheckAll.Name = "ToolStripMnu_UnCheckAll"
        Me.ToolStripMnu_UnCheckAll.Size = New System.Drawing.Size(144, 22)
        Me.ToolStripMnu_UnCheckAll.Text = "Un-Check All"
        '
        'ToolStripMnu_InvertCheck
        '
        Me.ToolStripMnu_InvertCheck.Name = "ToolStripMnu_InvertCheck"
        Me.ToolStripMnu_InvertCheck.Size = New System.Drawing.Size(144, 22)
        Me.ToolStripMnu_InvertCheck.Text = "Invert Check"
        '
        'StatusStrip
        '
        Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.status_label})
        Me.StatusStrip.Location = New System.Drawing.Point(0, 480)
        Me.StatusStrip.Name = "StatusStrip"
        Me.StatusStrip.Size = New System.Drawing.Size(589, 22)
        Me.StatusStrip.TabIndex = 7
        '
        'status_label
        '
        Me.status_label.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                    Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                    Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.status_label.BorderStyle = System.Windows.Forms.Border3DStyle.Sunken
        Me.status_label.Margin = New System.Windows.Forms.Padding(0, 2, 0, 1)
        Me.status_label.Name = "status_label"
        Me.status_label.Size = New System.Drawing.Size(574, 19)
        Me.status_label.Spring = True
        Me.status_label.Text = "Ready"
        Me.status_label.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'txt_CtrlName
        '
        Me.txt_CtrlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txt_CtrlName.Location = New System.Drawing.Point(169, 31)
        Me.txt_CtrlName.Name = "txt_CtrlName"
        Me.txt_CtrlName.Size = New System.Drawing.Size(411, 20)
        Me.txt_CtrlName.TabIndex = 8
        Me.txt_CtrlName.Text = "ControlName"
        Me.ToolTip.SetToolTip(Me.txt_CtrlName, "the control to expose its events," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "it's gonna used as a Prefix of the Events Name" & _
                "s and Raiser Methods")
        '
        'lbl_CtrlName_lbl
        '
        Me.lbl_CtrlName_lbl.AutoSize = True
        Me.lbl_CtrlName_lbl.Location = New System.Drawing.Point(166, 13)
        Me.lbl_CtrlName_lbl.Name = "lbl_CtrlName_lbl"
        Me.lbl_CtrlName_lbl.Size = New System.Drawing.Size(72, 13)
        Me.lbl_CtrlName_lbl.TabIndex = 9
        Me.lbl_CtrlName_lbl.Text = "Control Name"
        '
        'lbl_Line
        '
        Me.lbl_Line.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lbl_Line.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbl_Line.Location = New System.Drawing.Point(0, 100)
        Me.lbl_Line.Name = "lbl_Line"
        Me.lbl_Line.Size = New System.Drawing.Size(597, 2)
        Me.lbl_Line.TabIndex = 12
        '
        'pnl_Controls
        '
        Me.pnl_Controls.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnl_Controls.Controls.Add(Me.Rad_GenProperties)
        Me.pnl_Controls.Controls.Add(Me.Rad_GenEvents)
        Me.pnl_Controls.Controls.Add(Me.txt_CtrlName)
        Me.pnl_Controls.Controls.Add(Me.lbl_CtrlName_lbl)
        Me.pnl_Controls.Enabled = False
        Me.pnl_Controls.Location = New System.Drawing.Point(3, 30)
        Me.pnl_Controls.Name = "pnl_Controls"
        Me.pnl_Controls.Size = New System.Drawing.Size(588, 59)
        Me.pnl_Controls.TabIndex = 13
        '
        'Rad_GenProperties
        '
        Me.Rad_GenProperties.AutoSize = True
        Me.Rad_GenProperties.Location = New System.Drawing.Point(9, 31)
        Me.Rad_GenProperties.Name = "Rad_GenProperties"
        Me.Rad_GenProperties.Size = New System.Drawing.Size(74, 17)
        Me.Rad_GenProperties.TabIndex = 11
        Me.Rad_GenProperties.Text = "Properties"
        Me.Rad_GenProperties.UseVisualStyleBackColor = True
        '
        'Rad_GenEvents
        '
        Me.Rad_GenEvents.AutoSize = True
        Me.Rad_GenEvents.Checked = True
        Me.Rad_GenEvents.Location = New System.Drawing.Point(9, 11)
        Me.Rad_GenEvents.Name = "Rad_GenEvents"
        Me.Rad_GenEvents.Size = New System.Drawing.Size(58, 17)
        Me.Rad_GenEvents.TabIndex = 10
        Me.Rad_GenEvents.TabStop = True
        Me.Rad_GenEvents.Text = "Events"
        Me.Rad_GenEvents.UseVisualStyleBackColor = True
        '
        'ToolStrip_Controls
        '
        Me.ToolStrip_Controls.Enabled = False
        Me.ToolStrip_Controls.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripBtn_GenDeclarations, Me.ToolStripButton_About, Me.ToolStripBtn_Close})
        Me.ToolStrip_Controls.Location = New System.Drawing.Point(0, 0)
        Me.ToolStrip_Controls.Name = "ToolStrip_Controls"
        Me.ToolStrip_Controls.Size = New System.Drawing.Size(589, 25)
        Me.ToolStrip_Controls.TabIndex = 14
        '
        'ToolStripBtn_GenDeclarations
        '
        Me.ToolStripBtn_GenDeclarations.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
        Me.ToolStripBtn_GenDeclarations.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripBtn_GenDeclarations.Name = "ToolStripBtn_GenDeclarations"
        Me.ToolStripBtn_GenDeclarations.Size = New System.Drawing.Size(126, 22)
        Me.ToolStripBtn_GenDeclarations.Text = "Generate Declarations"
        '
        'ToolStripButton_About
        '
        Me.ToolStripButton_About.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
        Me.ToolStripButton_About.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton_About.Name = "ToolStripButton_About"
        Me.ToolStripButton_About.Size = New System.Drawing.Size(44, 22)
        Me.ToolStripButton_About.Text = "About"
        '
        'ToolStripBtn_Close
        '
        Me.ToolStripBtn_Close.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
        Me.ToolStripBtn_Close.Image = CType(resources.GetObject("ToolStripBtn_Close.Image"), System.Drawing.Image)
        Me.ToolStripBtn_Close.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripBtn_Close.Name = "ToolStripBtn_Close"
        Me.ToolStripBtn_Close.Size = New System.Drawing.Size(38, 22)
        Me.ToolStripBtn_Close.Text = "close"
        '
        'frm_Main
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(589, 502)
        Me.Controls.Add(Me.ToolStrip_Controls)
        Me.Controls.Add(Me.pnl_Controls)
        Me.Controls.Add(Me.lbl_Line)
        Me.Controls.Add(Me.StatusStrip)
        Me.Controls.Add(Me.SplitContainer1)
        Me.MinimumSize = New System.Drawing.Size(567, 482)
        Me.Name = "frm_Main"
        Me.Text = "Events / Properties Declarations Generator"
        Me.SplitContainer1.Panel1.ResumeLayout(False)
        Me.SplitContainer1.Panel1.PerformLayout()
        Me.SplitContainer1.Panel2.ResumeLayout(False)
        Me.SplitContainer1.Panel2.PerformLayout()
        Me.SplitContainer1.ResumeLayout(False)
        Me.ToolStrip_Check.ResumeLayout(False)
        Me.ToolStrip_Check.PerformLayout()
        Me.StatusStrip.ResumeLayout(False)
        Me.StatusStrip.PerformLayout()
        Me.pnl_Controls.ResumeLayout(False)
        Me.pnl_Controls.PerformLayout()
        Me.ToolStrip_Controls.ResumeLayout(False)
        Me.ToolStrip_Controls.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents chkLst_EventsNames As System.Windows.Forms.CheckedListBox
    Friend WithEvents lbl_EventsPropertiesNames_lbl As System.Windows.Forms.Label
    Friend WithEvents trv_Classes As System.Windows.Forms.TreeView
    Friend WithEvents lbl_Classes_lbl As System.Windows.Forms.Label
    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
    Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip
    Friend WithEvents status_label As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents txt_CtrlName As System.Windows.Forms.TextBox
    Friend WithEvents lbl_CtrlName_lbl As System.Windows.Forms.Label
    Friend WithEvents imgLst_Classes As System.Windows.Forms.ImageList
    Friend WithEvents lbl_Line As System.Windows.Forms.Label
    Friend WithEvents pnl_Controls As System.Windows.Forms.Panel
    Friend WithEvents ToolTip As System.Windows.Forms.ToolTip
    Friend WithEvents ToolStrip_Check As System.Windows.Forms.ToolStrip
    Friend WithEvents SplitBttn_CheckOptions As System.Windows.Forms.ToolStripSplitButton
    Friend WithEvents ToolStripMnu_CheckAll As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMnu_UnCheckAll As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripMnu_InvertCheck As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStrip_Controls As System.Windows.Forms.ToolStrip
    Friend WithEvents ToolStripBtn_Close As System.Windows.Forms.ToolStripButton
    Friend WithEvents ToolStripBtn_GenDeclarations As System.Windows.Forms.ToolStripButton
    Friend WithEvents ToolStripButton_About As System.Windows.Forms.ToolStripButton
    Friend WithEvents Rad_GenProperties As System.Windows.Forms.RadioButton
    Friend WithEvents Rad_GenEvents As System.Windows.Forms.RadioButton

End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The GNU General Public License (GPLv3)

Share

About the Author

vbnetskywalker
Software Developer
Syrian Arab Republic Syrian Arab Republic
The more I learn the more I see my ignorance.
To see all programs and tools I've made head to my Shared Folder

| Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.141223.1 | Last Updated 29 Jun 2010
Article Copyright 2010 by vbnetskywalker
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid