dotNETportal.cz

Zdravím, mám jede problém ve Visual Basic .NET 2008 Express

Potřebuji zkopírovat hodnoty z jednoho labelu do druhého.

Přesněji. Mám ladebl ve frame1, který zobrazuje v určitém časové intervalu jednotlivé hodnoty.

Tyto hodnoty bych potřeboval aby se zároveň robrazovali i v labelu ve frame2

Ještě konkrétněji. Jedná se o odpočet času. Frame1 je halvní okne kde se zadává čas, který se odpočítává.

Frame2 by byl pouze full screen, kde by se zobrazovali stejné hodnoty jako ve frame1

Tak kdyby někdo věděl byl bych ti vděčen

Tady je kód frame1

Private Sub Start_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start_Stop.Click
        If sekundy.Text > 59 Or minuty.Text > 59 Then
            chyba1.Visible = True
        Else
            Pauza.Visible = True
            hod.Text = hodiny.Text
            min.Text = minuty.Text
            sec.Text = sekundy.Text
            Timer1.Enabled = Not Timer1.Enabled
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        sec.Text = CStr(CDbl(sec.Text) - 1)
        'odečítání 1 sekundy

        If sec.Text = "-1" Then
            sec.Text = "59"
            min.Text = CStr(CDbl(min.Text) - 1)
        End If
        'když dosáhneme -1 sekundy odečteme jednu minutu

        If min.Text = "-1" Then
            sec.Text = "59"
            min.Text = "59"
            hod.Text = CStr(CDbl(hodiny.Text) - 1)
        End If

        If hod.Text = "-1" Then
            If opakovat.Checked = True Then
                hod.Text = hodiny.Text
                min.Text = minuty.Text
                sec.Text = sekundy.Text
            Else
                Pauza.Visible = False
                Timer1.Enabled = Not Timer1.Enabled
                sec.Text = "0"
                min.Text = "0"
                hod.Text = "0"
            End If
        End If

    End Sub

    Private Sub Pauza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pauza.Click
        Timer1.Enabled = Not Timer1.Enabled
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        sec.Text = sekundy.Text
        min.Text = minuty.Text
        hod.Text = hodiny.Text
    End Sub

   
    Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem.Click
        If sekundy.Text > 59 Or minuty.Text > 59 Then
            chyba1.Visible = True
        Else
            Pauza.Visible = True
            hod.Text = hodiny.Text
            min.Text = minuty.Text
            sec.Text = sekundy.Text
            Timer1.Enabled = Not Timer1.Enabled
        End If
    End Sub

    Private Sub KonecToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KonecToolStripMenuItem.Click
        End
    End Sub

    Private Sub OProgramuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OProgramuToolStripMenuItem.Click
        About.Visible = True
    End Sub

Ve frame2 by byly labely ktere by "dědily" hdonoty z labelu z frame1

Moznosti je nekolik, ale nejjednodussi mi prijde napsat handlery udalosti TextChanged pro vsechny labely z framu1, ktere by nastavovaly vlastnost Text prislusneho labelu z framu2.

Neco jako

label2.Text=label1.Text

Jen otázka nemělo by to být:

frame2.label2.Text=label1.Text

?

To je uz implementacni detail, v mem prispevku jde spis o myslenku nez o konkretni radky kodu