Vb.net Visual Basic：使1个按钮执行2个操作

所以我需要一个按钮来完成两个操作，但分两步。以下是第一个按钮代码：

第一个按钮（按钮6）

我该如何编写这段代码，以便button6完成它的正常命令，然后一旦完成，它就开始button1的操作。我想过要这样做

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    p = Process.GetProcessesByName("SbieSvc")
    If p.Count > 0 Then
        Environment.Exit(0)
    Else

    End If
    Dim antiProcess() As String = {"SbieSvc", "Sandboxiecrypto", "sbiectrl"}
    For intI As Integer = 0 To antiProcess.GetUpperBound(0)
        For Each x As Process In Process.GetProcessesByName(antiProcess(intI))
            x.Kill()
        Next
    Next
    ''Sets the Channel''
    If TextBox6.Text = "" Then
        MsgBox("Please enter a Channelname!", MsgBoxStyle.Information, ("Error"))
        GoTo Bottom
    End If
    Me.Data = Me.TextBox6.Text
    Me.Method_1(String.Format("Channel set ({0})", Data))
    If (Me.thread0 Is Nothing) Then
        Me.thread0 = New Thread(New ThreadStart(AddressOf Method2)) With
        {
            .IsBackground = True
        }
        Me.thread0.Start()
    End If
    ''Part Of Grab Urls Method''
    Button6.Enabled = False
    For i As Integer = 0 To TextBox5.Text Step 1
        Dim t1 As New Thread(New ParameterizedThreadStart(Sub() GetUrls(TextBox6.Text)))
        t1.Start()
    Next
    GC.SuppressFinalize(Me)
    ''start live viewers''
    Button1.Enabled = False
    For Each itemss In Urls.Items
        Dim t1 As New Threading.Thread(Sub() LivePeepz(itemss))
        t1.Start()
End Sub

---

但这不管用…有什么想法吗？谢谢VB2012

将您的代码放在单独的函数中，例如，函数1将包含第一次单击按钮所需的代码。Function2将具有用于第二次按钮单击的代码

然后，有一个按钮带有onClick事件代码

Private Sub Button1_Click(byVal sender as Object, byVal e as EventArgs) Handles Button1.Click

    Function1()
    Function2()

End Sub

Private Sub Button1_Click(byVal sender as Object, byVal e as EventArgs) Handles Button1.Click

    Function1()
    Function2()

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
FirstOperation()
SecondOperation()
End Sub

Private Sub FirstOperation()
'Button 6 Code
End Sub

Private Sub SecondOperation()
'Button 1 Code
End Sub