Question Working with index

[nvhung.mctt]

Dear All,

I would like to use index of objects in vb6 to upgrade into vb.net, I have seen some topic but I could not do it

For exmaple(in Vb6)

Public Sub Update_PriorMenus()

'This sub read amoun projects and display in menu. 
'nPrior is readed from Config.ini

   Dim i As Integer
   
  
   ' *** Now set up the menu
   If nPrior > -1 Then
      mnuPriorProjects.Enabled = True
      For i = 0 To 8
         If i <= nPrior Then
            mnuPrior(i).Visible = True
            mnuPrior(i).Caption = PriorProjects(i)
         Else
            mnuPrior(i).Visible = False
         End If
      Next
   Else
      mnuPriorProjects.Enabled = False
      For i = 0 To 7
         mnuPrior(i).Visible = False
      Next
   End If
   
   
End Sub

Now, I would like to change it into Vb.net(2005),

Please help me to solve this issue

Thanks.
================
Nguyen Van Hung

 

[jmcilhinney]

There is no design time support for control arrays in VB.NET. You can create an array of controls in code in exactly the same way as you do any other array.

 

[nvhung.mctt]

Dear Jmcilhinnney

I know these things,

my objects is menu objects that is declaration in design development. I do not clear how to do to using it when we create in control array in runtime ?.

I can do below but I think it is not profession.

<code>
Public Sub Update_PriorMenus()

Dim i As Integer

' *** Now set up the menu

If nPrior > -1 Then
mnuPriorProjects.Enabled = True
Select Case nPrior
Case 0
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = False
mnuPrior2.Visible = False
mnuPrior3.Visible = False
mnuPrior4.Visible = False
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 1
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = False
mnuPrior3.Visible = False
mnuPrior4.Visible = False
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 2
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = False
mnuPrior4.Visible = False
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 3
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = True
mnuPrior3.Text = PriorProjects(3)
mnuPrior4.Visible = False
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 4
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = True
mnuPrior3.Text = PriorProjects(3)
mnuPrior4.Visible = True
mnuPrior4.Text = PriorProjects(4)
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 5
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = True
mnuPrior3.Text = PriorProjects(3)
mnuPrior4.Visible = True
mnuPrior4.Text = PriorProjects(4)
mnuPrior5.Visible = True
mnuPrior5.Text = PriorProjects(5)
mnuPrior6.Visible = False
mnuPrior7.Visible = False
Case 6
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = True
mnuPrior3.Text = PriorProjects(3)
mnuPrior4.Visible = True
mnuPrior4.Text = PriorProjects(4)
mnuPrior5.Visible = True
mnuPrior5.Text = PriorProjects(5)
mnuPrior6.Visible = True
mnuPrior6.Text = PriorProjects(6)
mnuPrior7.Visible = False
Case 7
mnuPrior0.Visible = True
mnuPrior0.Text = PriorProjects(0)
mnuPrior1.Visible = True
mnuPrior1.Text = PriorProjects(1)
mnuPrior2.Visible = True
mnuPrior2.Text = PriorProjects(2)
mnuPrior3.Visible = True
mnuPrior3.Text = PriorProjects(3)
mnuPrior4.Visible = True
mnuPrior4.Text = PriorProjects(4)
mnuPrior5.Visible = True
mnuPrior5.Text = PriorProjects(5)
mnuPrior6.Visible = True
mnuPrior6.Text = PriorProjects(6)
mnuPrior7.Visible = True
mnuPrior7.Text = PriorProjects(7)
End Select

Else
mnuPriorProjects.Enabled = False
mnuPrior0.Visible = False
mnuPrior1.Visible = False
mnuPrior2.Visible = False
mnuPrior3.Visible = False
mnuPrior4.Visible = False
mnuPrior5.Visible = False
mnuPrior6.Visible = False
mnuPrior7.Visible = False
End If


End Sub
</code>

Please show me your ideas.

Thanks very much.

Best Regards,
Nguyen Van Hung

 

[jmcilhinney]

An array is an array. Once an array is created:

Dim mnuPrior As ToolStripMenuItem() = {mnuPrior0, mnuPrior1, ..., mnuPrior7}

it gets used in exactly the same way as any other array; exactly the same way as you've shown in the code in your first post.

 

[nvhung.mctt]

Thank Jimcilhinney very much

 

[nvhung.mctt]

I modified my code as

Public Sub Update_PriorMenus()

Dim i As Integer
Dim mnuPrior As ToolStripMenuItem() = {mnuPrior0, mnuPrior1, mnuPrior2, mnuPrior3, mnuPrior4, mnuPrior5, mnuPrior6, mnuPrior7}

' *** Now set up the menu

If nPrior > -1 Then
mnuPriorProjects.Enabled = True
For i = 0 To 8
If i <= nPrior Then
mnuPrior(i).Visible = True
mnuPrior(i).Text = PriorProjects(i)
Else
mnuPrior(i).Visible = False
End If
Next
Else
mnuPriorProjects.Enabled = False
For i = 0 To 7
mnuPrior(i).Visible = False
Next
End If

End Sub

Again, thank you.

Best Regards,
Nguyen Van Hung