Blue Theme Orange Theme Green Theme Red Theme
 
Mindcracker MVP Summit 2012
Home | Forums | Videos | Photos | Blogs | Beginners | Advertise with Us
 | Consulting  
Submit an Article Submit a Blog 
 Jump to
Skip Navigation Links
TechnologyExpand Technology
WebsiteExpand Website
DevExpress UI Controls
Search :       Advanced Search »
Home » Windows Controls » Add/Remove User Controls in VB.NET

Add/Remove User Controls in VB.NET

A nice feature in the Visual Studio .NET environment is the ability to create User Controls. In this article, I will show you how to create an Add/Remove User Control.

Author Rank :
Page Views : 37871
Downloads : 460
Rating :
 Rate it
Level : Beginner
   Print Read/Post comments Post a comment  Similar Articles  
   Email to a friend  Bookmark  Author's other articles  
Download Files:
AddRemoveUserControl.zip
 
 
6 Months Free & No Setup Fees ASP.NET Hosting!
Become a Sponsor
Become a Sponsor
 Tag Cloud
 Latest Jobs
More ... 
 Latest Interview Questions
More ... 

A nice feature in the Visual.NET environment is the ability to create User Controls.

Below is the files for the Visual.NET Add/Remove project:

The AddRemoveControl.vb is the User Control code for the Add Remove control and the Form1.vb code shows you how to implement this control in a form.

To create a user control is fairly easy.  In the Project menu,  you choose User Control, and it will add a custom control to your existing project as a separate class. This example is a user control that has two list boxes that can transfer strings back and forth between them.  In essence,  you are 'adding'  and 'removing' strings from one list into another.

The Source List (Inside Barn) is initially populated through the user controls populate method (In AddRemoveControl.vb):

Public Sub PopulateSource(ByVal list() As String)
SourceListbox.Items.All = list
ControlLogic()
End Sub 'PopulateSource

The rest of the functionality of the Add/Remove Control is initiated by the Add, Remove buttons.  If the Add button is pressed,  items selected in the source list box are moved to the destination list box. The code for this is illustrated below:

Protected Sub AddButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
' copy selected strings in the source list to the destination list
Dim i As Integer
For i = 0 To SourceListbox.SelectedItems.Count - 1
DestinationListbox.Items.Add(SourceListbox.SelectedItems(i))
Next i
' remove selected strings from the source listfor(int j = SourceListbox.SelectedIndices.Count - 1; j >= 0; j --)
If (True) Then
SourceListbox.Items.Remove(SourceListbox.SelectedIndices(j))
End If
ControlLogic()
End Sub 'AddButton_Click

Also noteworthy in the User Control is the use of the ArrayList type as a property for extracting data from the lists in the control:

Private m_DestList As New ArrayList
Public ReadOnly Property DestinationList() As ArrayList
Get
m_DestList.Clear()
Dim i As Integer
For i = 0 To DestinationListbox.Items.Count - 1
m_DestList.Add(
Me.DestinationListbox.Items(i))
Next i
Return m_DestList
End Get
End
Property

The ArrayList is a C# dynamic collection that works much the same as the old MFC CObArray collections, but is a bit easier to use.
In the property shown above, the array list is cleared and repopulated from the destination list box.  We can see the use of this property for retrieving data from our control in the form method below.  This method is called in the form, when the result button is pushed.

Private Sub DrawResult()
' get a reference to the graphics object in the formGraphics
g = Me.CreateGraphics() ' get the data from the user controls destination list boxArrayList myList = this.addRemoveUserControl1.DestinationList;// create font, pens, and brushes for displaying strings from user controlFont
myFont = New Font("Arial", 8)
Dim myPen As New Pen(Me.BackColor)
Dim myBrush As New SolidBrush(Color.Blue)
Dim backBrush As New SolidBrush(Me.BackColor) ' erase old resultRectangle rect = new Rectangle(ClientRectangle.Left, ClientRectangle.Bottom - 21, ClientRectangle.Right, ClientRectangle.Bottom);
g.DrawRectangle(myPen, rect)
g.FillRectangle(backBrush, rect)
Dim sumLength As Integer = 0 ' display strings from the user control at the bottom of the formfor (int i = 0; i < myList.Count ; i++)
If (True) Then
g.DrawString(myList(i).ToString(), myFont, myBrush, sumLength * myFont.Height, Me.ClientRectangle.Bottom - 20)
sumLength += myList(i).ToString().Length
End If ' free resourcesmyPen.Dispose();
myFont.Dispose()
myBrush.Dispose()
g.Dispose()
End Sub 'DrawResult

Although not done in this project,  the Add/Remove control could be made more useful by adding persistence to the add/remove functionality such as writing the source and destination list to a text file and reading it back it when the program is restarted.

Comment Request!
Thank you for reading this post. Please post your feedback, question, or comments about this post Here.
Login to add your contents and source code to this article
 [Top] Rate this article
 
 About the author
 
Mike Gold

Michael Gold is President of Microgold Software Inc., makers of the WithClass UML Tool. His company is a Microsoft VBA Partner and Borland Partner. Mike is a Microsoft MVP and founding member of C# Corner. He has a BSEE and MEng EE from Cornell University and has consulted for Chase Manhattan Bank, JP Morgan, Merrill Lynch, and Charles Schwab. Currently he is a senior developer at Finisar Corp. He has been involved in several .NET book projects, and is currently working on a book for using .NET with embedded systems.

He can be reached at mike@c-sharpcorner.com

Looking for C# Consulting?
C# Consulting is founded in 2002 by the founders of C# Corner. Unlike a traditional consulting company, our consultants are well-known experts in .NET and many of them are MVPs, authors, and trainers. We specialize in Microsoft .NET development and utilize Agile Development and Extreme Programming practices to provide fast pace quick turnaround results. Our software development model is a mix of Agile Development, traditional SDLC, and Waterfall models.
Click here to learn more about C# Consulting.
 
Introducing MaxV - one click. infinite control. Hyper-V Hosting from MaximumASP.
Finally – a virtual platform that delivers next-generation Windows Server 2008 Hyper-V virtualization technology from a managed hosting partner you can truly depend on. Visit www.maximumasp.com/max for a FREE 30 day trial. Hurry offer ends soon. Climb aboard the MaxV platform and take advantage of High Availability, Intelligent Monitoring, Recurrent Backups, and Scalability – with no hassle or hidden fees. As a managed hosting partner focused solely on Microsoft technologies since 2000, MaximumASP is uniquely qualified to provide the superior support that our business is built on. Unparalleled expertise with Microsoft technologies lead to working directly with Microsoft as first to offer IIS 7 and SQL 2008 betas in a hosted environment; partnering in the Go Live Program for Hyper-V; and product co-launches built on WS 2008 with Hyper-V technology.
Dynamic PDF
ceTE software specializes in components for dynamic PDF generation and manipulation. The DynamicPDF™ product line allows you to dynamically generate PDF documents, merge PDF documents and new content to existing PDF documents from within your applications.
Discover the top 5 tips for understanding .NET
Ricky Leeks presents the top 5 tips for understanding .NET Interoperability. Learn more.
Nevron Chart for .NET 2010.1 Now Available
The leading .NET charting control now features PDF, Flash and Silverlight export, visualization of large datasets and more. Deliver true charting functionality to your BI, Scorecard, Presentation or Scientific apps. Download evaluation now.
ASP.NET 4 Hosting
Get 2 Months Free of ASP.NET Hosting for Only $4.95/month! Receive FREE MS SQL and MySQL Databases Including ASP.NET 4/3.5, MVC 3.0, Silverlight 4, Windows 2008/IIS 7.0 Plus FREE IIS 7 Modules. Host UNLIMITED ASP.NET Web Sites – Click Here!
 
 Post a Feedback, Comment, or Question about this article
Subject:
Comment:
Mindcracker MVP Summit 2012
Become a Sponsor
 Comments
Team Foundation Server Hosting
 © 2012  contents copyright of their authors. Rest everything copyright Mindcracker. All rights reserved.