Quantcast
Channel: Programming Forums
Viewing all articles
Browse latest Browse all 51036

label not showing on form

$
0
0
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.

Viewing all articles
Browse latest Browse all 51036

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>