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。