Anonymous Anonymous - 1 month ago
145 0

dde

Vb.net

gellelele

Embed
Private Sub bt_Drikke_Click(sender As Object, e As EventArgs) Handles bt_Drikke.Click
        TB_drik_kakao.Visible = True
        TB_drik_mælk.Visible = True
        TB_drik_smoothie.Visible = True
        TB_drik_vand.Visible = True
        If lbl_mad_KartoffelSup.Visible = True Then
            Array.ForEach(Me.Controls.OfType(Of TextBox).Except(New TextBox() {}).ToArray, Sub(tb_mad) tb_mad.Visible = Not tb_mad.Visible)
            Array.ForEach(Me.Controls.OfType(Of Label).Except(New Label() {}).ToArray, Sub(lbl_mad) lbl_mad.Visible = Not lbl_mad.Visible)

        Else
        End If
    End Sub
Comments