Solved

Creating Controls during Runtime possible?

Posted on 1998-12-26
6
177 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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 Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

929 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

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now