Solved

Creating Controls during Runtime possible?

Posted on 1998-12-26
6
180 Views
Last Modified: 2013-11-13
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
Comment
Question by:aniston
  • 3
  • 2
6 Comments
 
LVL 3

Accepted Solution

by:
jbil earned 20 total points
ID: 1452522
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
 

Expert Comment

by:ljaques
ID: 1452523
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
 
LVL 3

Expert Comment

by:jbil
ID: 1452524
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
ScreenConnect 6.0 Free Trial

Want empowering updates? You're in the right place! Discover new features in ScreenConnect 6.0, based on partner feedback, to keep you business operating smoothly and optimally (the way it should be). Explore all of the extras and enhancements for yourself!

 

Expert Comment

by:ljaques
ID: 1452525
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
 
LVL 3

Expert Comment

by:jbil
ID: 1452526
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
 

Author Comment

by:aniston
ID: 1452527
Thanks very much jbil...You are a genius!!
0

Featured Post

Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Visual Studio 2005 text editor 10 38
Protecting vb6 & .Net code Obfuscation 18 121
PHP installation issues 11 60
Server 2012 Hypervisor 2 9
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
If you don't know how to downgrade, my instructions below should be helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

772 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