Aufruf der gleichen Funktion mit verschiedenen Funktionen namens innerhalb

Question

Ich hoffe, mein Titel ist klar. Lassen Sie mich erklären. Ich habe 4 Knöpfe, die ziemlich genau dasselbe tun.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    LimiteGlobalSeparador = InputBox("Introduzca la distancia máxima entre huecos en el tubo", "Cuadro de Datos, Separaciones", "") 
    Dim a, b, c, d, f, g As New Label 
    Dim o, p, q, r, s, t As New Label 
    a.Text = "Medida del Tubo" 
    b.Text = "Espacio 1" 
    c.Text = "Espacio 2" 
    d.Text = "Espacio 3" 
    f.Text = "Espacio 4" 
    g.Text = "Espacio 5" 
    For i = 0 To 5 
     TableLayoutPanel1.Controls.Add(a, 0, i) 
    Next 
    If TextBox1.Text <> 0 Then 
     For j = 1 To Int(TextBox1.Text) 
      Dim x As New List(Of Decimal) 
      x = MedTuboFuncPCT() 
      For i = 0 To x.Count - 1 
       Dim lbl As New Label 
       lbl.Text = Math.Round(x(i), 2) 
       TableLayoutPanel1.Controls.Add(lbl, j, i) 
      Next 
      ContadorGlobal = ContadorGlobal + 1 
     Next 
    Else 
    End If 

    ContadorGlobal = 0 

    Dim h As Integer 
    h = Int(TextBox2.Text - TextBox1.Text) 
    If TextBox2.Text <> 0 Then 
     If h = Int(TextBox2.Text) Then 
      For j = 1 To Int(TextBox2.Text) 
       Dim x As New List(Of Decimal) 
       x = MedTuboFunCTCT() 
       For i = 0 To x.Count - 1 
        Dim lbl As New Label 
        lbl.Text = Math.Round(x(i), 2) 
        TableLayoutPanel1.Controls.Add(lbl, j, i) 
       Next 
       ContadorGlobal = ContadorGlobal + 1 
      Next 
     Else 
      ContadorGlobal = 0 
      For j = Int(1) + Int(TextBox1.Text) To (Int(TextBox1.Text) + Int(TextBox2.Text)) 
       Dim x As New List(Of Decimal) 
       x = MedTuboFunCTCT() 
       For i = 0 To x.Count - 1 
        Dim lbl As New Label 
        lbl.Text = Math.Round(x(i), 2) 
        TableLayoutPanel1.Controls.Add(lbl, j, i) 
       Next 
       ContadorGlobal = ContadorGlobal + 1 
      Next 
     End If 
    End If 

    ContadorGlobal = 0 
    If TextBox3.Text <> 0 Then 
     Dim x As New List(Of Decimal) 
     x = MedTuboFuncPP() 
     For i = 0 To x.Count - 1 
      Dim lbl As New Label 
      lbl.Text = Math.Round(x(i), 2) 
      TableLayoutPanel1.Controls.Add(lbl, 1, i) 
     Next 
    End If 
    If Te180 > 0 Then 
     o.Text = "Medida del Tubo" 
     p.Text = "Espacio 1" 
     q.Text = "Espacio 2" 
     r.Text = "Espacio 3" 
     s.Text = "Espacio 4" 
     t.Text = "Espacio 5" 
     For i = 6 To 11 
      TableLayoutPanel1.Controls.Add(o, 0, i) 
     Next 
    End If 
End Sub 

So versuche ich einen Sub zu erstellen und dann diese Unter jeder Taste rufen, so habe mich keinen Code in jeder Taste zu wiederholen, wie ich jetzt habe. Die einzige Änderung ist hier:

Ein Knopf ruft diese Funktion auf. x = MedTuboFuncPCT().

Eine andere nennt man x = MedTuboFuncPCTVid()

Eine andere nennt man x = MedTuboFuncPCTVidBB()

Ich weiß nicht, wie man eine Sub zu machen, in dem ich diesen Unterschied machen kann. Hoffe ich bin klar genug. Danke im Voraus.

Answer 1

Ihre Funktion erstellen und einen Wert darin senden, so dass Sie die x Funktion

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    VFunction = 1 
    RepeatedCode(VFunction) 
End Sub 

auf Button2 VFunction = 2 und so weiter ändern. Dann erstelle deine Funktion.

Public Sub RepeatedCode (ByVal VFunction as integer) 
    If VFunction = 1 Then 
     x = MedTuboFuncPCT() 
    ElseIf VFunction = 2 Then 
     x = MedTuboFuncPCTVid() 
    ElseIf VFunction = 3 Then 
     x = MedTuboFuncPCT() 
    End If 

    'The Rest of your code 

Ich glaube der If Zustand in Ihrem gestellt werden muss If TextBox1.Text <> 0 Da es sein der einzige Ort, wo ich sehe, Sie verwenden eine der Funktionen Sie