Public Class standingForm
Private thisConf As Conference
Dim label1 As New Label
Dim label2 As New Label
Dim label3 As New Label
Dim label4 As New Label
Dim label5 As New Label
Dim label6 As New Label
Dim label7 As New Label
Dim label8 As New Label
Dim label9 As New Label
Dim label10 As New Label
Dim label11 As New Label
Dim label12 As New Label
Dim label13 As New Label
Dim label14 As New Label
Dim label15 As New Label
Dim label16 As New Label
Dim label17 As New Label
Dim label18 As New Label
Dim label19 As New Label
Dim label20 As New Label
Dim label21 As New Label
Dim label22 As New Label
Dim label23 As New Label
Dim label24 As New Label
Dim label25 As New Label
Dim label26 As New Label
Dim label27 As New Label
Dim label28 As New Label
Dim label29 As New Label
Dim label30 As New Label
Dim label31 As New Label
Dim label32 As New Label
Dim label33 As New Label
Dim label34 As New Label
Dim label35 As New Label
Dim label36 As New Label
Dim label37 As New Label
Dim label38 As New Label
Dim label39 As New Label
Dim label40 As New Label
Dim label41 As New Label
Dim label42 As New Label
Dim label43 As New Label
Dim label44 As New Label
Dim label45 As New Label
Dim label46 As New Label
Dim label47 As New Label
Dim label48 As New Label
Dim label49 As New Label
Dim label50 As New Label
Dim label51 As New Label
Dim label52 As New Label
Dim label53 As New Label
Dim label54 As New Label
Dim label55 As New Label
Dim label56 As New Label
Dim label57 As New Label
Dim label58 As New Label
Dim label59 As New Label
Dim label60 As New Label
Dim label61 As New Label
Dim label62 As New Label
Dim label63 As New Label
Dim label64 As New Label
Dim label65 As New Label
Dim label66 As New Label
Dim label67 As New Label
Dim label68 As New Label
Dim label69 As New Label
Dim label70 As New Label
Dim label71 As New Label
Dim label72 As New Label
Dim label73 As New Label
Dim label74 As New Label
Dim label75 As New Label
Dim label76 As New Label
Dim label77 As New Label
Dim label78 As New Label
Dim label79 As New Label
Dim label80 As New Label
Dim label81 As New Label
Dim label82 As New Label
Dim label83 As New Label
Dim label84 As New Label
Dim label85 As New Label
Dim label86 As New Label
Dim label87 As New Label
Dim label88 As New Label
Dim label89 As New Label
Dim label90 As New Label
Dim label91 As New Label
Dim label92 As New Label
Dim label93 As New Label
Dim label94 As New Label
Dim label95 As New Label
Dim label96 As New Label
Dim label97 As New Label
Dim label98 As New Label
Dim label99 As New Label
Dim label100 As New Label
'Yes I know not good code, but not the issuse
Dim teamLblCtr() As Label = {label1, label6, label11, label16, label21, label26, label31, label36, _
label41, label46, label51, label56, label61, label66, label71, label76, _
label81, label86, label91, label96}
Dim confWinsLblCtr() As Label = {label2, label7, label12, label17, label22, label27, label32, label37, _
label42, label47, label52, label57, label62, label67, label72, label77, _
label82, label87, label92, label97}
Dim confLossesLblCtr() As Label = {label3, label8, label13, label18, label23, label28, label33, label38, _
label43, label48, label53, label58, label63, label68, label73, label78, _
label83, label88, label93, label98}
Dim allWinsLblCtr() As Label = {label4, label9, label14, label19, label24, label29, label34, label39, _
label44, label49, label54, label59, label64, label69, label74, label79, _
label84, label89, label94, label99}
Dim allLossLblCtr() As Label = {label5, label10, label15, label20, label25, label30, label35, label40, _
label45, label50, label55, label60, label65, label70, label75, label80, _
label85, label90, label95, label100}
Public Sub New(ByVal conf As Conference)
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
thisConf = conf
End Sub
Private Sub standingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
confName.Text = thisConf.Name
Dim i As Integer = 0
For Each element In thisConf.Members
teamLblCtr(i).Text = element.Name
confWinsLblCtr(i).Text = element.Schedule.ConferenceWins.ToString
confLossesLblCtr(i).Text = element.Schedule.ConferenceLosses.ToString
allWinsLblCtr(i).Text = element.Schedule.Wins.ToString
allLossLblCtr(i).Text = element.Schedule.Losses.ToString
If i = 0 Then
teamLblCtr(i).Location = New Point(45, 95)
confWinsLblCtr(i).Location = New Point(130, 95)
confLossesLblCtr(i).Location = New Point(190, 95)
allWinsLblCtr(i).Location = New Point(260, 95)
allLossLblCtr(i).Location = New Point(310, 95)
Else
teamLblCtr(i).Location = New Point(45, teamLblCtr(i - 1).Location.Y + 25)
confWinsLblCtr(i).Location = New Point(130, confWinsLblCtr(i - 1).Location.Y + 25)
confLossesLblCtr(i).Location = New Point(190, confLossesLblCtr(i - 1).Location.Y + 25)
allWinsLblCtr(i).Location = New Point(260, allWinsLblCtr(i - 1).Location.Y + 25)
allLossLblCtr(i).Location = New Point(310, allLossLblCtr(i - 1).Location.Y + 25)
End If
Me.Controls.Add(teamLblCtr(i))
Me.Controls.Add(confWinsLblCtr(i))
Me.Controls.Add(confLossesLblCtr(i))
Me.Controls.Add(allWinsLblCtr(i))
Me.Controls.Add(allLossLblCtr(i))
i += 1
Next element
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show()
Me.Hide()
End Sub
End Class
This program should pull data from elsewhere, stick it in the labels and show them.
The label for teamLblCtr shows up, but none of the other labels do. The data is in the text property and visible is set to true, but the label either are not making it to the form or somehow getting covered or hidden. I cannot figure out the difference and why the one array works but the others don't. Thank you in advance.