• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 200
  • Last Modified:

Creating Controls during Runtime possible?

What i want to do is create and slap NEW controls onto my blank form once my app runs. The reason i want to do this is beceause the new controls that are added to the form may repeat, meaning i want it to now alter to become  control arrays. I have no idea how to do this. I am use to just slapping controls onto my form and going but since i want an indeterminite # of repeated instances of these controls i dont have a clue how to begin to do this.
Would it be wise to have the controls already on my form, but all having theire "visible" method set to "FALSE" and then somehow create instances of these controls and then display them?  If this is the case please let me know how to do this.
0
aniston
Asked:
aniston
  • 3
  • 2
1 Solution
 
jbilCommented:
Make a control array ( If you copy a control at design time and paste it VB will ask if you want to create a control array, select yes, then delete the one created leaving you with control(0))
Then at run time load controls as needed.
Then set left, top, visible, ext  props of the newly loaded controls.

This code loads 6 labels from Label1(0)

Dim i
Dim numofcontrols
numofcontrols = 6
    For i = 1 To numofcontrols
        Load Label1(i)
        Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width
        Label1(i).Visible = True
    Next i
0
 
ljaquesCommented:
What is weird is when i tried what you said for 6 different types of controls it only displayed the first one and didnt display any others.
I said:

    NumTasks = NumTasks + 1
   
    Load TaskFrame(NumTasks)
    TaskFrame(NumTasks).Caption = "Task " & NumTasks
    TaskFrame(NumTasks).Top = (60 + ((NumTasks - 1) * 1140))
    TaskFrame(NumTasks).Left = 45
    TaskFrame(NumTasks).Width = 2475
    TaskFrame(NumTasks).Height = 1065
    TaskFrame(NumTasks).visible=true
       
    Load StateImage(NumTasks)
    StateImage(NumTasks).Container = TaskFrame(NumTasks)
    StateImage(NumTasks).Picture= ImageList1.ListImages(1).Picture
    StateImage(NumTasks).Left = 60
    StateImage(NumTasks).Top = 270
    StateImage(numtasks).visible=true
   
    Load SiteNameLabel(NumTasks)
    SiteNameLabel(NumTasks).Container = TaskFrame(NumTasks)
    SiteNameLabel(NumTasks).AutoSize = True
    SiteNameLabel(NumTasks).Font.Name = "MS Serif"
    SiteNameLabel(NumTasks).Font.Size = 6
    SiteNameLabel(NumTasks).ForeColor = &H800080
    SiteNameLabel(NumTasks).Caption = "---"
    SiteNameLabel(NumTasks).Left = 585
    SiteNameLabel(NumTasks).Top = 225
    SiteNameLabel(NumTasks).visible=true

Only the TaskFrame control (it is a Frame) was displayed and the others were not. Any answers?
0
 
jbilCommented:
ljaques,

Your only asking for 1
NumTasks = NumTasks + 1
or 0=0+1=1


for 0 (already loaded) to 6 more use something like this...

Dim NumTasks As Integer
 NumTasks = 1
  Do Until NumTasks = 6
    Load TaskFrame(NumTasks)
    TaskFrame(NumTasks).Caption = "Task " & NumTasks
    TaskFrame(NumTasks).Top = (60 + ((NumTasks - 1) * 1140))
    TaskFrame(NumTasks).Left = 45
    TaskFrame(NumTasks).Width = 2475
    TaskFrame(NumTasks).Height = 1065
    TaskFrame(NumTasks).Visible = True
    NumTasks = NumTasks + 1
   Loop
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
ljaquesCommented:
Sorry i forgot to include the loop as you mentioned just above.
My code does look like what you just gave however it only visually displays the TaskFrame and not the other controls that may be inside that loop as well (ie. a Label). Must i use a: Show TaskFrame(numtasks), Show Label1(NumTasks),etc?

0
 
jbilCommented:
ljaques,
To set container use Set like this, I tried and it worked for me.

Load SiteNameLabel(NumTasks)
    Set SiteNameLabel(NumTasks).Container = TaskFrame(NumTasks)
         
    SiteNameLabel(NumTasks).AutoSize = True
    SiteNameLabel(NumTasks).Font.Name = "MS Serif"
    SiteNameLabel(NumTasks).Font.Size = 6
    SiteNameLabel(NumTasks).ForeColor = &H800080
    SiteNameLabel(NumTasks).Caption = "---"
    SiteNameLabel(NumTasks).Left = 1158 ''5
    SiteNameLabel(NumTasks).Top = 122 '5
    SiteNameLabel(NumTasks).Visible = True
0
 
anistonAuthor Commented:
Thanks very much jbil...You are a genius!!
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now