如何在另一个子程序中执行部分代码

Question

假设我有两个按钮btnCheck和btnOK。我想从btnOK执行btnCheck的几行代码。所以当我点击btnOK时，btnOK的代码以及BtnCheck的代码应该一个接一个地执行。我怎么能在vb.net做到这一点

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 
.................................. 
..............CODES 1............. 
.................................. 
.........CODES FROM BtnCheck...... 
.................................. 
End Sub 

Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click 
.................................. 
..............CODES 2............... 
.................................. 
End Sub 

[可以使用转到？ ]

Answer 1

除了制作一个单独的程序，有人建议，你也可以简单地调用其它子，如果你想运行它的所有代码：

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 
    '... 
    btnCheck_Click(sender, e) 'This will run the btnCheck code 
End Sub 

Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click 
    '... 
End Sub 

尽量避免在你的代码，如果使用goto在所有可能的情况下，使用其他控制结构几乎总是有更好的方法。

Answer 2

我想你在问如何在这两个程序之间共享一些代码。那么，为什么不一样的东西：

Private Sub btnOK_Click(...) 
    sharedSubroutine(...) 

Private Sub btnCheck_Click(...) 
    sharedSubroutine(...) 

Private Sub sharedSubroutine(...) 
    'Here is the shared code 

换句话说，你创建一个新的子程序/程序/功能包含是你的第一个两者之间共同的代码，你可以同时btnCheck_Click也btnOK_Click把这种新的代码。