两种方法实现一个button单机事件中执行另一个button单击的事件的程序

1、第一种方法直接调用另一个button单击事件的程序

在窗体上新建一个label标签及两个button按钮，名称及属性均为默认值即可。添加以下代码即可

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call Button2_Click(sender, e)  '调用button2的单击事件过程
        Label1.ForeColor = Color.Red    '为了区分button2的单击事件过程，这里设置字体颜色为红色
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Label1.Text = "sfaggfdsfa"  '在label1上显示一段字符
        Label1.ForeColor = Color.Green  '字体颜色为绿色
    End Sub
End Class

单击button1出现如下效果

单击button2出现如下效果

2、第二种方法调用同一个过程来实现

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call display()   '调用同一个过程
        Label1.ForeColor = Color.Red    '为了区分button2的单击事件过程，这里设置字体颜色为红色
    End Sub
     
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Call display()   '调用同一个过程
        Label1.ForeColor = Color.Green  '字体颜色为绿色
    End Sub

    Private Sub display()   '同一个过程，在label1上显示一段字符
        Label1.Text = "sfaggfdsfa"  '在label1上显示一段字符
    End Sub
End Class

运行结果同方法1。