Button, flere med næsten samme kode

Du kan godt lave arrays af controls som f.eks. button

Jeg tror at jeg har let løsning:

Tilføj nogle yderligere "Handles" på din click rutine.

  Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
    Select Case sender.name
      Case Button1.Name
        ' Udfør kode ...
      Case Button2.Name
        ' Udfør kode ...
      Case Button3.Name
        ' Udfør kode ...
      Case Button4.Name
        ' Udfør kode ...
    End Select
  End Sub

-------------------------------

En anden og mere dynamisk måde at gøre det på er du tilføjer dine "Handles" runtime.

Feks:

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AddHandler Button1.Click, AddressOf Button_Click
    AddHandler Button2.Click, AddressOf Button_Click
    AddHandler Button3.Click, AddressOf Button_Click
    AddHandler Button4.Click, AddressOf Button_Click
  End Sub

  Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Select Case sender.name
      Case Button1.Name
        ' Udfør kode ...
      Case Button2.Name
        ' Udfør kode ...
      Case Button3.Name
        ' Udfør kode ...
      Case Button4.Name
        ' Udfør kode ...
    End Select
  End Sub

MVH Januskh

jeg har prøvet det øverste løsnings forslag, det virker fint i .NET Frameworked, men ikke i Compact Frameworket som jeg anvender.

sender.name er ikke kendt, hvad kan det skyldes ?

MVH Viggo

Skal dette spørgsmål ikke lukkes?