Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Display a Powerpack RectangleShape at runtime

Posted on 2009-05-08
2
Medium Priority
?
974 Views
Last Modified: 2012-05-06
The generation of the shape is controlled at runtime by data read from a file to set all the properties I care about e.g. Size, Location, Color, BorderWidth etc. Now, I would like to render it on a form. This should be trivial, but I can't just add it as a control so something different must be done...

Do I need to create some container on the form first, am I missing one of the commands to cause it to draw and/or connect it to a specific form, something else?? Probably a dumb question...
Dim rc As RectangleShape
        rc = New RectangleShape
        rc.Location = New Point(100, 100)
        rc.Size = New Point(150, 150)
        ' ... now what

Open in new window

0
Comment
Question by:MarkBottomley
2 Comments
 
LVL 16

Accepted Solution

by:
ToddBeaulieu earned 500 total points
ID: 24338912
Check this out:

http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.powerpacks.rectangleshape.aspx

I whipped this example up...
    Private Sub DrawRectangle()
        Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        Dim rect1 As New Microsoft.VisualBasic.PowerPacks.RectangleShape
 
        ' Set the form as the parent of the ShapeContainer.
        canvas.Parent = Me
 
        With rect1
            ' Set the ShapeContainer as the parent of the RectangleShape.
            .Parent = canvas
            .BorderWidth = 2
            .BorderStyle = DashStyle.Solid
            .BorderColor = Color.DarkBlue
 
            .CornerRadius = 5
            .FillColor = Color.LightBlue
            .FillStyle = FillStyle.Solid
            .FillGradientStyle = FillGradientStyle.ForwardDiagonal
            .FillGradientColor = Color.AntiqueWhite
 
            ' Set the location and size of the rectangle.
            .Left = 10
            .Top = 10
            .Width = 100
            .Height = 100
        End With
 
    End Sub

Open in new window

0
 

Author Closing Comment

by:MarkBottomley
ID: 31579566
The addition of a Canvas is not obvious when just adding the PowerPack items in the form designer - thanks
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…
Suggested Courses

572 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question