Add labels on a form programatically

DougP · Feb 9, 2000

I am using this code: 
Set Object1(a) = Controls.Add("VB.label", b, Form1) 
But I want to click on a label and trip the on click event. 
Since there is no label in design view how do I know which label I clicked on and do something. 
 
I did this a different way before where I had a label array such as label1(0) so it was the first item in an array. 
then I could add more labels to that array using code somehow but I forgot how. 
Does any one know how to do that.

Snaggs · Feb 9, 2000

Doug, 
 
You can use the LOAD command in Visual Basic to load another instance of a control from a control array. Just keep track of the index for the control. 
 
Load Label(1) 
Load Label(2) 
 
The 1 and 2 in the above example tell VB what index to make the controls. There are two things to have to do when you load intrinsic contorls at run time. 
 
1. You have position the control on the form somehwere. 
2. You have to make the control visible. 
 
Hope that helps, 
 
Steve 
<A HREF="mailto:sdmeier@jcn1.com">sdmeier@jcn1.com</A>

DougP · Feb 9, 2000

that's it 
Thanks so much

DougP · Feb 9, 2000

One other thing 
can I refer to the labels after I load them 
by 
ReDim Object1(MyTable.RecordCount) As VB.Label 
Set Object1(a) = Controls.Add("VB.label", b, Form1) 
 
but instead of .Add use some other parameter that refers to the label(1)

DougP · Feb 9, 2000

See a need to set a bunch of properties and I have all this code already. So I would like to refer to the loaded "labels" in place of the Created "labels". 
 
ReDim Object1(MyTable.RecordCount) As VB.Label 
ReDim Object2(MyTable.RecordCount) As VB.Label 
MyTable.MoveFirst 
 
Do While Not MyTable.EOF 
b = "Label" & a 
C = "LabelC" & a 
Set Object1(a) = Controls.Add("VB.label", b, Form1) 
Set Object2(a) = Controls.Add("VB.label", C, Form1) 
With Object1(a) 
.Visible = True 
.Top = d + 100 
.Width = 1500 
.Height = 225 
end with

Snaggs · Feb 9, 2000

Doug, 
 
I'm not quite sure what it is you're trying to do, by looking at the code. From what I gather, you're reading data from a database and adding labels to the form to hold the data. 
 
You reference the label by the index number. Why not say this: 
 
With Label(a) 
.Visible = True 
.Top = d + 100 
.Width = 1500 
.Height = 225 
End With 
 
If you can give me a general idea of what you're tying to do I might be able to offer a better response to your question. For instance if you tell me you're reading (whatever) out of the database as a one record a piece to put the data in a label for whatever reason, I might be able to help you more. Let me know what the concept is of what you're trying to do. 
 
Thanks, 
 
Steve 
<A HREF="mailto:sdmeier@jcn1.com">sdmeier@jcn1.com</A> 
 
P.S. You can email me too, for some reason, I'm not getting the messages anymore when someone posts, so I have to keep checking the forums manually.

DougP · Feb 9, 2000

Well I can see your confusion. 
I am writing program that will run on the receptionist's PC and list all of the employees that work there. Next to their name have a label that say's either "IN" or "OUT" and I have a few others like "doctor" "vacation" etc. 
so she can glance at it to see if someone is sick or whatever. When she answers the phone she can say oh Tom is out to lunch he'll be back at 12:30 (cause she can also se e the time they left the building. 
I want the program to sit on the bottom of her desktop all day long. 
When it loads, it reads all of the employees from the datbase and loads labels accordingly. 
the reason I have it load labels is that as emplyee's come and go it can adjust itself based on added or deleted records. 
I wrote one 3 years ago that did the same thing. I have the .EXE but no code. and I don't remeber how I did it all. 
It by the way talks as each empolyee comes and goes it say's their name (recorded in separate .WAV files) and "In the building" "Out for Lunch" etc. 
The receptionist REALLY liked it becasue she did not have to look at the screen. It told her who was coming and going automatically.

Snaggs · Feb 9, 2000

Doug, 
 
Very interesting project! I'm glad you shared that with us. What I might suggest is that you use something like the ListView control where you can just add and delete records which is much easier than adding controls to the form and deleting them. You can still have a status for each employee, just create a column for it. 
 
In the left column have the employees name, then in the right column have their status. Then just add and remove the employees from the listiview as they come and go. 
 
The other thing you could do is have two ListViews. One for employees that were "IN" and one for ones that were "OUT". Then you could just move them between the lists as they come and go. 
 
Also, if you use a ListView control and seperate out the First and Last Name, the secretary could sort the list in whatever fashion she wanted to. ie: First name, Last Name, etc... 
 
As far as status, you could add as many columns to the listview that you needed. As the application grows you interface will nicely accomodate it. I still like the .WAV file idea you had... that shows true innovation! 
 
Just some random thoughts I had... 
 
Steve 
<A HREF="mailto:sdmeier@jcn1.com">sdmeier@jcn1.com</A>

positran · Feb 9, 2000

You could also you a flexgrid control. Not as easy to add and delete items but it does give you control of colors and you get the added benefit of rows and columns. Neat Project 
 
Pos.

DougP · Feb 10, 2000

Thanks ALL 
I did have a copy of it on my WEB site as a demo. 
But it got deleted. I can add it back. 
If you want to see it e-mail me. 
<A HREF="mailto:dposton@ij.net">dposton@ij.net</A> 
I'll give you the URL.

edderic · Feb 10, 2000

Create a label : label1(0) 
 
Private Sub Form_Load() 
Dim l As Long 
Dim i As Integer 
Dim s As Integer 
Dim x As Integer 
FontSize = 18 
x = Form1.TextWidth("dit is een test") 
s = Form1.TextHeight("X") 
 
For i = 1 To 10 
Load Label1(i) 
Label1(i).FontSize = 18 
l = Label1(i - 1).Top + Label1(i - 1).Height 
Label1(i).Move 10, l + 100, x, s 
Label1(i).Caption = "test" 
Label1(i).Visible = True 
Next 
 
Eric

DougP · Feb 10, 2000

Cool Eric thanks

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Add labels on a form programatically

DougP

MIS

Snaggs

Programmer

DougP

MIS

DougP

MIS

DougP

MIS

Snaggs

Programmer

DougP

MIS

Snaggs

Programmer

positran

Programmer

DougP

MIS

edderic

Programmer

DougP

MIS

Similar threads

Part and Inventory Search

Sponsor