VB2005 Control Arrays

[Galen Somerville]

Just looking for thoughts on converting VB6 Control arrays.

Here's the way I did it. The control happens to be a Usercontrol, CircVol,
but could be any control.

I would appreciate any suggestions on a better way to do it.

GalenS
DECLARATION
Public UserSwp As ArrayList

FORM_LOAD
BuildUserSwp()

BUILD
Private Sub BuildUserSwp()
UserSwp = New ArrayList
UserSwp.Add(Cir cVol1)
UserSwp.Add(Cir cVol2)
UserSwp.Add(Cir cVol3)
UserSwp.Add(Cir cVol4)
UserSwp.Add(Cir cVol5)
UserSwp.Add(Cir cVol6)
End Sub
BUTTON_CLICK
Private Sub UserSwpAll_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s) _
Handles CircVol1.Click, CircVol2.Click, CircVol3.Click, CircVol4.Click,
_
CircVol5.Click, CircVol6.Click
Dim Index As Integer
Select Case sender.name
Case "CircVol1"
Index = 0
Case "CircVol2"
Index = 1
Case "CircVol3"
Index = 2
Case "CircVol4"
Index = 3
Case "CircVol5"
Index = 4
Case "CircVol6"
Index = 5
End Select
gCtrls.ChnVol(I ndex) = CByte(UserSwp(I ndex).volval)
Call UpdatePots(Inde x, gCtrls.ChnVol(I ndex))
End Sub

PARTIAL USAGE
For Index = 0 To 4
UserSwp(Index). circName = Chr(Inner)
UserSwp(Index). Width = 90
UserSwp(Index). Height = 97
UserSwp(Index). circBackColor = Me.BackColor
Call SetControl(Inde x, gCtrls.ChnVol(I ndex))
LabControl(Inde x).Text = Chr(Inner)
Inner = Inner + 1
Next
UserSwp(5).Name = "LUNG"
UserSwp(5).circ BackColor = Me.BackColor

ANOTHER USAGE
For Index = 1 To 6
gCtrls.ChnVol(I ndex - 1) = gbytEPA(Index)
frmSweep.UserSw p(Index - 1).VolVal = gbytEPA(Index)
Next Index

[creator_bob]

Rather than the name, I prefer to use the tag property and give it an
integer. If your tag is already used for something else and you want a
design-time array, I would probaby parse my name string instead of
using brute force; maybe write a function that strips all alpha
characters off the senders name and returns only the number.

For run-time created arrays, I can add a handle one at a time.

For X=... to ...
....
Control=new button
Control.Tag=X
' Set location and size
myForm.Controls .Add(Control)
AddHandler Control.Click, AddressOf Button_Click

....
Private Sub Button_Click(By Val sender As System.Object, ByVal e As
System.EventArg s)
with DirectCast(Send er, Button) ' Avoids late binding. It probably
doesn't hurt speed much, though. I do it for intellisense rather than
speed anyway.
' Use ".tag" to see which button it is.

[Galen Somerville]

Some good points. I printed it out and will wait to see if other ideas are
forthcoming.

Thanks
GalenS

"creator_bo b" <ro************ @hotmail.com> wrote in message
news:11******** **************@ i40g2000cwc.goo glegroups.com.. .

Rather than the name, I prefer to use the tag property and give it an
integer. If your tag is already used for something else and you want a
design-time array, I would probaby parse my name string instead of
using brute force; maybe write a function that strips all alpha
characters off the senders name and returns only the number.

For run-time created arrays, I can add a handle one at a time.

For X=... to ...
...
Control=new button
Control.Tag=X
' Set location and size
myForm.Controls .Add(Control)
AddHandler Control.Click, AddressOf Button_Click

...
Private Sub Button_Click(By Val sender As System.Object, ByVal e As
System.EventArg s)
with DirectCast(Send er, Button) ' Avoids late binding. It probably
doesn't hurt speed much, though. I do it for intellisense rather than
speed anyway.
' Use ".tag" to see which button it is.

[Jeffrey Tan[MSFT]]

Hi Galen,

I think the following articles should be helpful to you:
"Getting Back Your Visual Basic 6.0 Goodies"
http://msdn.microsoft.com/library/de...us/dnadvnet/ht
ml/vbnet05132003.a sp
"Creating Control Arrays in Visual Basic .NET and Visual C# .NET"
http://msdn.microsoft.com/library/de...us/dv_vstechar
t/html/vbtchCreatingCo ntrolArraysInVi sualBasicNETVis ualCNET.asp
"Accessing controls by their names or indices"
http://dotnet.mvps.org/dotnet/faqs/?...eindex&lang=en

Hope this helps!

Best regards,
Jeffrey Tan
Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.
==============

[Galen Somerville]

Very interesting but I still like my method better. I will probably modify
per "Creator_bo b's" suggestions.

Since I refer to these controls throughout my program I like to use
MyButton(index) .Checked instead of stuff like

Dim obj As Object
Dim iCount As Integer = 0
For Each obj In colMyCheckBoxes
If TypeOf obj Is CheckBox Then
Dim chkCheckBox As CheckBox
chkCheckBox = CType(obj, CheckBox)
If chkCheckBox.Che cked Then
iCount += 1
End If
End If
Next

GalenS

""Jeffrey Tan[MSFT]"" <je***@online.m icrosoft.com> wrote in message
news:pY******** ******@TK2MSFTN GXA01.phx.gbl.. .

Hi Galen,

I think the following articles should be helpful to you:
"Getting Back Your Visual Basic 6.0 Goodies"
http://msdn.microsoft.com/library/de...us/dnadvnet/ht
ml/vbnet05132003.a sp
"Creating Control Arrays in Visual Basic .NET and Visual C# .NET"
http://msdn.microsoft.com/library/de...us/dv_vstechar
t/html/vbtchCreatingCo ntrolArraysInVi sualBasicNETVis ualCNET.asp
"Accessing controls by their names or indices"
http://dotnet.mvps.org/dotnet/faqs/?...eindex&lang=en

Hope this helps!

Best regards,
Jeffrey Tan
Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no
rights.
==============

[Jeffrey Tan[MSFT]]

Ok, if you need further help, please feel free to post. Thanks

Best regards,
Jeffrey Tan
Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.