Bertje1978
Nieuwe gebruiker
- Lid geworden
- 24 nov 2014
- Berichten
- 3
Weet er iemand een oplossing voor het volgende:
Ik wil voor volgende een verwijzing naar een zelfgemaakte button in een andere form: Me.Button2.Image = My.Resources.tick (deze button staat in een andere form en de image van de button moet ook veranderen).
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles ButtonLamp1.Click
If ButtonLamp1.Text = "ON" Then
Me.Button2.Image = My.Resources.tick
Forminterieurslaapkamer1.Button2.Text = "ON"
ButtonLamp1.Text = "OFF"
TextBoxLamp1.BackColor = Color.Green
TextBoxLamp1.Text = 10
RichTextBoxLamp1.Clear()
RichTextBoxLamp1.AppendText("Kamer: " & Me.Text & vbNewLine)
RichTextBoxLamp1.AppendText("Toestel: Lamp 1" & vbNewLine)
RichTextBoxLamp1.AppendText("Verbruik: " & TextBoxLamp1.Text & " Watt" & vbNewLine)
Else
ButtonLamp1.Text = "ON"
Me.Button2.Image = My.Resources.block
TextBoxLamp1.BackColor = Color.Red
TextBoxLamp1.Text = 0
RichTextBoxLamp1.Clear()
RichTextBoxLamp1.AppendText("Kamer: " & Me.Text & vbNewLine)
RichTextBoxLamp1.AppendText("Toestel: Lamp 1" & vbNewLine)
RichTextBoxLamp1.AppendText("Verbruik: " & TextBoxLamp1.Text & " Watt" & vbNewLine)
End If
Ik wil voor volgende een verwijzing naar een zelfgemaakte button in een andere form: Me.Button2.Image = My.Resources.tick (deze button staat in een andere form en de image van de button moet ook veranderen).
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles ButtonLamp1.Click
If ButtonLamp1.Text = "ON" Then
Me.Button2.Image = My.Resources.tick
Forminterieurslaapkamer1.Button2.Text = "ON"
ButtonLamp1.Text = "OFF"
TextBoxLamp1.BackColor = Color.Green
TextBoxLamp1.Text = 10
RichTextBoxLamp1.Clear()
RichTextBoxLamp1.AppendText("Kamer: " & Me.Text & vbNewLine)
RichTextBoxLamp1.AppendText("Toestel: Lamp 1" & vbNewLine)
RichTextBoxLamp1.AppendText("Verbruik: " & TextBoxLamp1.Text & " Watt" & vbNewLine)
Else
ButtonLamp1.Text = "ON"
Me.Button2.Image = My.Resources.block
TextBoxLamp1.BackColor = Color.Red
TextBoxLamp1.Text = 0
RichTextBoxLamp1.Clear()
RichTextBoxLamp1.AppendText("Kamer: " & Me.Text & vbNewLine)
RichTextBoxLamp1.AppendText("Toestel: Lamp 1" & vbNewLine)
RichTextBoxLamp1.AppendText("Verbruik: " & TextBoxLamp1.Text & " Watt" & vbNewLine)
End If