Public Class Form1
    Dim instance As New Listen()
    Private Sub StartStopButton_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles StartStopButton.Click
        If StartStopButton.Text = "Start" Then
            StartStopButton.Text = "Stop"
            instance.start(StartStopButton)
        ElseIf StartStopButton.Text = "Stop" Then
            StartStopButton.Text = "Start"
            instance.stop(StartStopButton)
        End If
    End Sub
End Class

 
 
Dim wert As Double = false
Public Sub start(ByRef btn As Button)
       ' btn.BackColor = Color.Red <- dies sollte in einer anderen Subroutine 
       ' ausgeführt werden
        wert = true
        machwas()
    End Sub
 
    Public Sub stop(ByRef btn As Button)
       ' btn.BackColor = Color.White
        wert = false
        machwas()
End Sub
 
Private Sub machwas()
  If wert = true Then
     btn.BackColor = Color.Red   <- diese Subroutine sollte den button ändern
  else
     btn.BackColor = Color.White
end If
End Sub

? Der Computer ist die logische Weiterentwicklung des Menschen:
Intelligenz ohne Moral.?
(John Osborne, engl. Dramatiker, *1921)

Beitrag wurde zuletzt am 18.08.10 um 09:57:27 editiert.