Prev: Cannot delet a MS Word document from my computer
Next: Calendar control in Word 2003
From: Steve on 21 May 2010 05:02
Hi,

I learned programming on VB5 and am now trying to get used to using control
collections instead of control arrays.

I have a set of 50 labels, labelled "Label1" "Label2" etc. I so far have the
code:

Dim intIndex As Integer
For intIndex = 0 To Me.Controls.Count - 1
If Left(Me.Controls(intIndex).Name, 1) = "L" Then
Me.Controls.(IntIndex).ForeColor = &H8000000D
Next intIndex

This selects all the labels and turns the text blue. I know the coding is a
bit sloppy but I'm okay with it. What I want to do though is find a way of
getting the labels to share the code as you could with control arrays, and
then get the program to be able to identify which label has been clicked on.
My goal is that any label is clicked on it will set the caption to the value
I have in a separately defined array.

To give a simply example:


myarray(1)="This is label1"
myarray(2)="This is label2"

Me.Controls(Index).Caption=myarray(index)

where index represents the collection index of the particular label that has
been clicked. I know that I could write out 50 separate pieces of code for
each label and just change the code manually but I was really hoping to avoid
this.

Any solutions would be great! Thanks
From: Fumei2 via OfficeKB.com on 21 May 2010 14:05
"My goal is that any label is clicked on "

The Click event for each control is separate.

Sub Label1_Click()

Sub Label2_Click()

Sub Label3_Click()

Sub Label4_Click()

Sub Label5_Click()


The problem is that there is no real controls collection, in that there is no
Index.

Me.Controls(x).Name returns the name of the control that was placed xth IN
ORDER. In other words, it is dynamic.

Say you have a TextBox, an OptionButton and a Checkbox, and they were placed
on the userform in that order. Then

Me.Controls(0) = TextBox1
Me.Controls(1) = OptionButton1
Me.Controls(2) = CheckBox1

Now suppose you delete the Textbox, go Oooops, I did not mean that, and make
a textbox back in the same place.

Me.Controls(0) = OptionButton1
Me.Controls(1) = CheckBox1
Me.Controls(2) = TextBox1

In both case you have three controls (and in the same place); in both cases
they have the same name - but they do NOT have the same varg.

It is Me.Controls(varg) - not Me.Controls(index)

Steve wrote:
>Hi,
>
>I learned programming on VB5 and am now trying to get used to using control
>collections instead of control arrays.
>
>I have a set of 50 labels, labelled "Label1" "Label2" etc. I so far have the
>code:
>
>Dim intIndex As Integer
>For intIndex = 0 To Me.Controls.Count - 1
> If Left(Me.Controls(intIndex).Name, 1) = "L" Then
>Me.Controls.(IntIndex).ForeColor = &H8000000D
>Next intIndex
>
>This selects all the labels and turns the text blue. I know the coding is a
>bit sloppy but I'm okay with it. What I want to do though is find a way of
>getting the labels to share the code as you could with control arrays, and
>then get the program to be able to identify which label has been clicked on.
>My goal is that any label is clicked on it will set the caption to the value
>I have in a separately defined array.
>
>To give a simply example:
>
>myarray(1)="This is label1"
>myarray(2)="This is label2"
>
>Me.Controls(Index).Caption=myarray(index)
>
>where index represents the collection index of the particular label that has
>been clicked. I know that I could write out 50 separate pieces of code for
>each label and just change the code manually but I was really hoping to avoid
>this.
>
>Any solutions would be great! Thanks

--
Gerry

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/201005/1

 | 
Pages: 1
Prev: Cannot delet a MS Word document from my computer
Next: Calendar control in Word 2003